Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11739 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11739 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free