|
こんにちは。かみちゃん です。
>F列に住所がずらっと並んでいて、小生の書きましたコードでは
>全角になるものとならないものが発生しています。
どのようにして全角になる、ならないを判断しているのでしょうか?
以下で紹介されている
http://vbatips.blog37.fc2.com/blog-entry-28.html#more
Function CheckHankaku(ByVal str As String) As Boolean
End Function
を使って、以下のようにチェックしてみるといいと思います。
Sub Sample()
Dim ss1 As String
Dim ss2 As String
ss1 = "○○市××野村12"
ss2 = StrConv(ss1, vbWide) '全角に変換
If CheckHankaku(ss1) Then
MsgBox "半角が混ざっています" & vbCrLf & ss1
Else
MsgBox "すべて全角です" & vbCrLf & ss1
End If
If CheckHankaku(ss2) Then
MsgBox "半角が混ざっています" & vbCrLf & ss2
Else
MsgBox "すべて全角です" & vbCrLf & ss2
End If
End Sub
|
|