/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

31 votes480 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote348 views1 answer
Vba array dimensions
VBA
4 votes399 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote331 views1 answer
Vba sort multiple columns
VBA
0 vote340 views1 answer
Vba html document reference
VBA
0 vote350 views1 answer
Nested if else in vb.net
VBA
0 vote317 views1 answer
Vbnet display all axis labels in cahrt
VBA
0 vote361 views1 answer
Excel vba set cell value to empty
VBA
1 vote318 views1 answer
Excel vba close form escape key
VBA
1 vote351 views1 answer
Export datagridview to excel vb.net
VBA