excel vba test if specific bits set in byte
'Fast VBA function to test if specific bits are set
'within a Byte. If ALL specified bits are set then this function
'returns True. If ANY of the specified bits are not set then
'this function returns False.
'Bits are numbered from 0 to 7, so the first (least significant) bit
'is bit 0.
'Note: bits can be specified in any order.
Function ByteBitsAreSet(theByte As Byte, ParamArray bits()) As Boolean
Static i&, b() As Byte
If UBound(bits) = -1 Then Exit Function
If (Not Not b) = 0 Then
ReDim b(0 To 7)
For i = 0 To 7
b(i) = 2 ^ i
Next
End If
For i = 0 To UBound(bits)
If bits(i) < 0 Then Exit Function
If bits(i) > 7 Then Exit Function
If (theByte And b(Int(bits(i)))) = 0 Then Exit Function
Next
ByteBitsAreSet = True
End Function
'--------------------------------------------------------------------------
MsgBox ByteBitsAreSet(255, 7) '<--displays: True 255 = 11111111
MsgBox ByteBitsAreSet(230, 0) '<--displays: False 230 = 11100110
MsgBox ByteBitsAreSet(85, 0, 2, 6, 4) '<--displays: True 85 = 01010101
MsgBox ByteBitsAreSet(85, 0, 2, 5, 4) '<--displays: False 85 = 01010101
'
'
'
Are there any code examples left?
New code examples in category VBA
-
VBA 2022-03-27 20:55:02 excel vba check if all substrings in list are in string
-
VBA 2022-03-27 20:40:39 excel vba set cell value to empty
-
VBA 2022-03-27 17:05:52 vba simple quote
-
VBA 2022-03-27 14:30:19 textbox find and replace vb
-
VBA 2022-03-27 09:10:21 nested if else in vb.net
-
VBA 2022-03-27 09:10:09 excel vba string to bits
-
VBA 2022-03-25 02:00:15 vba verticalalignment
-
VBA 2022-03-24 12:20:06 Excel web scraping
-
VBA 2022-03-24 10:11:00 excel vba BitToLong
-
VBA 2022-03-21 18:00:05 excel vba save file txt