帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

1^# 跳轉到 »

發表於 2013-7-20 09:01 | 顯示全部帖子

Worksheet_Calculate 裡想暫停三分鐘??

Private Sub Worksheet_Calculate()
If Not IsError(Range("q2")) Then
      If Range("Q2").Value > Range("R1").Value And Range("Q1").Value = 1 And flag = True Then
         CreateObject("Wscript.shell").Popup  Range("Q2").Value
         End If
   End sub
----------------------------------------------------
想在 CreateObject("Wscript.shell").Popup  Range("Q2").Value 之後
暫停3分鐘繼續執行,如何做?

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

2^#

發表於 2013-7-20 09:31 | 顯示全部帖子

本帖最後由 t8899 於 2013-7-20 09:36 編輯

我用
Application.Wait Now + TimeSerial(0, 3, 0)
會出現漏斗狀，無法做其他事情
這三分鐘裡，不要出現程式在跑(出現漏斗狀)

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

3^#

發表於 2013-7-20 13:12 | 顯示全部帖子

如果用
Application.OnTime Now + TimeValue("00:03:00")
是否不會有出現漏斗的狀況??
不知如何改呢?

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

4^#

發表於 2013-7-20 13:50 | 顯示全部帖子

我剛試了
停止三分鐘期間 IF 條件為何還是在跑??

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

5^# 倒序看帖

打印

字體大小: tT

發表於 2013-7-22 09:48 | 顯示全部帖子

CreateObject("Wscript.shell").Popup 自動關閉功能失效??

Private Sub Worksheet_Calculate()

      If Not IsError(Range("Q5")) Then
         If (Range("Q5").Value < Range("Q6").Value) And Range("S8").Value = 2 And flag = True Then
      CreateObject("Wscript.shell").Popup "xxxxxxx=>正在殺  " & Range("Q5").Value, 3, "Auto Closed MsgBox", 64
      Cells(1, 13).Interior.ColorIndex = 2
      ' flag = False
      Range("Q6").Value = Range("Q6").Value - Range("R4").Value
      Range("R6").Value = Range("R6").Value - Range("R4").Value
      flag = True
      Cells(1, 13).Interior.ColorIndex = 8

      End If
End If

end sub

開檔選擇不更新(DDE) 測試一切正常
但選擇更新後，自動關閉功能不知為何會失效???

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

6^#

發表於 2013-7-22 12:05 | 顯示全部帖子

回復 t8899
網路抓下的
GBKEE 發表於 2013-7-22 11:57

我不會套用耶!

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

7^#

發表於 2013-7-22 15:42 | 顯示全部帖子

直接這樣套用，明天再測試
Dim ws As Object
Set ws = CreateObject("wscript.shell")

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-14

8^#

發表於 2013-7-23 10:38 | 顯示全部帖子

我把
Dim ws As Object
Set ws = CreateObject("wscript.shell")
套進去, 設定1秒關閉，但它為何在15-30 秒之間才會關閉 ??

-----------------------------------------------------
Private Sub Worksheet_Calculate()
Dim ws As Object
Set ws = CreateObject("wscript.shell")
   If Not IsError(Range("Q5")) Then
         If (Range("Q5").Value < Range("Q6").Value) And Range("S8").Value = 2 And flag = True Then
   ws.Popup "xxxxxxx=>正在殺  " & (Range("Q5").Value), 1, "Auto Closed MsgBox"
               Cells(1, 13).Interior.ColorIndex = 2
      ' flag = False
      Range("Q6").Value = Range("Q6").Value - Range("R4").Value
      Range("R6").Value = Range("R6").Value - Range("R4").Value
      flag = True
      Cells(1, 13).Interior.ColorIndex = 8

      End If
End If
end sub

TOP