Excel VBAで丸数字を自動で振る方法（ChrW関数）

VBA開発依頼の資料（サンプル）の項番に丸数字が使われていた・・・

　Excelで①、②、③…のような 丸数字 を連番として振る方法の覚書き。
　VBAの ChrW関数 を使うことで、ユニコードから丸数字など環境依存文字を呼び出せる。

丸数字はUnicodeの U+2460 から始まる。
ChrW関数を使うと、以下のように対応する文字を取得できる。

※ 10進数表記でコードを書きたい場合は、"&H"を除くこと
※ Unicodeの調べ方：Unicodeの文字コード確認ツール

Sub 丸数字を振る()
    Dim i As Integer
    For i = 0 To 19 ' 20個の丸数字を振る
        Range("A" & i + 1).Value = ChrW(&H2460 + i) 
    Next i
End Sub

**環境依存文字のため、フォントによっては表示されない場合があru
- 例：MS Pゴシック、メイリオでは正常表示されるが、一部のフォントでは"□"になる。
丸数字は20（⑳, U+2473）までしかないため、それ以上の数値は別の方法が必要。
- 21以上の番号を付けたい場合は、通常の数字を使うのが無難・・・

　ChrW関数を使えば、Excel VBAで簡単に ①、②、③…のような環境依存文字 を呼び出すことができる。
フォントや、丸数字は"20"までしかないなどの制約があるので、必要に差し迫られたとき以外は使わないほうがいいと思われる・・・