Application.OnTime Nowの変数

質問

他のプロシージャに1秒後に変数を渡すテストをしました。

Sub test01()
Dim ws As Worksheet
Set ws = ActiveSheet
Application.Wait Now + TimeValue("0:00:01")
Call AAA(ws) 'ただしく渡される
End Sub

Sub test02()
Dim ws As Worksheet
Set ws = ActiveSheet
Application.OnTime Now + TimeValue("00:00:01"), "AAA(" & ws & ")" 'エラー
End Sub

Sub AAA(ByVal ws As Worksheet)
MsgBox ws.Name
End Sub

Application.OnTime を使ったほうがエラーになるのはなぜでしょうか？
どうやれば正しく渡せるうのでしょうか？

回答No.2

keithin · ベストアンサー

参考に記載したURLで回答しているマクロの通りに作れば良いのですが？

誤：
Application.OnTime Now + TimeValue("00:00:01"), "'BBB " & s & "'"

正：
Application.OnTime Now + TimeValue("00:00:01"), "'BBB """ & s & """'"

参考URLのマクロを
Sub macro1()
　Dim i
　For i = 1 To 5
　　debug.print "'macro2 ""Sheet" & i Mod 2 + 1 & """'"
　Next i
End Sub

のように改造した練習マクロを作成して，どういう文字列を作って渡せば通るのか確認し，あらためて今やりたいことはじゃぁどう書けばよいのか再度考えてみてください。

お礼

何度もご指導ありがとうございました。
いろいろ試しました。

つまりは、
1.Ontimeの引数Procedureには、文字列型 の値を使用する。（そのためダブルクォーテーションでくくる。）
2.Ontimeで呼び出すプロシージャ名に変数などをつけるには、プロシージャ名＋スペースを1つ入れてその後ろに値や変数を記述する。
3.上記、2の場合は、値が文字列の場合は　"値"　となるように　""" & 変数 & """　とする。
4.上記、2の場合は 'プロシージャ名＋スペース+値' というように前後をダブルクォーテーションではなく、シングルクォーテーションでくくる。

ということですね？
理屈は良く理解できていませんが、なんとかできるようになりました。
有難うございました。

回答No.1

keithin

その文脈にしたいなら，たとえば
application.ontime now + timeserial(0,0,1), "'AAA " & ws.codename & "'"
のようにすれば，AAAにwsの中身(アクティブシート)を渡せます。

＃補足しておきます
Ontimeのヘルプにありますが，引数Procedureは文字列限定なので，「オブジェクトを渡す」事はできません。
参考：
http://okwave.jp/qa/q7040494.html
なので最初から「シート名」で受け渡した方が，手っ取り早いのです。（補足オマケ：上述マクロで渡しているのは「シート名」ではもちろんありません）

お礼

keithinさま、いつもありがとうございます。
codenameってなんだろうと思ったら、オブジェクト名を返すんですね。
これでばっちりうまくいきました。

ただ、
> 引数Procedureは文字列限定なので，

とのことなので、

Sub test03()
Dim s As String
s = ActiveSheet.Name
Application.OnTime Now + TimeValue("00:00:01"), "'BBB " & s & "'"
End Sub

Sub BBB(s As String)
MsgBox s
End Sub

としてみたら、「マクロBBB　シート名」がみあたりませんというエラーになってしまいました。
なぜシングルクォーテーションがあるのかもわかりませんのできっとまたポカをやっているのでしょうが、これは別質問としたほうがよいのでしょうか？