▽1
●
きゃづみぃ ●500ポイント ベストアンサー |
Private Sub CommandButton2_Click() Application.ScreenUpdating = False Dim Sht As Worksheet For Each Sht In Worksheets If Sht.Name <> "一覧" Then Call Syokika(Sht) End If Next Sht Sheets("TOP").Select Application.ScreenUpdating = True End Sub Sub Syokika(sh As Worksheet) sh.Range("A5:M100").ClearContents End Sub
シート名で判断して 処理するかしないかしたらいいですね。
「シート名が一覧以外なら処理」という条件文を追加
Private Sub CommandButton2_Click() Application.ScreenUpdating = False Dim Sht As Worksheet For Each Sht In Worksheets If Sht.Name <> "一覧" Then Sht.Select Call Syokika End If Next Sht Sheets("TOP").Select Application.ScreenUpdating = True End Sub Sub Syokika() Range("A5:M100").ClearContents End Sub
Private Sub CommandButton2_Click() Application.ScreenUpdating = False Dim Sht As Worksheet For Each Sht In Worksheets If Sht.Name <> "一覧" Then Sht.Select Call Syokika End If Next Sht Sheets("TOP").Select Application.ScreenUpdating = True End Sub Sub Syokika() this.Range("A5:M100").ClearContents End Sub