【Excelマクロ】よく使うFor～Next4選。セル・行・シート・ファイルを順次処理する。

sub for_selection()

Dim c As Range 'セルを入れる変数の宣言 

For Each c In Selection '選択中の各セルを順番に処理
    '↓ここから各セルに行う処理を記載
    
    'セルの参照元のトレースを表示
    c.ShowPrecedents
    
    '↑ここまでに各セルを行う処理を記載
Next
    
End Sub

Sub for_row()

Dim last_row As Long
Dim r As Long
'A列の一番下の行からxUpした行がデータの入っている最終行
last_row = Cells(Rows.Count, 1).End(xlUp).Row

For r = 2 To last_row 'rを処理する行数として使用する
	'↓ここから処理を記載
     'A列の値が偶数ならその行を水色に奇数なら塗りつぶしなしにする
    If Cells(r, 1) Mod 2 = 0 Then
    	Rows(r).Interior.ColorIndex = 20
    Else
    	Rows(r).Interior.ColorIndex = 0
    End If
    '↑ここまでに処理を記載
Next
End Sub

Sub for_ws()
Dim ws As Worksheet

For Each ws In Worksheets
    '↓処理をここから記載
    ws.Range("A1") = ws.Name
    '↑ここまで処理を記載
Next
End Sub

Sub for_file()

Dim dir_path As String
'フォルダの指定
dir_path = ThisWorkbook.Path & "\print\"

'ファイルシステムオブジェクト変数の準備
'4行セットでおまじないのような決まりごと
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFile As Object 'ファイルを格納するオブジェクト変数
For Each objFile In objFSO.GetFolder(dir_path).Files
    '****↓↓ ここから各ファイルの処理 ↓↓*********
    
    'ファイルを読み取り専用で開く
    Workbooks.Open Filename:=dir_path & objFile.Name, ReadOnly:=True
    '1枚目のシートを印刷
    Sheets(1).PrintOut
    'ファイルを閉じる
    ActiveWorkbook.Close SaveChanges:=False    
    '********************** ここまで各ファイルの処理 *******************
Next objFile
End Sub