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

質問

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

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

回答No.1

kenpon24 · ベストアンサー

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

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

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

お礼

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