麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 如何始時間一到則自動執行巨集? [打印本頁]

作者: yangjie 時間: 2014-6-21 02:22 標題: 如何始時間一到則自動執行巨集?

請教諸位大大
      若指定於每天早上06:00時  讓 A.xls 自動執行巨集1  如何始時間一到則自動執行?
   set  wb=activeworkbook
   將美一莊.xls  sheets("美一莊").cells.copy wb.sheets("美一莊").cells(1,1)
         美一敬.xls  sheets("美一敬").cells.copy wb.sheets("美一敬").cells(1,1)
         美一自.xls  sheets("美一自").cells.copy wb.sheets("美一自").cells(1,1)
應如何處理??

作者: yangjie 時間: 2014-6-21 15:43

回復 1# yangjie
userform1下 Click CommandButton1
Private Sub CommandButton1_Click()
'    T = Now + TimeSerial(0, 2, 0)
   T = #1:05:00 PM#
   Application.OnTime T, "autocopy"
   unload me
end sub
在A.xls模組下
sub autocopy()
      sheets-----
end sub
請教 unload userform1之後  "autocopy" 是否能有效?

作者: GBKEE 時間: 2014-6-21 18:08

回復 2# yangjie

請教 unload userform1之後 "autocopy" 是否能有效?

Application.OnTime time+#00:05# , "autocopy"
unload userform1之後等5分鐘不就知道了.

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)