投稿者: oki2a24

追記: 更に改善版です！

• 【Excel VBA】【改善2】座標でなく、フォーマットシートに設定したキーに対応する場所に書き込むクラスの仕様変更とリファクタリング♪ – oki2a24

フォーマットに指定した変数に対応する場所に書き込むことでセルの位置、つまり座標を意識しないでよくなるクラスを書きました。

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

抽象度が高まり、よいと存じます。

今回は、これを改善いたしましたので、それを記録いたします♪

ポイント

• 利用者が誤ってテンプレートの変数を削除した場合でもエラーとさせたくない。そのために、CellValues に設定していたキーに対応するテンプレートになくても無視するようにした。
• 書き込み対象ワークシートに書き込んだ後、書き込み先範囲を移動するメソッドを追加した。これにより、ループを使って同じフォーマットの複数の帳票を作成できる。
  • WriteToVariableAndOffset → オフセット移動
  • WriteToVariableAndDown → 下に移動
• プロパティにしなくとも問題ないものはプロパティから削除し、スリム化した。
• 省略しても可読性が維持できると思った部分は短く書き、行数を短くした。

次の点は、あえて対応いたしませんでした。

• フォーマットの変数に対応する値がコードに設定されていない場合は、テンプレートの変数がそのまま書き込み先シートに書き込まれてしまう。
• このとき、特にエラーは発生しない。
• コード側でのフォーマット変数定義漏れに気がつくチャンスが増えるメリットがある。
• また、コード側で値が取得できないことがあると予めわかっている場合は、空文字で初期化しておけば良い。
• よって、特に対処しない。

追記。改善版を作りました♪こちらのコードの方がすっきりとしております。

• 【改善版】【Excel VBA】ワークシートに入力したマスタデータを VBA から簡単に利用できるようにしたクラスのコード！2 – oki2a24

エクセルワークシートにマスタデータを表現いたしました。

これを、VBA に取り込んで、VBA の他のコードから呼び出して検索して値を返すクラスを作りたいですの！

そのようにすることで、エクセルのワークシートから値を取得して何かの関数で絞り込んで、、、などと意識することなくマスタデータを取り出せるようにいたします♪

ポイント

• マスタデータをユーザ定義型の Collection で扱おうと考えたが使えなかった。
• そこでクラス内にマスタの項目をプロパティとして定義する。そして自分自身のクラスをインスタンス化してマスタデータをプロパティに設定することでデータを扱えるようにする。
• 自分自身のクラスには、データ構造以外に関数も含まれる。
• 本来であれば構造を扱うクラス、処理を扱うクラスに分けるべき。
• しかし、VBA にはクラス宣言のコードがないため、1つのファイルに両方を持たせるためにこれらを混在させた。

エラー再現手順

1. Sheet2 を表示
2. 標準モジュールで VBA を実行
3. Worksheets(“Sheet1”).Range(“A1”).Select で次のエラー発生

実行時エラー ‘1004’: Range クラスの Select メソッドが失敗しました。

エラー再現エクセル・VBA コード

• エクセルにシートを2つ用意する。「Sheet1」「Sheet2」
• VBA では、標準モジュールを挿入してそこにコードを書く。

  Option Explicit
  
  Sub Test()
      Worksheets("Sheet1").Range("A1").Select
  End Sub
  

修正 VBA コード

• Worksheets.Activate メソッドを Select の前に実行すればよい。

Option Explicit

Sub Test()
    Worksheets("Sheet1").Activate
    Worksheets("Sheet1").Range("A1").Select
End Sub