返回列表 上一主題 發帖

[發問] 一直重覆執行

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-25 20:03 | 顯示全部帖子

[發問] 一直重覆執行

If (Range("q31").Value = 1) Then
           macro1
        Range("q31").Value = 2            
            End If
一直執行marco1 無法停止
執行一次marco1即執行 Range("q31").Value = 2  如何改?
收藏 分享

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-5-29 
2#
發表於 2013-4-25 20:22 | 顯示全部帖子
這是擺在工作表程式碼裡面Private Sub Worksheet_Calculate()

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-5-29 
3#
發表於 2013-4-25 21:45 | 顯示全部帖子
還有在marco1 執行之前 要停5秒，要如何寫 ??

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-5-29 
4#
發表於 2013-4-26 12:01 | 顯示全部帖子
問題已解決!

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題