VBA 16进制转2进制

Private Sub CommandButton1_Click()


Dim value As String
Dim arow As Integer
Dim aline As Integer


value = Application.ActiveSheet.TextBox1
aline = Application.ActiveSheet.TextBox2


Dim str As String
Dim outStr As String


For iloop = 1 To 8


    '使用excel函数时候必须WorksheetFunction
    '16进制转2进制方法Hex2Bin
   str = Application.WorksheetFunction.Hex2Bin(Mid(value, iloop, 1))
   
   '字符串左补0操作 0->0000
   outStr = outStr + Format(str, "0000")
   
Next

For iloop = 2 To 33

ActiveSheet.Cells(aline, iloop).value = Mid(outStr, iloop - 1, 1)

Next

End Sub