Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33886 / 76738

←次へ　｜　前へ→


	【48068】Re:標準のモジュールの変数を他の標準のモジュールの変数に引き継ぐ方法について

りん

- 07/4/2(月) 18:48 -


	引用なし

	パスワード

ToShiYo さん、こんばんわ。
たとえば、引数で渡す方法とか。

>Sub test1()
>　MsgBox "test1のコードの動作"
>　i = 7
　シート単位印刷 i '直接7でもいい
>End Sub
>
>Sub test2()
>　MsgBox "test2のコードの動作"
>　i = 22
　シート単位印刷 i '直接22でもいい
>End Sub
>
>この上のtest1，test2････test5でiの変数が異なります。
>i=7やi=22のデータをCall先の「単位印刷」の変数に引き継ぎたいのですが
>どのようにすると良いでしょうか？
>

'引数を指定するようにする
Sub シート単位印刷(i as Integer)
>Sheets("名簿リスト").Activate
>ActiveSheet.Cells(i, 1).Resize(21, 6).Offset(, 1).Copy
>　　:
>End Sub

0 hits

▼

【48067】標準のモジュールの変数を他の標準のモジュールの変数に引き継ぐ方法につい... ToShiYo 07/4/2(月) 18:26