|
ino さん、ちゃっぴさん、こんばんは。
>皆様方に質問です。
>VBAにてセルに登録された文字列を判定したいのです。
>EUCコードに変換して100バイトまでとしたいのですが、変換の仕方が分かりません。
>お願いします。
ツールがあるのなら、それを使うのが便利ですよねえ!!
ただ、勉強も兼ねてなら・・・、
VBAで取得できるコードとEUCコードの関係を調べると解法が見出せるかと思います。
http://www.unixuser.org/~euske/doc/kanjicode/
↑この辺にそのヒントが出ていますので、参考にして下さい。
これ見るとシフトJISからの変換が簡単そうですが・・・。
ちなみにVBAでS-JISのコードを取得するには、
'============================
Sub Main()
Dim mystr As String
Range("a1").Value = "今年も後ワズカ"
mystr = Range("a1").Value
ReDim s_jiscd(1 To Len(mystr))
i = 1
For i = 1 To Len(mystr)
s_jiscd(i) = Hex(Asc(Mid(mystr, i, 1)))
Next i
MsgBox Join(s_jiscd(), ",")
End Sub
なんて方法で取得できます。
参考になれば・・・・。
|
|