タグ: VBA

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

• 【改善版】【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

• 【Excel VBA】エクセルファイルのコネクション、名前をすべて削除するコード！ | oki2a24

の派生版ですの！

引数に Names オブジェクトの一部を渡すと、その文字列を含む Names オブジェクトをすべて削除するプロシージャを書きましたのでノートいたします♪

ActiveWorkbook.Names のポイント

• Names オブジェクトは、セルやセル範囲に付けられる名前を指す。
• Excel 2013 では、数式 > 名前の管理、で開いたウインドウの「名前」にあたる。
• ActiveWorkbook.Names(1).Delete や ActiveWorkbook.Names(“名前”).Delete で削除可能
• 名前指定で削除する場合は、シート名を含めないと一致せず、その結果削除できない場合があるので注意。
• シート名を含めた Names オブジェクトの Name プロパティは、「シート名!名前」というフォーマットで格納されている。