こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBA 半角・全角関係無く検索する方法

エクセル2000使用
シートにあるデータを検索のプログラムを作成してます。(一応検索可能)
シート内のデータは半角・全角両方使用されているので、検索の際、半角なら半角で入力したものしか出ないようになっています。
半角でも全角でも検索したら両方でるプログラムって出来ないですか? 初心者なのでわかりません。(以下のプログラムも色んなところのを参考にしているので内容もあまりわかっていない状況です・・・)わかる方宜しくお願いいたします。(プログラム長かったので一部省略しています)

Sub 検索_Click()
Dim kw As String
Dim jk As String

  kw = 検索画面.検索名.Value
jk = "*" & kw & "*"

Application.ScreenUpdating = False
Sheets("sheet2").Activate
Cells.Clear

If 検索画面.件名.Value = True Then
With Sheets("リスト")
.Range("A2").AutoFilter field:=4, _
Criteria1:=jk

.Range("A2").CurrentRegion.Copy _
destination:=Sheets("sheet2").Range("A3")

.Range("A3").AutoFilter
End With
End If

End Sub

投稿日時 - 2008-07-18 13:53:11

QNo.4185886

困ってます

質問者が選んだベストアンサー

これは・・・検索自体をオートフィルタで行っている限り
自動判別は難しいのでは。

半角にするならStrConv(文字列, vbNarrow)
全角にするならStrConv(文字列, vbWide)

でできるから、検索条件つける前にデータをどちらかに統一したほうがいいんではないでしょうか。

投稿日時 - 2008-07-18 14:28:16

お礼

オートフィルタだと判別できないんですね。
しかし、kenpon24さんのおかげで入力時に統一する方法がわかりました。
本当にありがとうございました。

投稿日時 - 2008-07-18 15:39:53

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問