返回列表 上一主題 發帖

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

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)
    應如何處理??
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2014-6-21 18:08 | 只看該作者
回復 2# yangjie

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


Application.OnTime time+#00:05# , "autocopy"
unload   userform1之後等5分鐘不就知道了.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題