【VBA】10進数を2進数へ、2進数を10進数へ変換する

10進数を2進数へ変換

Option Explicit

Sub sample()

    Dim tempNum As Long
    
    '「2進数へ変換したい数字(10進数)」を指定
    tempNum = 10

    '10進数を2進数へ変換
    MsgBox tempNum & "の2進数は『" & WorksheetFunction.Dec2Bin(tempNum, 6) & "』です！"

End Sub

上記を実行すると
　・10進数を2進数へ変換
できたことを確認できます。
※第2引数に「6」を指定したため、先頭の2桁が0埋めされて6桁になっています。

2進数を10進数へ変換

Option Explicit

Sub sample()

    Dim tempNum As Long
    
    '「10進数へ変換したい数字(2進数)」を指定
    tempNum = 10101

    '2進数を10進数へ変換
    MsgBox tempNum & "の10進数は『" & WorksheetFunction.Bin2Dec(tempNum) & "』です！"

End Sub

上記を実行すると
　・2進数を10進数へ変換
できたことを確認できます。

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「WorksheetFunctionオブジェクト」の「Dec2Bin」メソッド

●「WorksheetFunctionオブジェクト」の「Bin2Dec」メソッド

●Excel関数の「Dec2Bin」
※使用例(どういう値を指定した時、どういう結果になるかの例)が記載されています。

●Excel関数の「Bin2Dec」
※使用例(どういう値を指定した時、どういう結果になるかの例)が記載されています。