Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22397 / 76738

←次へ　｜　前へ→


	【59723】Re:半角数字を全角数字にする

りん - 09/1/4(日) 10:15 -


	引用なし

	パスワード

pico さん、おはようございます。

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

です。

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

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

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

0 hits

▼

【59654】半角数字を全角数字にする pico 08/12/29(月) 20:48