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

◇前置き

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

毎度のことながら逆も作ってしまおう！ということで8進数を10進数に変換するマクロを紹介します。

◇概要

いつものようにこんなExcelを用意します。

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

◇ソースコード

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

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