投稿者: oki2a24

ポイント

• 2次元配列から1次元目の要素 (配列) を取り出すことはできない。
• Variant を使用して、擬似的なジャグ配列を作成すれば可能
• 多次元配列とジャグ配列は異なり、同様に扱うことができない。
• 例えば、Range にジャグ配列を代入しても、シートにジャグ配列の要素は反映されない。

具体例

Excel 2013 VBA でのディクショナリ注意点！！

• ディクショナリのキー: 整数または文字列の使用が一般的だが、配列以外の任意の形式をとれる。
• ディクショナリの値: クラスをはじめ、なんでも入る、はず。
• イミディエイト ウィンドウにディクショナリオブジェクトをウォッチ表示したとき、確認できるのはキーのみ。
• イミディエイト ウィンドウでディクショナリのアイテムを一覧表示したいときは、ウォッチ式として dictionary.items を追加すること。
• ループでディクショナリのアイテムを取り出すには、dictionary.items を回す こと。dictionary を回そうとすると次のエラーとなった。
  [実行時エラー ‘424’: オブジェクトが必要です。]
• 同様に、ループでディクショナリのキーを取り出すには dictionary.keys を回せばよい、はず(未確認)。
• Add 関数の使い方。※1 の場合はキーが重複していてもエラーとならない。上書きする。
  • dictionary.Add "key", "item"
  • dictionary.Add key:="key, Item:="item"
  • Call dictionary.Add("key", "item")
  • Call dictionary.Add(key:="key", Item:="item")
  • dictionary("key") = "item" ※1
  • Set dictionary("key") = itemObject ※1

コードのポイント

• CSV データは一時作業用のエクセルファイルを新規作成し、そこにインポートする。このエクセルは最後に保存しないで削除する。
• QueryTables でインポートしたデータ範囲には、Name をあらかじめ指定できる。これを Range 関数で指定してデータを取得する。

ポイント

• Worksheet.UsedRange プロパティを利用して最大行数・最大限を取得する。
• 書式やデータが入っていなくても過去に編集のあったセルも対象となる。
• 過去に編集があったセルは [削除] すれば対象から外れる。

シートをすべて選択してウインドウ枠の固定を解除操作をしてみましたけれども、現在のシートのみしか解除されておりませんでした。。。

残りの何十何百のシート、ひとつひとつ丁寧に解除、、、辛いです＞＜。。。

ポイント

• Worksheets オブジェクトにすべてのシート情報が入っているので、これをループすれば各シートを取り出すことができる。
• ウインドウ枠の固定は、ActiveWindow.FreezePanes で設定する。
• ActiveWindow.FreezePanes は Active なシートに設定される。

ポイント

• セルの先頭および末尾のスペース削除は、Trim 関数を使う。
• クラスは、シートへの反映は行わない。トリム済みの 2 次元 Variant 配列を返すのみとした。
• シートへの反映は、呼び出し元で行う。