HOME > 即効テクニック > Excel VBA > 関数関連のテクニック > 二進数から十進数を得るユーザ定義関数

二進数から十進数を得るユーザ定義関数|Excel VBA

関数関連のテクニック

二進数から十進数を得るユーザ定義関数

(Excel 97/2000)

サンプルマクロは、二進数で表された文字列から十進数を得るユーザ定義関数です。

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