|
こんにちは。かみちゃん です。
> 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文字)
になっていることが確認できませんか?
|
|