/VBA/Excel vba convert 2 Short integers to a Long integer

Excel vba convert 2 Short integers to a Long integer

Excel vba low word from Long Integer

'If n is a 4-byte Long Integer, the Low (Left) Word is:
If n And &H8000& Then
  	LoWord = n Or &HFFFF0000
Else
    LoWord = n And &HFFFF&
End If

'If n is a 4-byte Long Integer, the High (Right) Word is:
HiWord = (n And &HFFFF0000) \ &H10000

Source: academy.excelhero.com

Excel vba convert 2 Short integers to a Long integer

Public Function MakeLong&(ByVal LoWord%, ByVal HiWord%)
  MakeLong = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function

Similar codes

1 vote362 views1 answer
Vb.net get name by Cell Click
VBA
0 vote318 views1 answer
Vba pass named range to function
VBA
1 vote356 views1 answer
Export datagridview to excel vb.net
VBA
1 vote331 views1 answer
Vba refresh pivot table
VBA
8 votes406 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote351 views1 answer
Vba array dimensions
VBA
0 vote346 views1 answer
Menus act like radio buttons vb.net
VBA
2 votes317 views1 answer
Date format for ms chart vb.net
VBA
0 vote326 views1 answer
Vba line feed
VBA
1 vote363 views1 answer
Excel how to format bytes as KB, MB, GB
VBA