Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22391 / 76738

←次へ　｜　前へ→


	【59730】Re:半角数字を全角数字にする

かみちゃん

- 09/1/4(日) 22:09 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>F列に住所がずらっと並んでいて、小生の書きましたコードでは
>全角になるものとならないものが発生しています。

どのようにして全角になる、ならないを判断しているのでしょうか？

以下で紹介されている
ｈｔｔｐ://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

0 hits

▼

【59654】半角数字を全角数字にする pico 08/12/29(月) 20:48