/VBA/Excel vba left word from Long Integer

Excel vba left 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

Similar codes

0 vote141 views1 answer
Build an index all files of a FTP site
VBA
12 votes244 views1 answer
Excel vba write string to text file
VBA
0 vote132 views1 answer
Vba file chooser
VBA
0 vote134 views1 answer
Vba nested dictionary
VBA
0 vote152 views1 answer
Excel vba move down to next visible cell
VBA
0 vote132 views1 answer
How to get the value of optionbutton in vba
VBA
4 votes127 views1 answer
Excel formula for last non-empty cell in a column
VBA
1 vote141 views1 answer
Excel vba last row of range
VBA
0 vote128 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote136 views1 answer
Excel vba unmerge sheet
VBA