変奏現実

EXCELは図形のテキストを検索してくれない。
なので自作することになる。
検索マクロEXCELインポートファイル
※利用方法

1. EXCELのVBAのインポート機能でfrmとbasファイルを取り込み
2. xlsm形式で保存する。

出来栄えは「怪しい」レベル。
検索や置換のコードは書いてあるけど結果は適当レベル。
「文字列を検索するマクロ」を実行するとフォームがでるので

検索したい文字列とかどのシートを検索するのかとかを設定して【検索】ボタンを押す。
検索を終わると【検索】ボタンが元に戻るので、検索結果を見てみよう。
クリックすれば見つかった場所へ裏のEXCELの画面をスクロールする。
書き換えたくなったら、置換文字を書いて【置換】ボタンを押すと
検索結果で見つかった場所の文字をガガガ・・・と置換する。
※置換対象から除外する方法は no idia
一応、開いた全ブックも対象にできるはず。
これで、
『何たらコードは１２から００１２になりました。皆さん資料を一斉に修正してくださいね。』
という様な日常的なメールの対応や
遷移図の?ってドコやん！（実は隠しシートの中だった
などを探すのが少し楽になる・・・
気がする。
※使用上の注意：

• マクロ付きＥＸＣＥＬファイルなので、リンクから直接ＥＸＣＥＬで開かないこと。
• ダウンロードしたら必ずウイルスチェックを行うこと。
• 使用前にフォームやＶＢＡのソースを一読すること。
• マクロの処理結果で都合が良くない（または悪い）部分は適宜修正を加えること。

※ソースを読んで混乱しそうなところ

• Listは０から始まり、Itemは１から始まる。
• ワークシートの図形はShapesにまとまっている。
• グループ化された図形はShapesからグループ図形(type=msoGroup)のGroupItemsに移動する。
  • GroupItemsのクラスはGroupShapes。
• 図形のプロパティにはTextFormとTextForm2がある。
  • どちらかが使える。
• 一生懸命ヒット件数を引き継いでいる。
  • 結局使っていない。
    • キニシナイ。
• セルのテキストがヒットした時は「検索結果」のセル名は？
  • 正解はvbTab。
• 「検索結果」のカラム幅ColumnWidthsは適当。
  • 要調整。
• Undo／Redoは全く考慮していない。
  • その分処理は速い。
• コメントの入っているシートではエラーが多発する（想定内
  • コメント図形(type=msoComment)にtitleは無い。
  • コメント図形はSelectできない。