返回列表 上一主題 發帖

[發問] 一直重覆執行

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
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

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
2#
發表於 2013-4-25 20:22 | 只看該作者
這是擺在工作表程式碼裡面Private Sub Worksheet_Calculate()

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
3#
發表於 2013-4-25 21:45 | 只看該作者
還有在marco1 執行之前 要停5秒，要如何寫 ??

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
4#
發表於 2013-4-26 12:01 | 只看該作者
問題已解決!

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題