Excel VBA質問箱 IV

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

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


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

33880 / 76734

←次へ　｜　前へ→


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

Hirofumi - 07/4/2(月) 18:52 -


	引用なし

	パスワード

通常は､引数で渡します

Option Explicit

Sub test1()
　
　　Dim i As Long
　　　
　　MsgBox "test1のコードの動作"
　　i = 7
　　シート単位印刷 , i

End Sub

Sub test2()

　　Dim i As Long
　　
　　MsgBox "test2のコードの動作"
　　i = 22
　　シート単位印刷 i
　
End Sub

'Dim i As Integer　'★削除

Sub シート単位印刷(i As Long)

　　MsgBox "i = " & i & "が渡されました"

　　Sheets("名簿リスト").Activate
　　ActiveSheet.Cells(i, 1).Resize(21, 6).Offset(, 1).Copy
　　
End Sub

尚、渡される変数名と、渡す変数名は違っても構いません

Option Explicit

Sub test1()
　
　　Dim j As Long
　　　
　　MsgBox "test1のコードの動作"
　　j = 7
　　シート単位印刷 , j

End Sub

Sub test2()

　　Dim k As Long
　　
　　MsgBox "test2のコードの動作"
　　k = 22
　　シート単位印刷 k
　
End Sub

'Dim i As Integer　'★削除

Sub シート単位印刷(i As Long)

　　MsgBox "i = " & i & "が渡されました"

　　Sheets("名簿リスト").Activate
　　ActiveSheet.Cells(i, 1).Resize(21, 6).Offset(, 1).Copy
　　
End Sub

1 hits

▼

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