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

サンプルマクロは、十進数の非負数から二進数を得るユーザ定義関数です。

Function Sample(Number As Long) As String

Dim myYard As Long
Dim myNumber As Long
Dim myExpo As Long

    myNumber = Number
    While 2 ^ myYard <= myNumber
        myYard = myYard + 1
    Wend
    
    For myExpo = myYard - 1 To 0 Step -1
        If myNumber >= 2 ^ myExpo Then
            Sample = Sample & "1"
            myNumber = myNumber - 2 ^ myExpo
        Else
            Sample = Sample & "0"
        End If
    Next

End Function