Sub Macro45()<BR>
　　datagyo = 2<BR>
　　Sheets("データ").Select<BR>
　　Cells(datagyo, 1).Select<BR>
　　i = 1<BR>
　　　Do Until Cells(datagyo, 2) = "" Or i > 10<BR>
　　　　If Cells(datagyo, 1) = "レ" Then<BR>
　　　　　　Range(Cells(datagyo, 2), Cells(datagyo, 6)).Select<BR>
　　　　　　Selection.Copy<BR>
　　　　　　Sheets("入力").Select<BR>
　　　　　　Cells(i + 1, 1).Select<BR>
　　　　　　ActiveSheet.Paste<BR>
　　　　　　Sheets("データ").Select<BR>
　　　　　　Application.CutCopyMode = False<BR>
　　　　　　i = i + 1<BR>
　　　　End If<BR>
　　　　　　datagyo = datagyo + 1<BR>
　　　Loop<BR>
<BR>
　　　If i > 10 Then<BR>
　　　　MsgBox "11人目以降の人は印刷されません。"<BR>
　　　End If<BR>
　　Sheets("様式").Select<BR>
　　ActiveWindow.SelectedSheets.PrintPreview<BR>
End Sub<BR>