I assume that you have 2 values ββstored as strings. In this case, you can do the following:
Dim hex1 As String hex1 = "53FDBC" Dim hex2 As String hex2 = "00FFFF" Dim bin1 As String bin1 = CLng("&H" & hex1) Dim bin2 As String bin2 = CLng("&H" & hex2) Dim result As String result = Hex$(bin1 And bin2)
The result now contains "FDBC", but you can put it to the left with zeros
As a function (excel module) this can be implemented as:
Function hexand(hex1 As String, hex2 As String) as String Dim bin1 As String bin1 = CLng("&H" & hex1) Dim bin2 As String bin2 = CLng("&H" & hex2) hexand = Hex$(bin1 And bin2) End Function
source share