【Excel】Unicodeを表示する関数

やること

【Excel】VBAで環境依存文字で項番を割り振る方法 #ExcelVBA - Qiitaを見て、㊿まで表示出来なかったっけ？と思い、Unicodeを表示する関数を作成する。

作成した関数

Function GetUnicodeChar(Cell As Range) As String
    Dim ch As String
    Dim code As Long
    ch = Cell.Value
    If Len(ch) > 0 Then
        code = AscW(ch)
        GetUnicodeChar = "U+" & Hex(code)
    Else
        GetUnicodeChar = ""
    End If
End Function

関連記事

Unicodeの丸数字（①とか）でやられた件 #JavaScript - Qiita

３６にまた見えない壁があったのか...
ここでようやくGoogle先生にご相談　
Wikipadiaにまさに丸数字のページが！！！

わざわざ関数作る必要なかった