第4回VBA活用講座は12月27日（木）、17名の参加のもと大みか拠点で開催しました。今回は、午後から大みか拠点の年末大掃除を実施するため、講座は午前中のみで、教本の日経BP社発行の「残業ゼロ」の決め手！Excel VBA実践テクニック」のChapter4の具体例について、勉強しました。午後は参加者皆さんのご協力により、いつも使用している大みか拠点の大掃除を実施しました。部屋の窓ガラス、机、椅子、床のほか、持ち込んだダストブロワーや柔らかい布巾により、パソコンのモニターやキーボード、周辺機器も見違えるようにきれいになりました。有難うございました。
講座の内容梗概は下記のとおりです。
-
◆アクティブセルと同じ値のセルを、アクティブセル領域内で検索し、選択するマクロの実例紹介。
CurrentRegionプロパティ、Unionメソッドを理解する。
◆アクティブセルと同じ数式のセルを、アクティブセル領域内で検索し、選択するマクロの実例紹介。
FormulaR1C1プロパティを理解する。
◆アクティブセルと同じ書式のセルを、アクティブセル領域内で検索し、選択するマクロの実例紹介。
NumberFormatLocalプロパティ、UsedRangeプロパティを理解する。
-
◆文字データの表記の統一や誤記の訂正に便利なのが検索置換機能。複数の検索の場合は1つ1つ実施せね
ばならず不便であるが、VBAのプログラムなら、一括で検索置換が可能である。
◆検索する文字列と置換後の文字列をあらかじ「置換表」というテーブルに纏めておく。For Each…Next構文を
使い、「置換表」テーブルの上から順に「検索語」列に一致する文字列を、その右側の「置換語」に一括置換す
る。 置換にはReplaceメソッドを使用する。「:=」の意味も理解すること。
◆「置換表」テーブルの「検索語」と「置換後」を入れ替えるプログラムの実例紹介。選択範囲の左端列と右端列
のデータを入れ替える。
◆「全ワークシート」を対象に連続置換を実行するプログラムの実例紹介。
◆「全ブック」を対象に連続置換を実行するプログラムの実例紹介。
◆「全ブック」を対象に文字列を検索するプログラムの実例紹介。
◆検索実行前に表示していたワークシートの戻れるプログラムの実例紹介。 -
◆繰り返し処理で各セルの値を一括変更するのはVBAの得意分野。「For Each ○○ In △△」…「Next ○○」
までの行では、「△△」で指定した複数の要素を含む捜査対象を参照し、その個々の要素に対して繰り返し処
理を行う。この構文を活用する。
◆複数のセルに記載されている文字列に、結合演算子（&)を使って文字列を加えるマクロの例を示す。
◆上記で、条件があった時だけに限定した場合（If…End Ifを使用する）の例を示す。
◆フリガナが付いた状態で上記のマクロを実行すると、フリガナが消えてしまう。 VBAでセルの値を加工するとふ
りがなの情報が完全に失われしまう。
◆上記のマクロプログラムの最後に「Selection.SetPhonetic」を追加すると、フリガナを付けた状態でセル加工を
しても、ひりがなの情報が失われない。
◆ワークシート中の作業済みのセルを調べ、指定したふりがなを含むすべてのセルを選択状態にするマクロの例
◆選択範囲の各セルのふりがなに含まれている特定の文字列を、別の文字列に一括変換するマクロの例の紹介
◆氏名のふりがな情報に基づいて姓と名を自動判定し、その間に半角スペースを挿入するマクロ例の紹介。
Chapter４ Excel VBA応用テクニック
第1回 値や書式が同じセルをマクロで一括選択する
第2回 検索置換の機能をマクロでもっと便利にする
第3回 セルの文字データとふりがなを一括処理する
講師・文責 世話人 安田 出
第４回 VBA活用講座に参加の皆さん