マクロの入り口

(2)ソート

• 下記モジュールは簡単にソートを実行できるモジュールです

• Sub test03()

  Range("A1").Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlYes

  End Sub

• 説明　A1からシートの最後（空白行）までをソートする。ソート対象はF列。昇順ソート。ヘッダー（A1を含む行）はソートの対象としない。もし空白行を含んだシートなら

 Range("A1")　⇒　Range("A1:G15") とします

• もしヘッダーが２行目ならRange("A2")とします
• 実行結果

(3)列の削除

• D列を切り取ってF列の後ろに挿入するモジュールを紹介します。

• Sub test04() '

  Columns("D:D").Delete

  End Sub

• 実行結果

(4)列の切り取りと挿入

• D列を削除するモジュールを紹介します

• Sub test05() 　Columns("D:D").Cut

  Columns("G:G").Insert Shift:=xlToRight

  End Sub

• 実行結果　　挿入先はD列を切り取る前の位置を指定します

(5)シート内容を全てコピーする

• 同じファイル（Book)にある『Sheet3』の全てのセルを『Sheet4』にコピーするモジュールです。直接Sheets("Sheet3").Copyとすると、新たなBookを作成してそこにコピーしてしまうため、『Cells.Copy』を使います。最後にクリップボードをクリアします。（メモリの使用効率を上げるため）小さい表ならあえて記述する必要はありません。

• Sub test06()

  Sheets("Sheet3").Select

  Cells.Copy

  Sheets("Sheet4").Select

  Cells.Select

  ActiveSheet.Paste

  Application.CutCopyMode = False　　'クリップボードのクリア

  End Sub

• 実行結果　　実行結果は省略します。

6.マクロの使用例（行及びセル単位の処理）

ここまでの処理は画面から操作しても可能な処理でした。

また、マクロの記録でも簡単にモジュールを作成することができます。

ここから先が本格的なマクロ処理となります。

この処理をするためには『For・・・ Next』ステートメントまたは『Do・・・ Loop』ステートメントを使います。

(1)行ごとに判断結果をシートに書き込む

IF文は関数でも簡単にできるのですが、マクロを使うと複雑な分岐をするIF文を比較的簡単に作ることができます。

• 年齢が20歳未満の時にF列に1を書き込みそれ以外では０を書き込む。

• Sub test07()

  Dim MaxRow As Long

  Dim i      As Long

  Sheets("Sheet4").Select　　　　　　　　　'処理対象を　Sheet4 とする

  MaxRow = Cells(Rows.Count, 1).End(xlUp).Row　　'１列目（A列）を参照し                                                                                   　　          'て最大  行を求める

  For i = 2 To MaxRow           　　　　   '2からMaxRow(最大行）まで繰り返す

  If Cells(i, "F") < 20 Then　　　　　  'F列i行目の値が２０未満かどうか判断し

  Cells(i, "H") = 1　　　　　　　'20未満ならH列 I 行目に １ をセットする

  Else

  Cells(i, "Ｈ") = 0　　　　　　'そうでなければH列 I 行目に ０ をセットする

  End If

  Next　　　　　　　　　　　'Iに 1を加算して　"For" の位置まで戻る

  End Sub

• 計算結果

解説

For で始まりNext で終わる部分

• iが2から15になるまで　14回繰り返し実施されます。それに合わせてデータを１行ずつ判断し、書き込みがされます。

If で始まり　End If で終わる部分

• If 条件式　Then

  条件が成立した場合の処理

  Else

  条件が成立しなかった場合の処理

  End If

他に罫線やタイトルなど追加したい部分があります。またどちらの文もバリエｰションが多くあります。しかしこの『For・・・Next』や『If ・・・End if』が自在に使えるようになることはプログラミング上非常に重要なことです。他の言語でも類似表現はよく使われます。

(2)行を削除する及び高速化

• ここでは行削除、逆順のNext、そして高速化の例を紹介します。
• 行の削除をすると削除前と行の内容が変わってしまいます。３行目を削除すると先ほどまで４行目だった行が３行目になります。For文では行数を示す I ずつカウントアップされるので、１行分処理が漏れてしまいます。これを防ぐために15行目から　i を１ずつ減らす方法を使います。メインの表現は下記の通りになります。Step - 1 と　EntireRow.Deleteがポイントになります。この削除命令の前のオブジェクトはそのセルが属するどのセルでもかまいません。（下記"C"は"A"でも"1"でもかまわない）

• For i = MaxRow To 2 Step -1

  If Cells(i, "C") = "男" Then

  Cells(i, "C").EntireRow.Delete

  End If

  Next

削除文を実行すると処理速度が遅くなります。削除した瞬間に表示される表を１行減らしたものに再表示するからです。この画面表示をやめさせる制御と、シート上の関数の計算を一時的に停止する制御文をセットで使う習慣を身につけると何かと便利です。

これはプログラムが終了する前に元に戻しておく必要があります

通しで実行すると下記のようになります

ではこの高速処理をした場合としなかった場合の時間差はどのくらいかというと1000件のデータを処理した場合

高速化しなかった場合　　　13.84秒

高速化した場合　　　　　　  0.234秒

と圧倒低な差がつきました。ちなみにF列には　=DATEDIF(E17,TODAY(),"Y")という生年月日から年齢を算出する関数が入っています。

(3)別なシートへのデータ追加（同一Book)

日次データを月次データに追加する、複数名で入力したデータを一つにまとめる時の方法です。

少し長くなるので、先に手順をリストアップします（あくまで一例です）

①追加される側のシートを選択する。

②データの行数をカウントする

③行数　＋　１の値を変数に記録する。

④追加するシートを選択する。

⑤データの行数をカウントする。

⑥コピー範囲を定める

⑦コピー先のシートに貼り付ける

上記手順に従ってコードを作成します。事例ではSheet7のデータ部分（2行目以降）に追加します。追加する側、される側も10列とします。

7.マクロの使用例（シート間の処理）

(1)別なシートへのデータ追加（異なる一Book)

前述のSheet7をSheet4に追加する処理ですが、Sheet4が異なるBookにある場合の処理方法です。

Bookが異なるとすべきことが急に増えます。

作業は下記の通りです。

①（追加されるシート）selectする

②現在のBook名を記録する

③データの行数をカウントする

④行数　＋　１の値を変数に記録する。

⑤別のシート(『動作環境』から）追加する（インポートする）Bookの所在と名称を参照する

⑥上記Bookが存在するか調べる（存在しなかった場合はエラーメッセージを出して終了する。

⑦Bookを開けなかった場合の処理を作成する

⑧追加すべきデータの存在するBookを開き、Book名を記録する（xlBookbB)

⑨（xlBookbB)のSheet7をselectする。

⑩追加するデータの行数を求め、コピーする範囲を決める。

⑪コピー先のシートに貼り付ける

⑪（xlBookbB)をクローズする

　　この時確認メッセージを抑止するには

　　クローズ文の前後に Application.DisplayAlerts = False、 ' Application.DisplayAlerts = Trueを記述する。

今回は①のBook名を現在のBookの"動作環境"というシートの"C2"のセルに記述するという形を取ります。モジュールの中にBook名を記入することも可能ですが、対象のBookが変わるたびにモジュールを書き換えるのは不便だなので、シート上に記述することにします。

前回と同じように手順を書いてみましょう。

上記手順に従ってコードを作成します。事例ではSheet7のデータ部分（2行目以降）に追加します。追加する側、される側も10列とします。

8.関数の設定（表計算式を組み込む）

関数をシートに組み込むと処理が遅くなるのであまり好ましいことではありません。しかしながら関数を使った方が便利な場合があります。それは下記のようなケースです。

1.VBAの関数に相当するメソッドが使いにくい

マクロのメソッドは項目（変数）の定義に反する処理にが厳しいのでエラー処理の記述が大変

またそのエラー処理が正しくされているか確認のデバッグに時間が掛かる

文が長くなる

2.Sheetの値を確認する時どのような処理をしているか分かりにくい（特にIF文やVlookup文）

関数は手作業で追加しても良いのですがデータの行数に合わせてCopyしたり、関数の入力範囲を消さないような配慮も必要になるので『マクロを使ってExcel関数を』データの数に合わせて書き込んだ方が便利かと思います。

文例は以下の通りになります

解説  関数は必ず相対表記で記述する必要があります。
VBAでCopyすると関数を行に合わせて書き換えることをしてくれないからです。相対表記がなれない方は一度シート上で関数を打ち込み、その後『マクロの記録』でその関数の"="を削除し、更に"="を挿入すれば、相対表記された関数を入手することができます。