/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

0 vote112 views1 answer
Excel text to columns line break
VBA
0 vote142 views1 answer
Find if year is leap year vb
VBA
0 vote135 views1 answer
Excel filter by date not working vba
VBA
1 vote137 views1 answer
Vba loop through files in folder
VBA
0 vote129 views1 answer
How to mount floppy disks in vb.net
VBA
1 vote968 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote119 views1 answer
Do until vb.net
VBA
31 votes231 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote115 views1 answer
Excel vba formatconditions positive
VBA
4 votes123 views1 answer
Vba create directory
VBA