|
お世話になります。
ワークシートにいくつかレコードがあり(仮に99とします)、そのレコードをテキストボックスの文字列で検索をかけるようにしたいと思っております。
(1行目はタイトル、G列までレコードが入っています)
Private Sub cmdksk_Click()
Dim knsk as String 'テキストボックスから文字列を取得する変数
Dim hkk as String 'ワークシートから文字列を取得する変数。
Dim s1i as Integer 'ループコントロール用の変数
Dim s2i as Integer 'ループコントロール用の変数
Dim hkkf1 As Boolean '文字列を比較して判別するフラグ
knsk = txtnrk.Value
knsk = StrConv(knsk, vbWide) 'テキストボックスから文字列を取得し
'全角文字に変換
For s1i = 2 To 100
For s2i = 1 To 7
hkk = Worksheets("sheet1!").Cells(s1i, s2i).Value
hkk = StrConv(hkk, vbWide) 'ワークシートより文字列を取得
'全角文字に変換
hkkf1 = "hkk" Like "*knsk*"
If hkkf1 = True Then
MsgBox "引っかかった"
End If
MsgBox hkkf1
hkkf1 = False
Next
Next
End Sub
検索が引っかかった場合次の処理をする予定なのですが、試みにここまでコーディングしてみました。
ところが、レコードとまったく同じ文字をテキストボックスに入力しても、レコードそのものをテキストボックスにコピーしてみても、likeの結果がまったくtrueになりません。
いったいどこに問題があるのでしょうか?。
どなたかご教示よろしくお願いします(*- -)_ _)。
|
|