| |
▼かみちゃんさん 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ではどのような関数になるのでしょうか。
後一点ですが算用数字を漢数字、漢数字を算用数字にするには、
マクロの記録では下のようなコードになりますが、他にＶＢＡでの関数が
あるのでしょうか。もしありましたら教えてください。
Selection.NumberFormatLocal = "[DBNum1][$-411]G/標準"
Selection.NumberFormatLocal = "[DBNum3][$-411]0"
有難うございました。
|
|
pico
- 09/1/4(日) 8:56 -
