VBA怎么转化2进制为16进制?

Question

如题..有没有什么函数可以之接用?或者自定义函数?

Answer 1

BIN2HEX函数
=BIN2HEX(1111111111)    将二进制数字 1111111111 转换为十六进制数字 (FFFFFFFFFF)

Answer 2

EXCEL 2007可以直接用
2003貌似需要加载分析工具库

Answer 3

额。。不好意思，我没问清楚，我是想问有没有在VBA中能用的函数。。不是在Excel中。

Answer 4

这样不行的,我是2003,不能用worksheetfunction
最好有个算法,好像VC有很方便的函数,VB里找不到..

Answer 5

自己写个函数:
Function BinToHex(ByVal sBin As String) As String
  Const BinChar = "0000000100100011010001010110011110001001101010111100110111101111"
  Dim i As Integer, j As Integer, s As String
  BinToHex = ""
  sBin = "000" & sBin
  sBin = Right(sBin, (Len(sBin) \ 4) * 4)
  For i = Len(sBin) \ 4 - 1 To 0 Step -1
    s = Mid(sBin, i * 4 + 1, 4)
    For j = 0 To 14
      If s = Mid(BinChar, j * 4 + 1, 4) Then Exit For
    Next j
    If j < 10 Then
      BinToHex = Chr(j + Asc("0")) + BinToHex
    Else
      BinToHex = Chr(j - 10 + Asc("A")) + BinToHex
    End If
  Next i
End FunctionPrivate Sub Form_Load()
    Debug.Print BinToHex("10100101")
    End
End Sub