다양한 범위에 동일한 매크로 적용

Question

매크로 레코더를 사용하여 코드를 작성하면 커다란 효과가 있습니다. 기본적으로 범위를 선택하고 두 가지 조건부 서식을 적용한 후 다음 범위로 이동합니다. 조건부 형식이 각 범위에 AVERAGE을 적용하기 때문에 한 번에 전체 범위를 선택할 수 없습니다. 나는 그것이 부끄러운 알고

Sub DesvPad() 

    Range("C3:N3").Select 
    Selection.FormatConditions.AddAboveAverage 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
    Selection.FormatConditions(1).AboveBelow = xlAboveStdDev 
    With Selection.FormatConditions(1).Interior 
     .PatternColorIndex = xlAutomatic 
     .Color = 5296274 
     .TintAndShade = 0 
    End With 
    Selection.FormatConditions(1).NumStdDev = 1 
    Selection.FormatConditions(1).StopIfTrue = False 
    Selection.FormatConditions.AddAboveAverage 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
    Selection.FormatConditions(1).AboveBelow = xlBelowStdDev 
    With Selection.FormatConditions(1).Interior 
     .PatternColorIndex = xlAutomatic 
     .Color = 49407 
     .TintAndShade = 0 
    End With 
    Selection.FormatConditions(1).NumStdDev = 1 
    Selection.FormatConditions(1).StopIfTrue = False 
MsgBox "O macro foi executado até Range(C325:N325)" 

End Sub 

, 그래서 어떤 도움을 주셔서 감사합니다 :

다음은 코드 조각입니다!

Answer 1

그것은 당신의 질문이 무엇인지 정말 분명하지 않다하지만 난 당신이

Sub Tester() 
    ApplyCF Range("A1:A10") 
    ApplyCF Range("A11:A20") 
    'etc 
End Sub 


Sub ApplyCF(rng As Range) 

    'here use rng instead of "Selection" 
    rng.FormatConditions.AddAboveAverage '<< for example 

End Sub 

Answer 2

난이 도움이 될 생각 :

Sub formatInMySelectedSheets() 'use this just for few sheet 
           'that you want to change 
    Dim i As Worksheet 
    Dim Nm(1 To 3) As String 
    Dim s 
    Dim sht As Worksheet 

    'Imagine the book has 10 sheets, "Sheet1" to "Sheet10" 
    'but you only want to go to Sheet1, Sheet4 and Sheet7 

    Nm(1) = "Sheet1" 'this are the sheets you want to change 
    Nm(2) = "Sheet4" 
    Nm(3) = "Sheet7" 

    For Each i In ActiveWorkbook.Worksheets 'the workbook with the sheets... 

     For s = LBound(Nm) To UBound(Nm) 'from the lowest value of the array to 
             'to the highest 
      Set sht = Sheets(Nm(s)) 
      'here the code shows the sheet to avoid some errors 
      'if the sheet is hidden, Show it to me! 
      If sht.Visible = xlSheetVeryHidden Or sht.Visible = xlSheetHidden Then 
       sht.Visible = xlSheetVisible 
      End If 
      'go to the sheet 
      sht.Activate 
      DesvPad 'Calls you code 
     Next s 
    Next i 
End Sub 

Sub formatInEverySheet() 'Use this to do it in every sheet 
         'no matter what! 
    Dim i As Worksheet 
    For Each i In ActiveWorkbook.Worksheets 
     i.Activate 
     ' here the code shows the sheet to avoid some errors 
     If i.Visible = xlSheetVeryHidden Or i.Visible = xlSheetHidden Then 
      i.Visible = xlSheetVisible 
     End If 
     DesvPad 'Calls you code 
    Next i 
End Sub