特定のシート「一覧」以外のシートに対し操作を行いたい。
・「一覧」シート以外は、シート名は固定されていない
--------------------------------------------
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim Sht As Worksheet
For Each Sht In Worksheets
Sht.Select
Call Syokika
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 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 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
回答いただきありがとうございました。
2011/12/04 21:05:18