# "excel vba long integer to bits" 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 "excel vba long integer to bits" answered properly. Developers are finding an appropriate answer about excel vba long integer to bits related to the VBA coding language. By visiting this online portal developers get answers concerning VBA codes question like excel vba long integer to bits. Enter your desired code related query in the search bar and get every piece of information about VBA code related question on excel vba long integer to bits.

### 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

### excel vba long integer 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
``````

11

### vba binary string to long integer

By Excel Hero on May 27, 2020
``````'Fast VBA function to converst binary string to a Long Integer:

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

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

MsgBox BitsToLong("1")									'<--displays:  1
MsgBox BitsToLong("10")									'<--displays:  2
MsgBox BitsToLong("0110")								'<--displays:  6
MsgBox BitsToLong("0100101")							'<--displays:  37
MsgBox BitsToLong("100000000000000000000")				'<--displays:  1048576
MsgBox BitsToLong("11111111111111111111111111111111")	'<--displays:  -1
``````

1

### excel vba long to bits

By Excel Hero on May 27, 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 ByteToBits(0)			'<--displays: 00000000000000000000000000000000
MsgBox LongToBits(293781237)	'<--displays: 00010001100000101011111011110101
MsgBox ByteToBits(-1)			'<--displays: 11111111111111111111111111111111
``````

7

### 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
``````

6

All those coders who are working on the VBA based application and are stuck on excel vba long integer to bits can get a collection of related answers to their query. Programmers need to enter their query on excel vba long integer to bits related to VBA code and they'll get their ambiguities clear immediately. On our webpage, there are tutorials about excel vba long integer to bits for the programmers working on VBA code while coding their module. Coders are also allowed to rectify already present answers of excel vba long integer to bits while working on the VBA language code. Developers can add up suggestions if they deem fit any other answer relating to "excel vba long integer to bits". Visit this developer's friendly online web community, CodeProZone, and get your queries like excel vba long integer to bits resolved professionally and stay updated to the latest VBA updates.

### VBA answers related to "excel vba long integer to bits"

View All VBA queries

### Browse Other Code Languages 