【VBA】2進数を10進数に変換するマクロ

◇前置き

先日、10進数を2進数に変換するマクロを紹介しました。
↓詳しくはこちらから
wwwmotou.hatenablog.com

10進数→2進数のマクロを作ったのなら逆も作っちゃいましょう！
ということで今日は2進数を10進数に変換するマクロを紹介します。

◇概要

先日と同じようなExcelを用意します。
※B列とC列を入れ替えただけですね。

B列に2進数を入れて変換ボタンをクリックするとC列に10進数が出力されます。

◇ソースコード

ソースコードはこんな感じです。

Sub Number_2_to_10()
 
Dim Num2 As Long
Dim i As Integer
Dim count As Integer
   i = 0
   count = 0
   
   For i = 3 To 14
       Num2 = Range("B" & i)
       If Range("B" & i).Value <> "" Then
           Range("C" & i).Value = WorksheetFunction.Bin2Dec(Num2)
           count = count + 1
       End If
   Next
 
   MsgBox count & "件のデータを2進数⇒10進数に変換しました。"
 
End Sub

昨日との違いはこの部分ですね。

Range("C" & i).Value = WorksheetFunction.Bin2Dec(Num2)

Dec2Bin(10進→2進)だったところがBin2Dec(2進→10進)になっています！

◇使い方

実際に動かしてみます。
まずは適当な値を入力します。

変換ボタンをクリックすると........

無事変換されました！

◇最後に

先日と同様なかなかニッチなマクロですが、有難みが分かる人には分かるそんなマクロだと思います。

この記事も誰かの役に立つとうれしいです。