Excel VBA質問箱 IV

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

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


22399 / 76738 ←次へ | 前へ→

【59721】Re:半角数字を全角数字にする
質問  pico  - 09/1/4(日) 8:56 -

引用なし
パスワード
   ▼かみちゃんさん kanabun さん:

今年もよろしくお願いします。
お礼が遅くなりました。有難うございました。

かみちゃんさんのご指導を使い
With Sheets("氏名リスト")
  For i = 7 To .Range("F65536").End(xlUp).Row
   .Cells(i, 6) = StrConv(.Cells(i, 6), vbWide)  '数字を全角に…
  Next i
End With
のコードで実行すると 下のアドレス12が全角に変わらないケースもありました、
何かコードが悪かったのでしょうか。
 ○○市××野村12


>(JISは VBAでは DBCS関数になります)

全角→半角は
エクセル関数でASC で出来ますが、VBAではどのような関数になるのでしょうか。

後一点ですが算用数字を漢数字、漢数字を算用数字にするには、
マクロの記録では下のようなコードになりますが、他にVBAでの関数が
あるのでしょうか。もしありましたら教えてください。
Selection.NumberFormatLocal = "[DBNum1][$-411]G/標準"
Selection.NumberFormatLocal = "[DBNum3][$-411]0"

有難うございました。

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

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