------ [Module1] ------
Sub 個人票作成()
  If Range("B20") = "" Then
    Beep
    Exit Sub
  End If
  
  Worksheets(2).Select
  Worksheets(2).Name = Range("B2").Value
  Range("B2").Select
End Sub

Sub 個人票印刷()
  Worksheets(2).PrintPreview
End Sub

Sub 一覧票に戻る()
  Worksheets(2).Name = "個人"
  Worksheets(1).Select
  Range("B20").ClearContents
  Range("A1").Select
End Sub

Sub 全員票印刷()
  Range("B20").Value = 1
  Worksheets(2).PrintPreview
  For i = 2 To 10
    Worksheets(1).Select
    Range("B20").Value = i
    Worksheets(2).Select
    Worksheets(2).Name = Range("B2").Value
    Worksheets(2).PrintOut
    
    Worksheets(2).Name = "個人"
    Worksheets(1).Select
    Range("B20").ClearContents
  Next i
End Sub

                                                                 back top