十進数から二進数を得るユーザ定義関数|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