VBエディタでマクロ作成
それでは、VBエディタを起動し、標準モジュール・プロシージャを挿入しましょう。
- [ツール]メニューの[マクロ]から[Visual Basic Editor]を選択する。
▼ 図02-01 VBエディタを起動
【Excel2007の場合】
Excel2007ではメニューバーでなく、リボンを使用します。[Visual Basic]ボタンは[開発]タブ内に用意されています。
※ [開発]タブは既定では表示されていません。[開発]タブの表示方法はこちら▼ 図02-02 Excel2007でのVBエディタの起動 - [挿入]メニューから[標準モジュール]を選択する。
▼ 図02-03 標準モジュールの追加
- [挿入]メニューから[プロシージャ]を選択し、[プロシージャの追加]ダイアログボックスを表示する。
▼ 図02-04 プロシージャの追加
- [名前]ボックスに「Kirikae」と入力する。
- [種類]から[Subプロシージャ]を選択する。
- [適用範囲]から[Publicプロシージャ]を選択する。
- [OK]ボタンをクリックする。
▼ 図02-05 [プロシージャの追加]ダイアログボックス
画面に「Public Sub Kirikae」と「End Sub」が表示されます。
この間にVBAコードを記述し、マクロを作成していきましょう。
マクロの中身を作成する
「Public Sub Kirikae」以降にプログラムを記述し、マクロを完成させていきましょう。
「Columns("H:N").Select」と入力する。
※列HからNを選択するコードです。(Columnsは列を参照するプロパティです。(行はRows))-
「Selection.EntireColumn.Hidden = Not Selection.EntireColumn.Hidden」と入力する。
※「式=Not式」を指定することで設定を切り替えます。今回は『列の表示/非表示』を切り替えています。 -
「ActiveWindow.ScrollColumn = 4」と入力する。
※ 列Dまでスクロールするコードです。 -
「Range("A1").Select」と入力する。
▼ 図02-06 コードの入力
以上でコードの入力は完了です。
Excel画面に戻り、マクロを実行するボタンを作成しましょう。