Excel VBA質問箱 IV

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

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


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

【81288】Application.OnTimeでのエラー 勉強中 20/5/13(水) 17:53 質問[未読]
【81293】Re:Application.OnTimeでのエラー BJ 20/5/17(日) 13:22 発言[未読]
【81296】Re:Application.OnTimeでのエラー 勉強中 20/5/20(水) 9:39 お礼[未読]

【81288】Application.OnTimeでのエラー
質問  勉強中  - 20/5/13(水) 17:53 -

引用なし
パスワード
   test1を実行したところエラーはでないのですが、
test2を実行すると以下のエラーが出ます。

「マクロ'Book1!mac1'を実行できません。このブックでマクロを使用できないか、またはすべてのマクロが無効になっている可能性があります。」

mac1の名前を変更しtest2の該当箇所を変更すると動くのは分かっているのですが、
なぜ現状のtest2を実行するとエラーが出るのかが分かりません。
mac1という名前を変更せずに動かすにはどのように修正したらよいでしょうか
(Excelのマクロは有効になっています)

Sub abcmac1()

  Debug.Print Now

End Sub


Sub mac1()

  Debug.Print Now

End Sub


Sub test1()

  Dim N1 As Date
  N1 = DateAdd("S", 3, Now)
    
  Application.OnTime N1, "abcmac1"
  
End Sub


Sub test2()

  Dim N1 As Date
  N1 = DateAdd("S", 3, Now)
    
  Application.OnTime N1, "mac1"
  
End Sub

【81293】Re:Application.OnTimeでのエラー
発言  BJ  - 20/5/17(日) 13:22 -

引用なし
パスワード
   ディレクティブで、if mac とかで、使われるからじゃないですかね?

ht tps://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/ifthenelse-directive

【81296】Re:Application.OnTimeでのエラー
お礼  勉強中  - 20/5/20(水) 9:39 -

引用なし
パスワード
   BJ さん

ありがとうございます。
勉強になりました。

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