Excel VBA質問箱 IV

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

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


11968 / 13646 ツリー ←次へ | 前へ→

【13039】シフトJIS変換 迷宮入りH 04/4/21(水) 19:00 質問
【13047】Re:シフトJIS変換 bykin 04/4/21(水) 22:22 回答
【13049】Re:シフトJIS変換 迷宮入りH 04/4/21(水) 23:32 お礼

【13039】シフトJIS変換
質問  迷宮入りH  - 04/4/21(水) 19:00 -

引用なし
パスワード
   初めて投稿させて頂きます。
よくわからないので、皆さん是非教えて下さい。

ワークシートAのセルA3に、"あ"という文字列が入力してあります。
この"あ"という文字をシフトJISコードに変換するには、
どうすればいいのでしょうか?
ワークシート関数で変換しても、JISコードにしかならないので
どう考えていいのかよくわかりません。

何卒、宜しくお願いします。

【13047】Re:シフトJIS変換
回答  bykin  - 04/4/21(水) 22:22 -

引用なし
パスワード
   こんばんわ。

>ワークシート関数で変換しても、JISコードにしかならないので
>どう考えていいのかよくわかりません。

ワークシート関数でJISコードに変換できたんかな???
ま、それはともかく・・・

Sub test()
  MsgBox Hex$(Asc("あ"))
End Sub

こんなんでいけると思うねんけど・・・
ユーザー定義関数にするんやったら↓こんな感じ。

Function GetSJIS(Target As Range) As String
  GetSJIS = ""
  If Target.Cells.Count = 1 Then
    If Len(Target.Value) > 0 Then
      GetSJIS = Hex$(Asc(Left$(Target.Value, 1)))
    End If
  End If
End Function

例えばセルA1に あ と入ってて、別のセルに =GetSJIS(A1) って入れたら
82A0が表示されます。
試してみてな。
ほな。

【13049】Re:シフトJIS変換
お礼  迷宮入りH  - 04/4/21(水) 23:32 -

引用なし
パスワード
   bykin さん:こんばんは

早速試してみました。
やっと迷宮から抜け出すことができました。
ありがとうございました。

また何かありましたら、よろしくお願いします。

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