한 번에 여러 매크로 실행 (다른 시트)

Question

Excel에서 두 개의 다른 시트에 대해 VB를 사용하여 여러 매크로를 실행하고 있습니다.

시트 1 :

Sub option2() 
    CreateTable2 
    HeaderChange1 
    HeaderChange2 
    HeaderChange3 
    HeaderChange4 
End Sub 

시트 2 : 여러 개의 매크로의 함께 실행할 수 있습니다

Sub option1() 
    ClearCols 
    CreateTable 
    MoveColumns 
End Sub 

: 나는 (이 시트 1에서 매크로가 생성 된 것을 새로운 데이터를 제공) 함께 여러 매크로를 실행할 수 있습니다

별도로 위의 두 가지를 실행하는 대신 한 번에 모든 기능을 완료하기 위해 하나의 매크로를 실행할 수있는 방법이 있습니까?

Answer 1

먼저 모든 활성 시트 참조를 특정 워크 시트로 바꾸고, 워크 시트 정보없이 워크 시트 정보를 모든 범위에 추가해야합니다. ,

Sub RunAllMacros 
CreateTable2 
HeaderChange1 
HeaderChange2 
HeaderChange3 
HeaderChange4 
ClearCols 
CreateTable 
MoveColumns 
End Sub 

가 여전히 활성 시트를 실행하는 경우 :

activesheet.range("A1").copy는 Sheets("Sheet1").range("A1").copy

range("A1").copy이

Sheets("Sheet1").range("A1").copy

이 그럼 당신은 모든 매크로를 결합하거나 하나의 결합 된 매크로를 실행할 수 있습니다하게된다 중간에 선택을 변경할 수 있습니다 (사용자가 선택 변경을 보지 못하도록하지 않으려면 VBA에서 선택을 피해야합니다)

Sub RunAllMacros 

CreateTable2 
HeaderChange1 
HeaderChange2 
HeaderChange3 
HeaderChange4 

Sheets("Sheet2").select 

ClearCols 
CreateTable 
MoveColumns 
End Sub 

Answer 2

당신이 두 옵션을 실행하는 새 매크로를 만들 수 있다는 것을 나에게 보인다 ...

Sub bothOptions() 
    Call Option1 
    Call Option2 
End Sub 

이 당신이 필요로 무엇입니까?