Forループのもう一つのタイプは、For Nextループです。 For Nextループは、整数の範囲をループすることができます。 このコードでは、1から10までの整数をループして、それぞれをメッセージボックスで表示します。Sub ForLoop() Dim i As Integer For i = 1 To 10 MsgBox i Next i End...
Range("A:A").Clear For Each ws In Worksheets ActiveSheet.Cells(x, 1) = ws.Name x = x + 1 Next ws End SubUnhide All WorksheetsThis macro will unhide all worksheets.' Unhide All Worksheets Sub UnhideAllWoksheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible...
Fori=1To10Nexti その後、iの値が5と等しいかどうかをIfコマンドでチェックします。もし値が5なら、Forループを抜けて、ループの後の最初の行に進みます。 Ifi=5ThenExitForEndIf 条件を満たさない場合は、次の文でiを1つ増やして、再びForループに入ります。