/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 vote334 views1 answer
Winforms dark title bar
VBA
1 vote269 views2 answers
Excel vba password protect
VBA
0 vote289 views1 answer
Ribbon show/hide
VBA
1 vote282 views1 answer
Vba delete file
VBA
5 votes310 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote278 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote294 views1 answer
Excel vba first working day month
VBA
0 vote302 views1 answer
Get month number from month name vbnet
VBA
2 votes282 views2 answers
Excel vba copy values range to another range
VBA
0 vote272 views1 answer
Vbs send keys
VBA