VBA Chr 関数

はじめに

Excel VBA マクロの Chr 関数を紹介します。

Chr 関数は、指定した文字コード (Shift_JIS) に対応する文字を返します。

Shift_JIS の文字コードを文字に変換したいときに使用します。

• 文字の 1 バイトのデータ取得するには ChrB 関数を使用します。
• Unicode から Unicode 文字を取得するには ChrW 関数を使用します。

構文

Chr(文字コード)

名前	説明
引数「文字コード」	Shift_JIS の文字コードを指定します。 半角文字は 0 ～ 255 の範囲を指定してます。 全角文字は -32768 ～ 65536 の範囲を指定してます。
戻り値	文字列型 (String)

解説

半角文字は1やAなどの、半角の数字やアルファベットのことです。

全角文字はあやＡなどの、ひらがなやカタカナの全角の文字のことです。

対応した文字がない時は何も返しません。

文字の文字コードを取得するには「Asc 関数」を使用します。

文字コード	値
9	タブ
10	ラインフィード
13	キャリッジリターン
48	0
65	A
97	a
-32096	あ

インターネット上にある文字コード表は 16 進数になっています。16 進数を文字コードに渡すには&H82A0のように &H を頭に付けます。ちなみに&H82A0はあの文字コードです。

使用例

Dim s As String

s = Chr(65)
Debug.Print (s) ' A

s = Chr(97)
Debug.Print (s) ' a

s = Chr(&H82A0)
Debug.Print (s) ' あ

s = Chr(-32096)
Debug.Print (s) ' あ

文字の文字コードを取得する。

Dim i As Integer

i = Asc("A")
Debug.Print (i) ' 65

i = Asc("あ")
Debug.Print (i) ' -32096