Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60404 / 76732 ←次へ | 前へ→

【20967】Re:VBAでコード変換
発言  ichinose  - 04/12/29(水) 1:33 -

引用なし
パスワード
   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

なんて方法で取得できます。

参考になれば・・・・。

0 hits

【20954】VBAでコード変換 ino 04/12/28(火) 13:49 質問
【20963】Re:VBAでコード変換 ちゃっぴ 04/12/29(水) 0:21 回答
【20967】Re:VBAでコード変換 ichinose 04/12/29(水) 1:33 発言
【20970】Re:VBAでコード変換 ちゃっぴ 04/12/29(水) 18:29 発言

60404 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free