VBA 丸付き数字を使う - Excelと数学の覚書

データ内の数字を①、②・・・や➊、➋・・・Ⅰ、Ⅱ・・・で表示して目立つようにしたい場合、文字として扱うと①、②と順番に変えていくことが面倒です。

そこでUnicodeを使いたいのですがUnicode表は16進数で表示されているのが多く変数として扱うにはハードルが高い。

10進数に変換してしまえばVBA内で変数として扱えます。

ただし、最大値を意識せずにやってしまうと思わぬ文字が入ってきますので扱う最大値を考慮しながら使ってください。（Unicode一覧表で確認してください）

Sub 変数()
Dim AA
　　For AA = 2 To 5
　　　Cells(AA, 1) = ChrW(8544 + AA - 2)
　　Next AA
End Sub

Ⅰ

Ⅱ

Ⅲ

Ⅳ

（参考1）ある文字のUnicodeを調べたいとき

Sub 調査()
Dim txt As String
　txt = "勝"
　　　Cells(2, 1) = AscW(txt)
　　　Cells(2, 2) = Hex(AscW(txt))
End Sub

21213

52DD

　（参考2）Unicode(HEX）から文字に変換する場合

Sub 変換2()
　　　Cells(2, 1) = ChrW(&H2460)
　　　Cells(3, 1) = ChrW(2460)　　’間違えると予期せぬ文字が・・
End Sub　

①

জ