Excel VBA質問箱 IV

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

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


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

52986 / 76736

←次へ　｜　前へ→


	【28574】Re:引数の使い方

Jaka - 05/9/9(金) 13:38 -


	引用なし

	パスワード

こんにちは。

Private Sub CommandButton2_Click()
Dim i1 As Long, i2 As Long　'Callの場合は、引渡し先と同じ型の宣言
　'処理
　 i1 = 1 'ある値X
　 i2 = 2 'ある値Y
　
　 Call 処理2(i1, i2)
　 MsgBox i1 & "-" & i2
End Sub

Sub 処理2(a1 As Long, a2 As Long)
　　　　　　　'　↑　　　　　↑　同じ型の宣言
　　a1 = a1 + 1
　　a2 = a2 + 1
End Sub

また、標準モジュールで、グローバル変数として宣言すれば、どこのモジュールからでも共通変数として使えます。
因みにモジュール天辺に書きます。

Public i1 As Long, i2 As Long

0 hits

▼

【28571】引数の使い方 さくらんぼ 05/9/9(金) 13:02