# "vba bits to integer" Code Answer's

You're definitely familiar with the best coding language VBA that developers use to develop their projects and they get all their queries like "vba bits to integer" answered properly. Developers are finding an appropriate answer about vba bits to integer related to the VBA coding language. By visiting this online portal developers get answers concerning VBA codes question like vba bits to integer. Enter your desired code related query in the search bar and get every piece of information about VBA code related question on vba bits to integer.

### excel-vba long integer value to bits

By Excel Hero on May 23, 2020
``````Function LongToBits\$(ByVal n&)
Dim i&
LongToBits = "00000000000000000000000000000000"
If n And &H80000000 Then
Mid\$(LongToBits, 1, 1) = "1"
n = n And Not &H80000000
End If
For i = 32 To 2 Step -1
If n And 1 Then Mid\$(LongToBits, i, 1) = "1"
n = n \ 2
Next
End Function

'------------------------------------------------------------------------------

MsgBox LongToBits(0)			'<--displays: 00000000000000000000000000000000
MsgBox LongToBits(293781237)	'<--displays: 00010001100000101011111011110101
MsgBox LongToBits(-1)			'<--displays: 11111111111111111111111111111111
``````

10

### excel vba make a short integer from two bytes

By Excel Hero on May 23, 2020
``````Public Function MakeInteger%(LoByte As Byte, HiByte As Byte)
If HiByte And &H80 Then
MakeInteger = ((HiByte * &H100&) Or LoByte) Or &HFFFF0000
Else
MakeInteger = (HiByte * &H100) Or LoByte
End If
End Function``````

8

### vba bits to integer

By Excel Hero on Feb 04, 2021
``````'Extremely fast VBA function to convert a binary string to a 16-bit Integer:

Function BitsToInteger%(bits\$)
Dim i&
Static b() As Byte
If LenB(bits) > 32 Then Exit Function
If LenB(bits) = 32 Then
b = bits
Else
b = String\$(16 - Len(bits), "0") & bits
End If
For i = 2 To 30 Step 2
BitsToInteger = 2 * BitsToInteger Or (b(i) Xor 48)
Next
If (b(0) Xor 48) Then BitsToInteger = BitsToInteger Or &H8000
End Function

'Example:

MsgBox BitsToInteger("1111111111111111")    '<--displays: -1
MsgBox BitsToInteger("0111111111111111")    '<--displays:  32767
``````

20

### excel vba high word from Long Integer

By Excel Hero on May 23, 2020
``````'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
``````