二進数から十進数を得るユーザ定義関数|Excel VBA |
サンプルマクロは、二進数で表された文字列から十進数を得るユーザ定義関数です。
Function Sample(Binary As String) As Long
Dim myLen As Integer
Dim i As Integer
myLen = Len(Binary)
For i = 1 To myLen
If Mid(Binary, i, 1) = "1" Then
Sample = Sample + 2 ^ (myLen - i)
End If
Next
End Function