絵手紙・己書 検索プログラム作成

Excel VBA で実用的な処理速度を実現し様々な画像フォルダに対応した検索と拡大表示などのプログラムを作成しましたのでここに記します。

<追記>             2019.10.28

・更に機能を追加しました。番号入力が From 、To になり連続で変更・削除が可能になりました。

・削除したとき検索結果の一口コメントに「既に削除済み」と表示し以後の処理はスキップします。

・データを追加した場合はその結果を検索します。

・検索の前に必要な場合テーブルをソートし直します。

・検索対象・一口コメントは新しい文言が入力された場合追加処理をします。

・その場合追加するかしないか選択できます。

・開発専用ボタンも付けました。パスワードを入力すると VBE を開きます。

・最新画面は次のようになりました。

以下に、プログラム設計書 及び ソース・コード をダウンロードできるようにしました。

[.txt]がアップロードできないので [.pdf] で作ってあります。参考になさってください。

<追記>             2019.10.22

・検索入力部の [検索対象] [一口コメント] でも項目の追加ができるように改良しました。追加したものは一覧の最後に入ります。

・使用できる画像の種類を [.jpg] [.png] [.bmp] [.gif] に拡大しました。

・ファイル追加の時に拡張子の入力をしなくて良いように変更しました。同一ファイル名で拡張子の違うものがある場合[.jpg] [.png] [.bmp] [.gif]の順序で調べますので最初に見つかったものだけがテーブルに登録されます。

・テーブル名を [テーブル1] から [DataBase] に変えました。[テーブル1] だと自動で作られるものと同じ場合があり既にあるとエラーに成るからです。

・データベースの取得の時、既にあるものは変更しないで存在しないものだけ追加するようにしました。結果はファイル作成日の昇順でソートをします。

・エラーの処理の徹底を図り異常終了をしないようにしました。

・画面のデザインを少し変更しました。

私の作ったプログラムの概要は以上です。

検索データ件数が数千件までならとても実用的な処理速度です。

流石に１万件以上に成ると縮小画像がないと処理が遅すぎます。

はじめに時間はかかりますが、縮小画像を作れば１万件を検索しても３分半くらいで処理が終わります。これなら時間的に許せる範囲だと思います。

ちなみに Visual C# で同様のプログラムも作って処理時間を測ってみましたが Excel VBA のプログラムで縮小画像がある場合は同等の処理時間でした。

なお、データベースの追加・変更・削除の処理は元の画像フォルダ内のファイルにはなんの影響も与えません。検索可能なデータベースの処理だけにとどまります。