私はループが必要だと思います

Question

VBAには新しく、私はpdfsを生成し保存するスクリプトを作成することができました。これまで私は、たとえば、ワークシートの各変化に別々のラインを作成しました：私がやりたい何

Sheets("AM Dashboard").Select 
Range("B5").Select 
ActiveCell.FormulaR1C1 = "Employee1" 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "C:\Users\Google Drive\Sales Reports\Employee1\Sales Dashboard_Employee1" & " " & Format(Date, "yyyymmdd") & ".pdf", _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 
Range("B5").Select 
ActiveCell.FormulaR1C1 = "Employee2" 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "C:\Users\Google Drive\Sales Reports\Employee2\Sales Dashboard_Employee2" & " " & Format(Date, "yyyymmdd") & ".pdf", _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 

は、セルが空になるまでSheet2の列Aのリストをコードループを持っていると移入でありますAMダッシュボードシートのB5にそれぞれの値を入力します。

したがって、たとえば、A1はEmployee1を含むことになり、A2 = Employee2、A3 = Employee3など

Answer 1

のpdfのを生成するための別のサブ/関数を作成し、ループ内でそれを呼び出すこの

Sheets("AM Dashboard").Select 
Range("B5").Select 

While (Sheets("Sheet2").Cells(i, 1) <> "") 
    ActiveCell.FormulaR1C1 = Sheets("Sheet2").Cells(i, 1) 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     "C:\Users\Google Drive\Sales Reports\Employee" & Sheets("Sheet2").Cells(i, 1) & "\Sales Dashboard_Employee" & Sheets("Sheet2").Cells(i, 1) & "" & " " & Format(Date, "yyyymmdd") & ".pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
     :=False, OpenAfterPublish:=False 
    i = i + 1 
Wend