Excelファイルを正規表現検索できるツール（オートシェイプ・コメント対応）をアップデートしました

このツールは以下のような状況下で開発している方を対象としています。

• Excelで作られた資料が大量にある
• 図形をふんだんに使っていて標準の検索では探せない
• 自由にソフトウエアを導入できない
• Excelのアドインも導入できない

アドインが導入可であれば、「RelaxTools Addin」を導入するのが良いと思います。

• RelaxTools Addin for Excel 2007/2010/2013/2016 | Excelを便利にする250以上の機能を体系化したアドインはこちらです。

単体のソフトウェアとしては「探三郎」が良さそうです。スタンドアロン版はフリーソフトとして公開されています。

• 探三郎のページ

自分の作った物は、ソフトの導入はもちろん、インターネットにも繋がらず、かろうじてソースコードを紙で持ち込むくらいしかできない状況下で使えるように、単一のHTMLファイルにしています。

セル内文字列の検索が正規表現に対応してなかったので、正規表現で検索するようにしました。コメントやオートシェイプは正規表現で検索してたのですが。

というのも、以前はRange#Findで文字列検索したあと、FindNextメソッドで次を検索とやっていました。どこかのサンプルをコピってきただけです。

じゃあ普通に使われている範囲のRangeオブジェクトを取得して、ループで回せばいいと思って以下のようなコードを書いたのですが、遅いのなんの。

Rangeオブジェクトを1つずつ取得する度にExcelが動いてるようで、対象セルが2000個くらいあると数十秒もかかりました(；´Д`A

VBAだと配列化というテクニックで対象セルの値を一気に配列へコピーしてから検索すると速くなるようなのですが、VBScriptは使いたくなくてJavaScriptで書いているのでうまくいきません。

• VBA(Excel)高速化対策 -配列化編- - Qiita

Range#Valueで2次元配列が取り出せるようなのですが、デバッガで見るとプロパティは見えるのに、参照するとundefinedになるという謎(´・ω・｀)

調べた結果、VBArrayというクラスでラップするとアクセスできるのが分かりました。

VBArrayはlbound(次元数)で最小値、ubound(次元数)で最大値が取れるので、その範囲で回してやります。これでセル数が多くてもそこそこの速さで検索できるようになりました。

あとはShape#TextFrame#Characters()がExcel2016だと例外吐く時があるようで、めんどいのでtry～catchでスルー(；´∀｀)

使い方

Internet Explorerで開きます。上のような警告がでますが、問題無いのではいを押します。

フォームにキーワード（正規表現可）、検索したいExcelファイルのあるパスを指定します。サブフォルダも辿るので、必要なファイルだけ適当なディレクトリにコピーして置くと良いです。

ファイルにパスワードがかかっている場合は1つだけ指定可能です。ファイル毎に異なる場合は対応できていません。

検索対象としてセル、オートシェイプ、コメントを選べます。不要な項目は外すと早く終わります。

オプションとして英字の大文字小文字の区別と、非表示の行/列やオートフィルタによる隠し部分も対象とするかを選べます。


検索が終わるとフォームの下にテーブルで検索結果が表示されます。
項目は見つかったファイル名、シート名、セル・オートシェイプ・コメントの区分、ヒットした領域の文字列全体、開くボタンです。


開くボタンを押すと、該当シートの該当セル（オートシェイプの場合は図形が乗っかっている左上のセル）が選択された状態で読み取り専用で開くようになっています。これはけっこうポイント高いのではないかと思います(｀・∀・´)

と言うわけで完成版

以下が全コードです。gistで公開しています。何か不明点や不具合がありましたら、各種SNSで突っ込んでやってください。

おしまいのひとこと

たまには技術的なことも書かないとということで(；´∀｀)

良かったら使ってやってください。最近のJavaScriptの書き方ではないと思いますが、その辺も突っ込んでいただけるとありがたいです。

デザイン面は全く考慮していないので、かっちょよくて短いCSSを書いてくれる方募集してます。

それではみなさまよきガジェットライフを(´∀`)ノ

※もしとても役に立ったら投げ銭でもしてやってください(；´∀｀)
Amazonギフトで15円から可能な「Kampa!」というサービスです。