Excel VBA質問箱 IV

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

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


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

30697 / 76807

←次へ　｜　前へ→


	【51375】Re:OnTimeメソッドで呼び出すプロシージャへの引数の渡し方追伸

ichinose - 07/9/13(木) 20:22 -


	引用なし

	パスワード

>更にSheet1のモジュールに
>'==============================================================
>Option Explicit
>Dim WithEvents bk As ThisWorkbook
>'===============================================================
>Sub main()
>　　Set bk = ThisWorkbook
>　　bk.timer_set TimeValue("00:00:3")
>End Sub
>'=======================================================================
>Private Sub bk_timejust(ByVal cnt As Long, cancel As Boolean, t_para As Variant)
>'cnt 処理の繰り返し回数
>'cancel trueを指定すると処理終了
>'t_para データ引渡し変数
>このイベント内で呼び出したいプロシジャーにデータを渡します
>　　Dim a As 足し算
>　　a.a = cnt
>　　a.b = cnt
>　　Call testtest(a)
>　　If cnt >= 3 Then cancel = True '3回処理したら終了
>End Sub

このSheet1のmainを実行させて確認してください。

1 hits

▼

【51308】OnTimeメソッドで呼び出すプロシージャへの引数の渡し方 jabjab 07/9/11(火) 13:49