web-dev-qa-db-ja.com

条件付き書式VBAをすべてのブックシートに適用する

私はこれに非常に慣れていません。行のすべての値の平均を超える数値を強調表示する条件付き書式を作成しています。

この書式設定をブックのすべてのシートのすべての行に適用する必要があります。

私が集めたものから、これは私が得たものです：

 Sub AllSheets()
         Dim ws As Worksheet
         For Each ws In Worksheets
            Range("A1:S1").Copy
            For Each r In Selection.Rows
            r.PasteSpecial (xlPasteFormats)
            Next r
            Application.CutCopyMode = False
        Next ws
 End Sub

しかし、これを実行すると、アクティブな選択されたセルにのみ適用されます。これをどのように修正しますか？

microsoft-excelworksheet-functionvbamicrosoft-excel-2013conditional-formatting
3
Trav

使用されているRange()が実際にはwsの範囲であることを確認する必要があります。それ以外の場合は、Activesheetで実行されます。

 Dim ws As Worksheet
 For Each ws In Worksheets
    ws.Range("A1:S1").Copy 
    For Each r In Selection.Rows
         r.PasteSpecial (xlPasteFormats)
    Next r
    Application.CutCopyMode = False
Next ws

End Sub

しかし、これは機能しますか？それは少し「きつい」です、主に私がしようとしている .Selectionの使用を避けてください

 Dim ws As Worksheet
 For Each ws In Worksheets
    ws.Range("A1:S1").Copy ' Or replace this with actual range, not just `Selection`
    For Each r In ws.Range("A1:S1").Rows
         r.PasteSpecial (xlPasteFormats)
    Next r
Next ws

End Sub

編集：気付いたばかり...とにかく1行しか使用していないのに、なぜFor each rループを使用するのですか？

1
BruceWayne

この書式設定をブックのすべてのシートのすべての行に適用する必要があります。

確かに、「正しい質問をする方法を知る」には練習が必要です。それができたら、クイック検索：

ワークシートvbaを循環します

  Sub WorksheetLoop()

     Dim WS_Count As Integer
     Dim I As Integer

     ' Set WS_Count equal to the number of worksheets in the active
     ' workbook.
     WS_Count = ActiveWorkbook.Worksheets.Count

     ' Begin the loop.
     For I = 1 To WS_Count

        ' Insert your code here.
        ' The following line shows how to reference a sheet within
        ' the loop by displaying the worksheet name in a dialog box.
        MsgBox ActiveWorkbook.Worksheets(I).Name

     Next I

  End Sub

参照： https://support.Microsoft.com/en-us/help/142126/macro-to-loop-through-all-worksheets-in-a-workbook

0
ejbytes