|
出来るでしょ
Private Sub CommandButton1_Click()
Dim k As Integer
For k = 1 To 5
If Me.Controls("CheckBox" & k).Value = True Then
MsgBox "シート" & k & "の印刷指示が選択されました"
Select Case k
Case 1
シート単位印刷 7 '直接数値を渡してもOK
Case 2
シート単位印刷 22
Case 3
シート単位印刷 35
Case 4
シート単位印刷 40
Case 5
シート単位印刷 55
End Select
Controls("CheckBox" & k).Value = False
End If
Next k
End Sub
Private Sub CommandButton2_Click()
Dim lngNumb As Long
Dim k As Integer
For k = 1 To 5
If Me.Controls("CheckBox" & k).Value = True Then
MsgBox "シート" & k & "の印刷指示が選択されました"
Select Case k
Case 1
lngNumb = 7
Case 2
lngNumb = 22
Case 3
lngNumb = 35
Case 4
lngNumb = 40
Case 5
lngNumb = 55
End Select
シート単位印刷 lngNumb
Controls("CheckBox" & k).Value = False
End If
Next k
End Sub
Public Sub シート単位印刷(i As Long)
Sheets("名簿リスト").Activate
ActiveSheet.Cells(i, 1).Resize(21, 6).Offset(, 1).Copy
':
End Sub
|
|