Excel VBA質問箱 IV

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

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


22385 / 76732 ←次へ | 前へ→

【59730】Re:半角数字を全角数字にする
発言  かみちゃん E-MAIL  - 09/1/4(日) 22:09 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>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
0 hits

【59654】半角数字を全角数字にする pico 08/12/29(月) 20:48 質問
【59655】Re:半角数字を全角数字にする かみちゃん 08/12/29(月) 20:56 発言
【59656】Re:半角数字を全角数字にする kanabun 08/12/29(月) 21:27 発言
【59721】Re:半角数字を全角数字にする pico 09/1/4(日) 8:56 質問
【59722】Re:半角数字を全角数字にする かみちゃん 09/1/4(日) 9:48 発言
【59729】Re:半角数字を全角数字にする pico 09/1/4(日) 21:21 お礼
【59730】Re:半角数字を全角数字にする かみちゃん 09/1/4(日) 22:09 発言
【59744】Re:半角数字を全角数字にする pico 09/1/6(火) 20:12 発言
【59747】Re:半角数字を全角数字にする かみちゃん 09/1/6(火) 23:03 発言
【59723】Re:半角数字を全角数字にする りん 09/1/4(日) 10:15 発言
【59736】Re:半角数字を全角数字にする pico 09/1/5(月) 20:23 お礼

22385 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free