関数・メソッド

10進数<->16進数に変換する【Hex関数】【ExcelVBA】

構文

Hex(Number)

Number・・・・ 16進数に変換したい数値(10進数)
戻り値・・・・・文字列型のVariant
10進数を16進数に変換する関数です。

Hex関数のサンプルコード

Public Sub sample_hex_10_16()
    
    '■通常の使い方(10進数→16進数)
    Debug.Print Hex(1)  '1
    Debug.Print Hex(10) 'A
    Debug.Print Hex(15) 'F
    Debug.Print Hex(16) '10
    Debug.Print Hex(17) '11
    Debug.Print Hex(31) '1F
    Debug.Print Hex(32) '20

    '■16進数の桁数を合わせる(10進数→16進数)
    Debug.Print Right("0000" &amp; Hex(31), 4) '001F

    '■16進数を他の関数に渡す場合(10進数→16進数)
    Debug.Print "&amp;H" &amp; Right("0000" &amp; Hex(31), 4) '&amp;H001F

    '■16進数を10進数に戻す
    Debug.Print CLng("&amp;H001F")  '31

    '■各種エラー
    'Debug.Print Hex() '引数は省略できません
    'Debug.Print Hex("A") '実行時エラー13 型が一致しません
    
End Sub

その他

関連記事

【VBA一覧】ColorIndex(文字色/背景色/見出し色)
カラーも16進数で表記する場合もありますね。

コメント

タイトルとURLをコピーしました