月: 2016年3月

ポイント

• わざとエラーを発生させ、次元数の判定に用いる。
• On Error Resume Next でエラー発生時もコードの実行を継続させる。
• UBound 関数を用いて次元を判定する。

このクラスでできること

何種類もの表に対して、定期的に、同じ内容の編集を何度も繰り返し行う場合に役立つと存じます。同じ手作業を繰り返し行わなくて済むようになりますので、楽ができますの♪

行

• 指定行の除去
• 指定行の抽出
• 指定した列内で、値の重複している行を削除
• 指定した列内で、指定した値に一致した行を抽出します。
• 値の一致した行を削除
• 下側に 2 次元配列を追加

列

• 指定列の抽出(列の入れ替え)
• 指定した数分の列を最後に追加
• 列を最後に追加し、指定文字列を挿入
• 列を別の列へコピー
• 指定した関数を、列のすべての要素に適用
• 列の値を更新
• 右側に 2 次元配列を追加 (指定した 2 次元目が一致する条件で)
• キー、アイテムとなる列を指定して生成したディクショナリを返す。
• 列を 1 次元配列として返す。
• 列を 引数の 1 次元配列で更新

一方で、一度しか行わないのでしたら、本投稿のコードを使う必要性はない、という場合も多いかと存じます。

使うときのポイント

• シートへの反映は、Range(Cells(起点行, 起点列), Cells(RangeValue.RowCount, RangeValue.ColCount)) のように起点となる行番号・列番号を指定すれば自動的にサイズを調整して反映するので楽。
• 終点には RangeValue.RowCount・RangeValue.ColCount を指定するだけでよい。
• MapCol 関数、MapColWithObj 関数はとても処理が遅い。数百ならば問題なかったが、数千処理させたら 1 分以上かかった。なお、配列操作で代替すると処理時間は 1 秒未満だった。

Excel VBA には map reduce がございません。使いたいです (使いこなせているかどうかは別として)！これらのページ等を参考にすればできそうですの♪

• Excel VBA を学ぶなら moug モーグ | 即効テクニック | 指定されたオブジェクトのメソッドの実行/プロパティの値の取得/設定を行う(CallByName関数)
• いげ太の日記: [VBA] 長い長い FizzBuzz
• VBAHaskell ユーティリティを使ってみる – mmYYmmdd’s blog

map するためには、対象となる集合を用意する必要がございます。Excel VBA ですと配列、特に 2 次元配列を使うことが多いように感じます。これを map にかけるのは、、、なんだか難しそうですのでまずはコレクションで試してみたいですわ。

そのために、まずはコレクションを気軽に作れるようにしたいですわ♪そのようなわけで、どんな配列でもコレクションにする関数を書いてみましたの！

ポイント

• StrConv(string, vbWide) では半角英数記号も全角へ変換されてしまうため一工夫必要
• CreateObject(“VBScript.RegExp”) を使用して正規表現で半角カタカナを抽出する。
• 正規表現のヒット結果の集合と Replace 関数を用いて次の順番で処理する。
  1. 正規表現にヒットした部分をループし、
  2. ヒットした部分を全角へ変換した文字列を用意し、
  3. 変換対象文字列に対してヒットした部分を、全角変換後の文字列へ置換する。