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

◇前置き

今日の記事も基数変換シリーズです。
今回まで2⇔10進数、16⇔10進数の変換マクロを紹介してきました。

ここまで来たら8⇔10進数もやってしまおう！ということで、10進数を8進数に変換するマクロを紹介します。

◇概要

毎度のことながらこんな感じのExcelを用意します。

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

◇ソースコード

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

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