| |
こんにちは。かみちゃん です。
> 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
この部分だけコメントさせていただきます。
全角に変わらないというのは、どのように判断しているのでしょうか？
試しに、以下のコードを実行して、バイト数（半角1バイト、全角2バイト）を確認
してみてください。
Sub Sample()
Dim ss1 As String
Dim ss2 As String
ss1 = "○○市××野村12"
ss2 = StrConv(ss1, vbWide) '全角に変換
MsgBox ss1 & " バイト数" & LenB(StrConv(ss1, vbFromUnicode)) & vbCrLf & _
ss2 & " バイト数" & LenB(StrConv(ss2, vbFromUnicode))
End Sub
変数ss1は、16バイト（全角7文字、半角2文字）
変数ss2は、18バイト（全角9文字）
になっていることが確認できませんか？
|
|
かみちゃん
- 09/1/4(日) 9:48 -
