ループ ループ(For_Each_Next)の記述

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ループ ループ(For_Each_Next)の記述]

Sub AllSht()

'’アクティブブックの全てのシートに・・・

Dim Sht As Worksheet

For Each Sht In ActiveWorkbook.Worksheets

Sht.Range("A1").Value = 99

Next Sht

End Sub

Sub AllBok()

'’開いている全てのブックの全てのシートに・・・

Dim Bok As Workbook、, Sht As Worksheet

For Each Bok In Workbooks

For Each Sht In Bok.Worksheets

Sht.Range("A1").Value = 99

Next Sht

Next Bok

End Sub 





Production Japan Import Application. Since 1998