VBAはforループから次の値を返します

Question

Forループの各値をセルに取り込む必要があります。従業員名と従業員IDを含むワークシートがあります。別のワークシートにセルを挿入し、デフォルトのプリンタ（またはPDF優先）に印刷しようとしています。次にリスト内の次の従業員に同じ操作を行います。

ご協力いただきまして誠にありがとうございます。私が現在持っているものは、最初の従業員名とIDは返されません。

Sub btn_CompleteForm() 

Dim Rng As Range, cell As Range, EmpName As Range 
Set NameRng = Range("Employees!A2:Employees!A10") 
Set IDRng = Range("Employees!B2:Employees!B10") 
Set EmpName = Range("ActionNotice!D7") 
Set EmpID = Range("ActionNotice!D8") 

For Each cell In NameRng 
    EmpName = NameRng.Value 
    EmpID = IDRng.Value 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 
     IgnorePrintAreas:=False 
    MsgBox "Next" 
Next cell 

End Sub 

Answer 1

であるべき。 EmpName = NameRng.ValueをEmpName = cell.Valueに変更すると、NameRngをループしないでNameRngまでcellまでループしています。

Sub btn_CompleteForm() 
    Dim Rng As Range, cell As Range, EmpName As Range 
    With Worksheets("ActionNotice") 
     For Each cell In Range("Employees!A2:Employees!A10") 
      .Range("D7") = cell.value     'Name 
      .Range("D8") = cell.Offset(0, 1).value 'ID 
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 
               IgnorePrintAreas:=False 
      MsgBox "Next" 
     Next cell 
    End With 
End Sub 

Answer 2

For Each cell In NameRng 
     EmpName = NameRng.Value 
     EmpID = IDRng.Value 
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 
      IgnorePrintAreas:=False 
     MsgBox "Next" 
    Next cell 

これは一つだけの簡単な修正を要求すべきである

For nRow = 1 to NameRng.Count 
     EmpName.Value = NameRng.Cells(nRow,1).Value 
     EmpID.Value = IDRng.Cells(nRow,1).Value 
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 
      IgnorePrintAreas:=False 
     MsgBox "Next" 
    Next nRow