Excel VBA質問箱 IV

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

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


22391 / 76732 ←次へ | 前へ→

【59723】Re:半角数字を全角数字にする
発言  りん  - 09/1/4(日) 10:15 -

引用なし
パスワード
   pico さん、おはようございます。

>全角→半角は
>エクセル関数でASC で出来ますが、VBAではどのような関数になるのでしょうか。
逆の場合は、
StrConv関数の引数を「vbNarrow」にします。
Sub test()
  s1 = "アイウエオ"
  MsgBox s1 & vbCrLf & StrConv(s1, vbNarrow)
End Sub

です。

>後一点ですが算用数字を漢数字、漢数字を算用数字にするには、
>マクロの記録では下のようなコードになりますが、他にVBAでの関数が
>あるのでしょうか。もしありましたら教えてください。
VBAではなくてワークシート関数ですが、NUMBERSTRING関数というのがあります。VBAで使うときはこんな感じです。

Sub Macro1()
  s1 = "1234567890"
  MsgBox Application.Evaluate("NUMBERSTRING(" & s1 & ",3)")
End Sub

但し、書式設定と同様に数値のみが対応なので、住所などのように文字列に含まれた数字を漢字にしたい時には向いてないと思います。
0 hits

【59654】半角数字を全角数字にする pico 08/12/29(月) 20:48 質問
【59655】Re:半角数字を全角数字にする かみちゃん 08/12/29(月) 20:56 発言
【59656】Re:半角数字を全角数字にする kanabun 08/12/29(月) 21:27 発言
【59721】Re:半角数字を全角数字にする pico 09/1/4(日) 8:56 質問
【59722】Re:半角数字を全角数字にする かみちゃん 09/1/4(日) 9:48 発言
【59729】Re:半角数字を全角数字にする pico 09/1/4(日) 21:21 お礼
【59730】Re:半角数字を全角数字にする かみちゃん 09/1/4(日) 22:09 発言
【59744】Re:半角数字を全角数字にする pico 09/1/6(火) 20:12 発言
【59747】Re:半角数字を全角数字にする かみちゃん 09/1/6(火) 23:03 発言
【59723】Re:半角数字を全角数字にする りん 09/1/4(日) 10:15 発言
【59736】Re:半角数字を全角数字にする pico 09/1/5(月) 20:23 お礼

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