NEW ARTICLE
PyCharm 最近の変更を一覧表示するショートカットキー
  1. HOME
  2. vba
  3. VBA 環境依存文字の文字コードを取得する

VBA 環境依存文字の文字コードを取得する

  • 作成日 2022.09.08
  • vba
VBA 環境依存文字の文字コードを取得する

VBAで、環境依存文字の文字コードを取得するコードを記述してます。

目次

環境

  • OS windows10 64bit

サンプルコード

環境依存文字の文字コードを取得するには、「AscW」と「Hex」を使用します。

Hex(AscW(文字列))

適当なボタンを用意して、指定したセルに入力されいる環境依存文字の文字コードをセルに表示します。
以下のソースコードを記述します。

ソースコード

Option Explicit

Private Sub CommandButton1_Click()

    Dim str, strc As String
    Dim i As Long
    
    str = Cells(2, 2).Text
    
    Cells(2, 3).Value = Hex(AscW(str))

End Sub

ボタンをクリックすると、文字コードが表示されていることが確認できます。

文字列の場合は、以下のようにfor文で取得します。

Option Explicit

Private Sub CommandButton1_Click()

    Dim str, strc As String
    Dim i As Long
    
    str = Cells(2, 2).Text
    
    For i = 1 To Len(str)
        strc = Mid(str, i, 1)
        Cells(i + 2, 2).Value = Hex(AscW(strc))
 
    Next
    

End Sub

実行結果

文字コードから表示

逆に文字コードから表示する場合は、「ChrW」を使用します。

Option Explicit

Private Sub CommandButton1_Click()    
    
    Cells(2, 2).value = ChrW("&H" & 2622)    

End Sub

実行結果