【VBA備忘録】VBAで特殊記号や禁則文字を入力したい！

2023年11月23日2024年3月6日

皆さんこんにちは、美容院の予約が面倒くさすぎてしばらく放置していたら 毎日壊滅的な寝癖がつくようになりました。がんばって予約します。

「普通じゃない文字」を使いたい

今日はVBAをやっているとたまにぶち当たる「普通じゃない」文字たち。 例えば、「”（ダブルクォーテーション）」はIF文などで抽出したりするときに IF Cells(1,1)="”" Thenと入れてもエラーになってしまいうまくいきません。 他にも「✓（チェックマーク）」のような環境依存文字はVBAのコードに入力すると?になります。 私が働いてる会社は中国との取引があるため中国語で作られたExcelシートをVBAで制御しようと試みましたが、中国語の漢字がVBAで使えず苦労していました。他にもハングル文字やラテン文字など他の国の文字って使いにくい印象です。

Shironeco(嫁)

VBAのコードに中国漢字を入れてると全部「？」になっちゃうのよね～

コードポイントを使って文字を入力する

UNICODE関数とは

ExcelにはUNICODE関数という 「文字列の最初の文字に対応する番号（コードポイント）を返してくれる」 非常に便利な関数があります。 例えば「♡」のコードポイントを知りたい場合は

=UNICODE(“♡") と入力すると9825と返してくれます。 ひらがなやカタカナ、漢字など日本語はもちろん数字や記号、外国の文字でもコードポイントは返ってきます。

UNICODEとはコードポイントとはなんぞやという方はこちらのサイトがとてもわかりやすかったので
一読されるとよろしいかと思います。

【図解】【3分解説】UnicodeとUTF-8の違い！【今さら聞けない】 #初心者 - Qiita

【図解】【3分解説】UnicodeとUTF-8の違い！【今さら聞けない】はじめにUnicodeとUTF-8の違いについて ...

 https://qiita.com/omiita/items/50814037af2fd8b2b21e

ChrW関数を使ってコードポイントから文字を入力する

UNICODE関数のなにが便利なのかというとVBAのChrW関数を使えば、コードポイントから文字を入力できるからです。

UNICODE関数で文字のコードポイントを抽出した表

A列の文字のコードポイントをD列に出した表です

VBAのChrW関数でE列にコードポイントに対する文字を入力する

=ChrW(コードポイント) →コードポイントを文字に変換します

Sub UNICODEの帰還()

’一番下の行までループ
For i = 3 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

’ChrW関数でD列の値を文字にする
a = ChrW(ActiveSheet.Cells(i, 4))
’E列に入力する

ActiveSheet.Cells(i, 5) = a

Next i

End Sub

D列のUNICODE関数で出したコードポイントを E列に文字として入力するプログラムです。

実行した結果は

E列にA列と同じ文字が入力されています。

超絶親切！主なコードポイント一覧

主なコードポイントを載せておきます。
VBAでChrW関数を使用すれば簡単に特殊文字が使用できます。

記号

特殊文字

• 【VBA備忘録】VBAで特殊記号や禁則文字を入力したい！
• 【VBA備忘録】Matchで日付が使えない