• はじめに
• Hex関数の基本
• Oct関数の基本
• 例を使った詳細な説明
• 補足説明と注意事項

はじめに

VBA（Visual Basic for Applications）は、Microsoft Office製品などで利用されるプログラミング言語です。VBAでは、数値を別の進数表記に変換するための便利な関数が用意されています。今回解説するのは、Hex(number) と Oct(number) の2つの関数です。

Hex 関数は、10進数（通常の数値）を16進数（0～9およびA～Fを使った表記）に変換します。一方、Oct 関数は、同じく10進数を8進数（0～7の数字だけで表される）に変換します。これらの関数は、特にデバッグ時の値の確認や、ハードウェアとの連携、ファイルフォーマットの処理など、さまざまな場面で役立ちます。

Hex関数の基本

Hex 関数は、指定した数値を16進数の文字列に変換して返します。例えば、10進数の 255 を16進数に変換すると「FF」となります。

VBAでは、以下のように使用します。

Dim decNum As Integer
decNum = 255
Debug.Print Hex(decNum)  ' 結果は "FF" と表示されます
  

ポイント: 出力される文字列は常に大文字のアルファベットが使われます。また、Hex 関数は引数として数値を受け取るため、数値以外の値を渡すとエラーになる場合があります。

さらに、16進数は0～9に加え、A～Fの記号を使って表現されるため、プログラム中でビット演算を行う際や、色指定（RGBなど）の値を扱う場合にも利用されます。

Oct関数の基本

Oct 関数は、指定した数値を8進数の文字列に変換して返します。8進数は、0から7までの数字のみを用いた数の表現方法です。例えば、10進数の 10 を8進数に変換すると「12」となります。

使用例は以下の通りです。

Dim decNum As Integer
decNum = 10
Debug.Print Oct(decNum)  ' 結果は "12" と表示されます
  

ポイント: Oct 関数もまた、引数として数値を受け取ります。8進数表記は、一部のレガシーシステムや特定のプログラムで利用されることがあり、計算結果やデータのフォーマットを確認するのに有用です。

例を使った詳細な説明

ここでは、具体的な例を通して Hex と Oct 関数の使い方をさらに詳しく解説します。

例1: 16進数への変換
数値 100 を16進数に変換する場合：

Dim num1 As Integer
num1 = 100
' 100(10進) は 64(16進) になります
Debug.Print Hex(num1)  ' 出力: "64"
  

例2: 8進数への変換
数値 100 を8進数に変換する場合：

Dim num2 As Integer
num2 = 100
' 100(10進) は 144(8進) になります
Debug.Print Oct(num2)  ' 出力: "144"
  

例3: 異なる数値の変換
数値 255 や 16 の場合、それぞれの変換結果は以下のようになります。

Dim num3 As Integer
Dim num4 As Integer

num3 = 255
num4 = 16

' 255(10進) は FF(16進) となり、 16(10進) は 10(16進) になります
Debug.Print "255の16進数は " & Hex(num3)   ' 出力: "255の16進数は FF"
Debug.Print "16の16進数は " & Hex(num4)      ' 出力: "16の16進数は 10"

' また、8進数の場合は
' 255(10進) は 377(8進) となり、 16(10進) は 20(8進) になります
Debug.Print "255の8進数は " & Oct(num3)   ' 出力: "255の8進数は 377"
Debug.Print "16の8進数は " & Oct(num4)      ' 出力: "16の8進数は 20"
  

例4: 計算結果を利用する
変換結果を変数に代入して、他の処理で利用する例です。

Dim decValue As Long
Dim hexString As String
Dim octString As String

decValue = 1234
hexString = Hex(decValue)  ' 1234(10進) の16進数表現を取得
octString = Oct(decValue)  ' 1234(10進) の8進数表現を取得

' 結果をメッセージボックスで表示
MsgBox "10進数 " & decValue & " の16進数は " & hexString & "、8進数は " & octString
  

補足説明と注意事項

VBAの Hex および Oct 関数は、非常にシンプルで使いやすい関数ですが、いくつかの注意点があります。

• 引数の型: 関数は数値型（Integer、Long、Double など）の引数を受け取ります。文字列型や他の型を渡すと、エラーが発生する可能性があります。
• 負の数の扱い: 負の数を変換する場合、内部的には2の補数表現に基づいて結果が返されます。たとえば、Hex(-1) とすると、システムによっては「FFFFFFFF」といった結果になることがあります。負の数を扱う際は、変換結果が意図したものか確認するようにしましょう。
• 出力の形式: 返されるのは文字列です。数値としての計算には直接利用できないため、必要に応じて数値への変換や、文字列としての取り扱いを意識する必要があります。
• 用途の選定: 16進数や8進数の表記は、デバッグ情報の表示、ハードウェア制御、ファイルフォーマットの処理など特定の場面で役立ちます。通常の算術計算では10進数を使用するのが一般的です。

以上の点に注意しながら、Hex と Oct 関数を活用することで、VBAでのプログラミングがより柔軟かつ効率的になるでしょう。特に、数値の進数変換が必要なシナリオにおいては、これらの関数は非常に強力なツールとなります。

VBA初心者の方も、まずは簡単な例から試してみることで、数値の変換や進数表記の理解を深めることができます。ぜひ、実際にコードを書いて動作を確認しながら学習を進めてください。