| |
▼りんさん neptuneさん Hirofumi さん：
引数で渡す方法が理解できました。有難うございました。
無事思っている通りの動作ができました。感謝いたします。
もう一つ教えてください。
このtest1からtest5を
実は次のユーザーフォームから呼び出し(Call)ています。
コードは次の通りです。
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: Call test1 ←シート単位印刷１ と i=7を引き渡したいのです
Case 2: Call test2 ←シート単位印刷２と i=22を引き渡したいのです
Case 3: Call test3
Case 4: Call test4
Case 5: Call test5
End Select
Controls("CheckBox" & k).Value = False
End If
Next
End Sub
できましたら、このtest1を呼び出す代わりに「シート単位印刷」と変数を引き
渡すことができると、ユーザーフォームから直接呼び出せ、更にありがたいのですが･･･
Select Caseのコードのところで
シート単位印刷1でi=7を引き渡す
シート単位印刷2でi=22を引き渡す･･･ことはできるでしょうか
もし、できると
先ほどのコードなくして動作させられると考えるのですが、間違っているでしょうか。
良い方法・コードがありましたら、よろしくお願いします。
|
|
ToShiYo
- 07/4/2(月) 19:56 -
