여러 객체에 동일한 메소드 적용

Question

동일한 메소드를 여러 객체에 적용하는 방법이 있는지 궁금합니다. 다른 말로하면, 나는 "With"문과 반대되는 것을 찾는 것이다.

내가 문 "과 함께"을 사용하여 알고, 내가 하나의 객체에 여러 방법을 적용 할 수

With ITEM_RNG 
    .ClearContents 
    .ClearFormats 
    .ClearOutline 
End With 

을하지만, 나는 하나의 방법을 적용하고자하는 여러 범위의 개체가 :

ITEM_RNG.ClearContents 
VALUE_RNG.ClearContents 
SUM_RNG.ClearContents 

루프를 만들 개체 배열을 만들려고했지만 위의 구문보다 복잡합니다. 명시 적으로 .ClearContents를 각 개체에 개별적으로 추가하지 않고이 작업을 수행 할 수 있습니까?

이제 Union 기능에 대해 배운 것을 사용하여 다음과 같은 성공을 거두려고 노력했습니다.

Sub ClearBox(SeriesBox As MSForms.ListBox) 
    SeriesBox.Clear 
End Sub 

Sub SeriesBoxesClearall() 
    ClearBox Application.Union(SERIES1_BOX, SERIES2_BOX, SERIES3_BOX) 
End Sub 

여기서 SERIES [1-3] _BOX는 MSForms.ListBox 개체입니다. 이 작업을 할 수있는 방법이 있습니까, 아니면 연합이 여기에 적용되지 않습니까?

Answer 1

당신은 Application.Union 사용할 수 있습니다 (가정을 그 같은 시트의 모든 범위) :

Application.Union(ITEM_RNG,VALUE_RNG,SUM_RNG).ClearContents 

또는이 같은 :

With Application.Union(ITEM_RNG,VALUE_RNG,SUM_RNG) 
    .ClearContents 
    .ClearFormats 
    .ClearOutline 
End With 

UPD : 대한

Sub cleanUp(rng As Range) 
    rng.ClearContents 
End Sub 

Sub test() 
    Call cleanUp(Application.Union(ITEM_RNG,VALUE_RNG,SUM_RNG)) 
End Sub