返回列表 上一主題 發帖

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

yangjie

帖子
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

帖子
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

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題