Excel VBA質問箱 IV

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

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


11719 / 13645 ツリー ←次へ | 前へ→

【14522】タイマーにパラメータを渡す方法 だいこ 04/5/31(月) 19:28 質問[未読]
【14524】Re:タイマーにパラメータを渡す方法 IROC 04/5/31(月) 20:19 回答[未読]
【14529】Re:タイマーにパラメータを渡す方法 だいこ 04/5/31(月) 21:22 回答[未読]
【14546】Re:タイマーにパラメータを渡す方法 IROC 04/6/1(火) 13:11 回答[未読]
【14550】Re:タイマーにパラメータを渡す方法 だいこ 04/6/1(火) 16:48 回答[未読]
【14553】Re:タイマーにパラメータを渡す方法 IROC 04/6/1(火) 17:58 回答[未読]

【14522】タイマーにパラメータを渡す方法
質問  だいこ  - 04/5/31(月) 19:28 -

引用なし
パスワード
   先日はお世話になりました。

また質問なのですが
サブルーチンにパラメータを渡すように
タイマーにパラメータを渡す方法ってあるのでしょうか

↓こんな感じでやったも駄目でした。
Application Ontime timevalue("00:01:00") "aaa("*****")"

ご存知の方がいらっしゃたら是非お願いします。

【14524】Re:タイマーにパラメータを渡す方法
回答  IROC  - 04/5/31(月) 20:19 -

引用なし
パスワード
   変数として扱うなら ""で囲む必要はありません。
囲んでしまうと文字列になってしまいますよ。 

【14529】Re:タイマーにパラメータを渡す方法
回答  だいこ  - 04/5/31(月) 21:22 -

引用なし
パスワード
   ▼IROC さん:
>変数として扱うなら ""で囲む必要はありません。
>囲んでしまうと文字列になってしまいますよ。 

実際の環境ではこんな感じで変数で渡しました。
Application.Ontime Next_time1, "Time_CHK3(dd)"

やっぱりエラーになってしまいます。

【14546】Re:タイマーにパラメータを渡す方法
回答  IROC  - 04/6/1(火) 13:11 -

引用なし
パスワード
   繰り返しになりますが、

>変数として扱うなら ""で囲む必要はありません。
>囲んでしまうと文字列になってしまいますよ。 

どれが変数なのでしょうか?
変数の宣言方法はどうしてますか?


>実際の環境ではこんな感じで変数で渡しました。
>Application.Ontime Next_time1, "Time_CHK3(dd)"

Dim myTime As String
Dim i As String

myTime = "Time_CHK3"
i = "123"

Application.Ontime Next_time1, myTime & "(" & i & ")"

【14550】Re:タイマーにパラメータを渡す方法
回答  だいこ  - 04/6/1(火) 16:48 -

引用なし
パスワード
   ▼IROC さん:


サンプルプログラムありがとうございます。
早速試してみます。

>どれが変数なのでしょうか?
>変数の宣言方法はどうしてますか?
説明不足でした。すみません。


>>実際の環境ではこんな感じで変数で渡しました。
>>Application.Ontime Next_time1, "Time_CHK3(dd)"
変数はddです。

sub Time_CHK3(ww as string)
end sub

↑のようなサブルーチンTime_CHK3を
一定時間がきたら引数ddを渡して開始するというしたかったのです。
>
>Dim myTime As String
>Dim i As String
>
>myTime = "Time_CHK3"
>i = "123"
>
>Application.Ontime Next_time1, myTime & "(" & i & ")"

【14553】Re:タイマーにパラメータを渡す方法
回答  IROC  - 04/6/1(火) 17:58 -

引用なし
パスワード
   やっと理解できました。 理解力無くて済みません・・(-_-;)


モジュールレベルで変数を宣言しては如何でしょうか?


Private dd As String

Sub Sample()
  dd = "123"  
  Application.OnTime Now + TimeValue("00:00:1"), "Time_CHK3"
End Sub

Sub Time_CHK3()
  MsgBox dd
End Sub

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