Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33875 / 76733 ←次へ | 前へ→

【48074】Re:標準のモジュールの変数を他の標準のモジュールの変数に引き継ぐ方法について
質問  ToShiYo  - 07/4/2(月) 19:56 -

引用なし
パスワード
   ▼りんさん 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 ←シート単位印刷1 と i=7を引き渡したいのです
    Case 2: Call test2 ←シート単位印刷2と 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を引き渡す・・・ことはできるでしょうか

もし、できると
先ほどのコードなくして動作させられると考えるのですが、間違っているでしょうか。
良い方法・コードがありましたら、よろしくお願いします。

1 hits

【48067】標準のモジュールの変数を他の標準のモジュールの変数に引き継ぐ方法につい... ToShiYo 07/4/2(月) 18:26 質問
【48068】Re:標準のモジュールの変数を他の標準のモ... りん 07/4/2(月) 18:48 回答
【48069】Re:標準のモジュールの変数を他の標準のモ... neptune 07/4/2(月) 18:48 回答
【48070】Re:標準のモジュールの変数を他の標準のモ... Hirofumi 07/4/2(月) 18:52 回答
【48074】Re:標準のモジュールの変数を他の標準のモ... ToShiYo 07/4/2(月) 19:56 質問
【48082】Re:標準のモジュールの変数を他の標準のモ... Hirofumi 07/4/2(月) 21:11 回答
【48084】Re:標準のモジュールの変数を他の標準のモ... ToShiYo 07/4/2(月) 21:54 お礼

33875 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free