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
実行結果

-
前の記事
Linux wgetでファイルの名前を指定してダウンロードする 2022.09.08
-
次の記事
windows ファイル名を指定して実行履歴をショートカットキーで確認する 2022.09.08
コメントを書く