人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

EXCEL VBAについて質問です。良い回答は300?500ptを差し上げます。
特定のシート「一覧」以外のシートに対し操作を行いたい。
・「一覧」シート以外は、シート名は固定されていない
--------------------------------------------
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
-----------------------------------------
ソースでの回答をお願いします。


●質問者: japan-nan
●カテゴリ:ビジネス・経営 コンピュータ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

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


シート名で判断して 処理するかしないかしたらいいですね。


japan-nanさんのコメント
回答いただきありがとうございました。

2 ● うぃんど
●50ポイント

「シート名が一覧以外なら処理」という条件文を追加

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

3 ● kodairabase
●0ポイント
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
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ