/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 vote226 views1 answer
Vba find sub dictionary
VBA
1 vote219 views2 answers
Excel vba password protect
VBA
0 vote243 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote242 views1 answer
Date as number vb
VBA
0 vote235 views1 answer
Vba excel do not recalculate before save
VBA
0 vote228 views1 answer
Vba add month to date
VBA
0 vote258 views1 answer
Sort dictionary by key vba
VBA
0 vote229 views1 answer
Priavte sub with multiple handels find sneder
VBA
3 votes233 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
-1 vote237 views1 answer
Vba code to add new column in table
VBA