2016年9月24日土曜日

先頭文字の文字コードを16進表記で返す関数

引数として「A」を渡したら「41」、「あ」を渡したら「82A0」を返す関数。
Function GetHexCode(xs As String) As String
    GetHexCode = Hex(Asc(xs))
End Function
ワークシートから呼び出してもいいし、VBAの中で呼び出してもOK。

0 件のコメント:

コメントを投稿