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

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-22

11^# 跳轉到 »

發表於 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

GBKEE