カテゴリー
Microsoft

【Excel VBA】セル番号などの絶対座標指定ではなく、セルに変数として指定した文字列に対応した場所に書き込む変数指定で帳票を楽に作れるようにするクラス!

追記: 改善版です!


なぜ実現したかったのか?

  • エクセル方眼紙での帳票は、ちょっとデザイン変更すると簡単に絶対座標がずれてしまい、VBA の座標修正が辛い。
  • ExcelCreator のように、ワークシートに変数として入力したセルの内容を書き換えて出力したら楽になると考えた。
  • セルの座標を気にする必要がなくなることがメリット
    • テンプレートのワークシートのデータを反映したいセルに変数を書き込めば良い。座標は気にしなくて良い。
    • VBA ではセルの変数に対してデータを差し込めば良い。座標を指定しなくて良い。
    • セルの名前を使う方法もある。ただし、セルの名前は扱いやすい形でワークシートに表示することができず、辛い。

処理の流れ

ワークシートテンプレートのセルに記入する変数と、その座標と、VBA に書くワークシートテンプレートの変数名と、代入する値をどうやって紐付けるかが重要です。

次に挙げるポイントの考えでつなげるようにいたしました。

ポイント

  • テンプレートの変数をキーに、そこに対応するワークシートの座標を値にして VBA で取り込んでディクショナリ 1 を作る。
  • テンプレートの変数をキーに、そこに当てはめる値を値にしてのディクショナリ 2 を作る。
  • ディクショナリ 2 をループして、テンプレートの変数を仲立ちにして、変数に当てはめる値と、ワークシートの場所をひも付け。
  • ワークシートへの書き込みは、2次元配列を Range に代入して 1 回で行う。速さを保つ。

もう少し具体的にしますと、次のようになります。

カテゴリー
Microsoft

【Excel VBA】重複しないリスト作成や、要素が 1 種類のみかどうかを判定するコード!

重複なしのリストは、VBA の辞書オブジェクトの Key を使用することで実現可能ですの!

今回はそのコードを書くときに使えるテクニックですわ♪

応用すれば、要素が 1 種類のみかどうかを判定するチェックにも使ますわね。

ポイント

  • objDictionary.Add Key:=keyValue, item:=itemValue という形だと、Key が重複した場合に実行時エラーとなる。
    「実行時エラー ‘457’ このキーは既にこのコレクションの要素に割り当てられています。」
  • このエラーを避けるには、objDictionary.Exists(keyValue) で重複チェックが必要。
  • objDictionary(keyValue) = itemValue と書けば、既存のキーであっても上書きするのでエラーとならない。
カテゴリー
Microsoft

【Excel VBA】配列やコレクションの定数クラスを用意するコード♪

追記。改善版を投稿しました!抽象度を上げ、よりシンプルになりましたの♪


ポイント

  • 標準モジュールでは、Const は定義できるが、Const で配列を定義できない。
  • クラスモジュールでは、Const を定義できないが、コンストラクタで値をセットしてゲッターから取り出すようにすることで Const のような配列を定義できる。
  • したがって、様々なパターンの定数を網羅するには、標準モジュールで 1 つ、クラスモジュールで 1 つの、合計 2 つの定数用ファイルを用意する必要がある。
  • Excel 2013 で試した。
  • ファイル名に「Const」が使用できないことを考慮し、「ConstM」「CstM」や、「ConstC」「CstC」といったファイル名を付けると良いのではないかと思う。

経緯

カテゴリー
Microsoft

【Excel VBA】イテレータを作って、列の選択肢を順番に選んでフィルタをかけるコード

ポイント

Iterator クラスでは、もれなく反復するために、最低次の機能があればよい。

  • HasNext 関数を用意し、次の要素があるかを判定できる機能
  • Next 関数を用意し、次の要素を取得できる機能