返回列表下一主題上一主題發帖

[發問] 如何始時間一到則自動執行巨集?

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

2^#

發表於 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" 是否能有效?

TOP

GBKEE