|
▼かみちゃん さん:
有難うございました。
判りました…
半角の数字がセルの書式設定が「標準」ですと
全角になってくれませんでした。
文字列に先ず変更すると、全て全角変換してくれました。
それからいただきましたコードですが
CheckHankaku(ss1)のところでエラーになります。
何か宣言しておく必要があるのでしょうか?
>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
|
|