ＶＢＡでコードから漢字に変換するのは

質問

ＶＢＡを使用していますが、コードから漢字を求める方法が見つかりません。
たとえば、３０２１から漢字の亜を求めたいのですが。
１バイト文字ならＣｈｒ関数で求められますが、２バイト文字、つまり、漢字を求める方法が見つからないのです。　どなたか教えていただきたいのですが。

回答No.2

nishi6

先ほどの回答は早とちりしていました。シート上で行ってしまい、質問にＶＢＡ・・・があるのを見落としていました。16進数を10進数に変換することを簡単に行うためにアドインを持ち出してしまいました。問題はこれではなかったようです。すいませんでした。
シート上なら、3021(16進数)を10進数(12321)に直して、Char(12321)で亜が出ます。

気になったのでＶＢＡで行ってみたら、なるほど、うまくいきません。色々行ってみましたが？？？です。シートでなら簡単なので、苦し紛れに下記を書いてみました。ＶＢＡを使っていることになるのかどうか分かりませんが、例として、A1に16進数を書き込み、B1に=Char(A1)を書いておき、ＶＢＡ側でRange("B1")で値を拾っています。
これも回答になっていないと思いますが参考程度にして下さい。また調べてみます。
他の方からいい回答がきますように。

'A1に16進数を入れて、B1にはあらかじめ「=Char(A1)」をセットしています
Sub Code2Kanji()
Dim i As Integer 'カウンタ
Dim cd As Integer '漢字コード
Dim cd2Kanji As String 'その漢字
Dim cdHex As Long 'cdを16進数に
cd = 3021
For i = 1 To 4
cdHex = cdHex * 16 + Mid(cd, i, 1)
Next
Range("A1") = cdHex
cd2Kanji = Range("B1")
Debug.Print cd2Kanji
End Sub