マクロを実行する変数のリスト

Question

私は一連の他のマクロを実行するマクロを持っています。特定のセル（B1）の値を変更すると、マクロが自動的に実行されます。マクロは、B1で指定されたプロジェクト番号のプロジェクトレポートを生成します。私はいつでも約75のアクティブなプロジェクトを持っています。

私がしたいのは、プロジェクトのリストをブックに追加して、各値を実行することです。値と値の数は毎週変わるので、値をマクロにハードコーディングする必要はありません。私はループ関数を使用すると仮定していますが、それについてどうやって行くのかは特定できません。

現在のマクロのための私のコードは次のとおりです。事前に

Sub AA_RunAll() 

Application.ScreenUpdating = False 
ActiveWorkbook.RefreshAll 
DoEvents 
Call OpenFile 
Call Copy1 
Call DeleteRows1 
Call DeleteRows2 
Call DetailCopy 
Call RemoveEmptySheets 
Call SummarySheet 

Workbooks("Project WIP Template.xlsm").Worksheets("Summary").Activate 
Application.Goto Range("A1"), True 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 


Call SaveAs 

Workbooks("Project WIP V5.xlsm").Worksheets("Summary").Activate 
Range("b1").Select 

MsgBox "Report Complete" 

End Sub 

おかげ

Answer 1

マクロを使用すると、Range("B1")の値を変更するたびに実行された場合、私はあなたがWorksheet_Changeイベントを発射していると思いますテスト：その場合は

If Target.Address = "$B$1" Then 
    AA_RunAll '<-- call your macro 
End If 

することは、あなたがあなた自身のデザインを誘導しなけれ最も簡単な方法は、プロジェクトNUMのリストを書くことですスプレッドシートでのBER、Project numbersを言って、列A：

1 
2 
3 
... 

...そして、あなたのセルB1の値を置き換えるために、このリストをループ：

Sub allProjects() 
    For j = 1 To Sheets("Project numbers").Range("A1").End(xlDown).Row 
     Range("B1").Value = Sheets("Project numbers").Range("A" & j).Value 
     'the above set will call the worksheet change and run your macro for a given value 
    Next j 
End Sub 

は私がいること、しかし、言わなければなりませんデザインは理想的ではありません。

Sub AA_RunAll(ByVal projectNumber As Integer) 
    'your code, pass the projectNumber to other submacros if needed 
End Sub 

...、代わりにWorksheet_Changeイベントを発生するためにExcelシートをだましの、正しい番号をプログラムでマクロを呼び出す：私はむしろあなたのマクロがパラメータを取ることになるだろう。