ExcelマクロVBAサンプル集
ナンバーリンクを解くVBAのパフォーマンス改善№1

VBAでサブフォルダ以下も含めて全てのファイル一覧を取得します。最初はサブフォルダは無視して、VBAにある関数とステートメントだけで作成します、その後に、FileSystemObjectで再帰処理をすることで、全てのサブフォルダも取得するようにしていきます。

前回で、当初の目的である、指定月のすべての記事一覧を取得し、記事本文のバックアップが完成しました。取得した記事本文は、このエクセルファイルと同一フォルダのサブフォルダ_HTML_に保存されます。タイトル、テーマ、更新日時はシートに一覧で表示されます。

数独をExcelマクロVBAで解いてみます№5、メイン処理を書いて完成になります。メイン処理のSub シートのA1～I9を配列（1To9,1To9）に入れる。trySuを呼ぶ…再帰プロシージャー 配列（1To9,1To9）をシートのA1～I9に入れる。

数独（ナンプレ）を解くアルゴリズムを例にアルゴリズムの要点とそれによるパフォーマンスを検証します。一旦は完結したのですが見直す機会がありほんの少し改善しました。OptionExplicit PrivatetryCntAsLong Submain() Debug.PrintTimer DimSuAry(1To9,

最後に、枠の大きさを10×10に固定せずに、Application.InputBoxでセル範囲を指定して実行するように修正したものを掲載しておきます。理論的には、大きさの制限はありませんが、10×18でやったところ、4時間半もかかってしまいました。

ExcelマクロVBAでオセロ（リバーシ）を作っていきながら、マクロVBAを学んで行きましょう。目的は、マクロVBAの学習であり、思考を整理しVBAでプログラミングする学習です。従って、強いソフトを作ることが目的ではありませんので、最近流行のAIなんちゃら…なんていうのは考えるつもりはありません。

掲載しているVBAコードの最初に掲載したものになります。どのように変更したかを比べてみるとプロシージャー分割の参考になると思います。標準モジュール OptionExplicit '定数 PrivateConstNmTargetBookAsString=_nmTargetBook_'対象ブック指定のセル PrivateConstNmCntMaxAsStri…

複雑な計算式を解析するVBAで使う「関数構文」シートのサンプルです。ほぼ全ての関数を網羅しています、中には漏れもあるかもしれませんが、解析VBAで使うに十分な関数が入っています。引数のない関数は意味がないのですが、一覧にあるものはそのまま入れています。