返回列表 上一主題 發帖

[發問] 請教製作上的可能性

kobo

帖子
37 
主題
0 
精華
0 
積分
41 
點名
0  
作業系統
windows xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-5-7 
最後登錄
2018-2-10 
1# 跳轉到 »
發表於 2012-1-2 13:13 | 顯示全部帖子
B1內dde鍵接跳到D1繼續運作而B1保留前數值
Range("D1").Formula=Range("B1").Formula  'B1內dde鍵接跳到D1繼續運作
Range("B1").Value=Range("B1").Value  'B1保留前數值

其他的問題看不懂
建議您上傳檔案,並將問題說清楚

TOP

kobo

帖子
37 
主題
0 
精華
0 
積分
41 
點名
0  
作業系統
windows xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-5-7 
最後登錄
2018-2-10 
2#
發表於 2012-1-3 10:26 | 顯示全部帖子
很抱歉,由於權限不夠無法下載檔案來解答

啟動定時執行模組可用 OnTime 的方法來解決
討論版上有,您可以搜搜看
------------------------
以下是vba說明檔的範例
本範例設定 15 秒後執行 my_Procedure 程序，從現在開始計時。
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
               
本範例設定 my_Procedure 在下午 5 點開始執行。
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
               
本範例取消前一個範例對 OnTime 的設定。
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
    Procedure:="my_Procedure", Schedule:=False

TOP

kobo

帖子
37 
主題
0 
精華
0 
積分
41 
點名
0  
作業系統
windows xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-5-7 
最後登錄
2018-2-10 
3#
發表於 2012-1-3 14:43 | 顯示全部帖子
本帖最後由 kobo 於 2012-1-3 14:45 編輯

將
Application.OnTime Now + TimeValue("00:00:05"), "按鈕1_Click()"
改成
Application.OnTime Now + TimeValue("00:00:05"), "按鈕1_Click"
把()刪除
另一段也是

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題