Excel VBA質問箱 IV

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

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


68227 / 76734 ←次へ | 前へ→

【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が表示されます。
試してみてな。
ほな。
0 hits

【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 お礼

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