/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 vote285 views1 answer
Excel vba populate array with cell values
VBA
0 vote308 views1 answer
Excel vba formatconditions positive
VBA
0 vote341 views1 answer
Move bindingnavigator vb
VBA
8 votes466 views1 answer
Excel vba make word from bytes
VBA
0 vote297 views1 answer
Vba argument is set
VBA
0 vote339 views1 answer
Windows Forms dark title bar
VBA
0 vote314 views1 answer
Enable macros on opening workbook vba
VBA
0 vote309 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote321 views1 answer
Vba multiple optional arguments
VBA
0 vote316 views1 answer
Vba get workbook name
VBA