| |
小僧さんさっそくのレスありがとうございます！！
ばっちり検索できました。
ちなみにもう一つお尋ねしてもよろしいですか？
カンマは半角ではなく全角のままでも検索できるようにはできますか？
どのように書き換えればよろしいでしょうか？
書いたコードは以下の通りです。
Private Sub 検索btn_Click()
Dim Kensaku As String
Dim S As Variant
Dim I As Long
If InStr(1, Me.txt検索.Value, ",") > 0 Then
S = Split(Me.txt検索.Value, ",")
For I = 0 To UBound(S, 1)
Kensaku = Kensaku & "([質疑] And [解答] LIKE '*" & S(I) & "*') And "
Next
Kensaku = Left(Kensaku, Len(Kensaku) - 4)
Else
Kensaku = "[質疑] and [解答] LIKE '*" & Me.txt検索.Value & "*'"
End If
Me.Filter = Kensaku
Me.FilterOn = True
End Sub
|
|
cya
- 05/7/7(木) 12:26 -
