追加修正した
こんばんわ。
書籍検索について、複数の検索結果を表示できるようにしました。
具体的には、あいまい検索というやり方で行えるようになります。
例えば、「りんご」という文字列を検索するとき、今までは「りんご」という文字列を入力しなくてはいけませんでしたが「りん」や「り」「ご」という部分から抜き出せるようにしました。
「test」という文字列を検索すると、「test」「test2」「test3」という「test」という文字列の入ったのデータが、抽出されます。
like関数という関数を使いました。
With Sheets("記録")
i = .Cells(.Rows.Count, "A").End(xlUp).Row '最終行
keyword = "*[txt本]*"
For c = 2 To i
rng = .Cells(c, 1).text
If rng Like keyword Then 'エラーの原因？
'MsgBox rng & "テスト"
word = .Cells(c, 2)
.Cells(c, 8) = word '一度転記する
word = .Cells(c, 2) '再び戻す
frm複数検索.lst結果.AddItem word
Else: MsgBox "該当するものはありません", Buttons:=vbExclamation, Title:="処理結果"
End If
Next
frm複数検索.Show
MsgBox "処理が終わりました", Buttons:=vbInformation, Title:="システム"
End With
i = .Cells(.Rows.Count, "A").End(xlUp).Row '最終行
keyword = "*[txt本]*"
For c = 2 To i
rng = .Cells(c, 1).text
If rng Like keyword Then 'エラーの原因？
'MsgBox rng & "テスト"
word = .Cells(c, 2)
.Cells(c, 8) = word '一度転記する
word = .Cells(c, 2) '再び戻す
frm複数検索.lst結果.AddItem word
Else: MsgBox "該当するものはありません", Buttons:=vbExclamation, Title:="処理結果"
End If
Next
frm複数検索.Show
MsgBox "処理が終わりました", Buttons:=vbInformation, Title:="システム"
End With
コードは以上の通りです。
参考になさってください。
frm複数検索は、単純に表示される、リストボックスがあるだけです。
以上です。
最後になりますが、今まで開発をしてきた読書記録を公開していきます。
グーグルドライブからダウンロード可能です。
また、感動やご意見のある方は、以下のメアドに感想・改善点などを願いします。
お金を払ってでも使いたいなと感じたら義務ではありませんがアマゾンのギフトカードを以下のメアドに送っていただけると幸いです。
excel.vba.develop@gmail.com にて感想など伺います。
以上です。
開発は今後も続けていく予定です。