Excel 使用VBA 自定义函数
- 启用Excel开发工具
- 打开Excel 的VBA (ALT+F11)
- 新键VBA工程模块
- 写入自定义函数
Function HexIPAddr(strIPAddr As String, isAsc As Boolean) As String Dim arry, bit0 As String, bit1 As String, bit2 As String, bit3 As String arry = Split(strIPAddr, ".") bit0 = Hex(arry(0)) bit1 = Hex(arry(1)) bit2 = Hex(arry(2)) bit3 = Hex(arry(3)) If Len(bit0) = 1 Then bit0 = "0" + bit0 End If If Len(bit1) = 1 Then bit1 = "0" + bit1 End If If Len(bit2) = 1 Then bit2 = "0" + bit2 End If If Len(bit3) = 1 Then bit3 = "0" + bit3 End If If isAsc = True Then HexIPAddr = bit0 + bit1 + bit2 + bit3 Else HexIPAddr = bit3 + bit2 + bit1 + bit0 End If End Function
- 另存为 启用宏 的工作簿
-
重新打开即可使用刚刚创建的自定义函数
