/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

8 votes141 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote144 views1 answer
Group controls programmatically vb
VBA
3 votes154 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote139 views1 answer
Excel vba join variant array
VBA
15 votes271 views2 answers
Xl vba dynamic string array
VBA
0 vote149 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote145 views1 answer
Excel vba remove formatting from cell
VBA
6 votes159 views1 answer
Excel vba get the path of current workbook
VBA
0 vote153 views1 answer
Vba listbox remove all items
VBA
0 vote182 views1 answer
Vba userform textbox wrap text
VBA