CreateObject("Wscript.shell").Popup ¦Û°ÊÃö³¬¥\¯à¥¢®Ä??

t8899

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
----------------------------------------------------
·Q¦b CreateObject("Wscript.shell").Popup  Range("Q2").Value ¤§«á
¼È°±3¤ÀÄÁÄ~Äò°õ¦æ,¦p¦ó°µ?

t8899

§Ú¥Î
Application.Wait Now + TimeSerial(0, 3, 0)
·|¥X²{º|¤æª¬¡AµLªk°µ¨ä¥L¨Æ±¡
³o¤T¤ÀÄÁ¸Ì¡A¤£­n¥X²{µ{¦¡¦b¶](¥X²{º|¤æª¬)

t8899

¦pªG¥Î
Application.OnTime Now + TimeValue("00:03:00")
¬O§_¤£·|¦³¥X²{º|¤æªºª¬ªp??
¤£ª¾¦p¦ó§ï©O?

t8899

§Ú­è¸Õ¤F
°±¤î¤T¤ÀÄÁ´Á¶¡ IF ±ø¥ó¬°¦óÁÙ¬O¦b¶]??

GBKEE

¦^´_ 4# t8899
¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Calculate()
   
2.     Dim T As Date
   
3.     If Not IsError(Range("q2")) Then
   
4.         If Range("Q2").Value > Range("R1").Value And Range("Q1").Value = 1 And flag = True Then
   
5.             CreateObject("Wscript.shell").Popup Range("Q2").Value
   
6.             T = Time
   
7.             Do While Time < T + #12:03:00 AM#
   
8.                 DoEvents
   
9.             Loop
   
10.         End If
    
11.     End If
    
12. End Sub

½Æ»s¥N½X

t8899

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=>¥¿¦b±þ  " & 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

¶}ÀÉ¿ï¾Ü¤£§ó·s(DDE) ´ú¸Õ¤@¤Á¥¿±`
¦ý¿ï¾Ü§ó·s«á¡A¦Û°ÊÃö³¬¥\¯à¤£ª¾¬°¦ó·|¥¢®Ä???

GBKEE

¦^´_ 6# t8899
ºô¸ô§ì¤Uªº

1. Sub MsgBox_Wait()
   
2.     Dim WshShell, BtnCode
   
3.     Set WshShell = CreateObject("WScript.Shell")
   
4.     BtnCode = WshShell.popup("µ¥«Ý2¬í¤£«ö§Ú´N¦Û°ÊÃö³¬?", 2, "´ú¸Õ:", 4 + 16)
   
5.     Select Case BtnCode
   
6.         Case 6
   
7.             BtnCode = "§A«ö¤F""¬O""." 'MsgBox "§A«ö¤F""¬O""."
   
8.         Case 7
   
9.             BtnCode = "§A«ö¤F""§_""." 'MsgBox "§A«ö¤F""§_""."
   
10.         Case -1
    
11.         BtnCode = "¨S¦³«ö¥ô¦óÁä"
    
12.     End Select
    
13.     BtnCode = WshShell.popup(BtnCode, 2, "´ú¸Õ§¹²¦", 1)
    
14. End Sub

½Æ»s¥N½X

t8899

¦^´_  t8899
ºô¸ô§ì¤Uªº
GBKEE µoªí©ó 2013-7-22 11:57

§Ú¤£·|®M¥Î­C!

t8899

ª½±µ³o¼Ë®M¥Î¡A©ú¤Ñ¦A´ú¸Õ
Dim ws As Object
    Set ws = CreateObject("wscript.shell")

GBKEE

¦^´_ 8# t8899
§Ú´ú¸Õ¦b§@·~¨t²Î¦³¨ä¥Lµ{¦¡¶·³B²z,©Î¥æ¿ù©óExcelÀ³¥Îµ{¦¡»P¨ä¥LÀ³¥Îµ{¦¡¤§¶¡ , WshShell.Popup ·|¤£Ã­©w(¥¢¥h¦Û°ÊÃö³¬¥\¯à)
¥H¤Uµ{¦¡½X ¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     If Not IsError(Range("Q5")) Then
   
4.         If (Range("Q5").Value < Range("Q6").Value) And Range("S8").Value = 2 And flag = True Then
   
5.             Wait_sub #12:00:30 AM#   'µ{¦¡¼È°±®É¶¡  '#12:01:00 AM# (¤@¤ÀÄÁ ), #12:00:30 AM# (¤T¤Q¬íÄÁ )
   
6.             Cells(1, 13).Interior.ColorIndex = 2
   
7.             ' flag = False
   
8.             Range("Q6").Value = Range("Q6").Value - Range("R4").Value
   
9.             Range("R6").Value = Range("R6").Value - Range("R4").Value
   
10.             flag = True
    
11.             Cells(1, 13).Interior.ColorIndex = 8
    
12.         End If
    
13.     End If
    
14. End Sub
    
15. Private Sub Wait_sub(T As Date)
    
16.     Dim tt As Date
    
17.     'T = T + Time                                    'µ{¦¡½X¦b¦¹·|¦©±¼ »y­µ¼½©ñªº®É¶¡
    
18.     With CreateObject("SAPI.SpVoice")               '³Ð«Ø»y­µª«¥ó
    
19.         .volume = 100                               '­µ¶q 0 - 100
    
20.         .Rate = 0                                   '³t«×  0¥H¤W
    
21.         .Speak "Please Wait" & T                    '»y­µ¼½©ñ
    
22.     End With
    
23.     T = T + Time                                    'µ{¦¡½X¦b¦¹»y­µ¼½©ñ§¹²¦,¶}©l­p®É
    
24.     tt = Time
    
25.     Application.DisplayStatusBar = True             'ª¬ºA¦C³]©w¬°¥i¨£
    
26.     Do Until Time > T
    
27.         DoEvents
    
28.         If tt <> Time Then
    
29.             tt = Time
    
30.             Application.StatusBar = "ÁÙ³Ñ " & Format(T - Time, "hh:mm:ss")  'ª¬ºA¦CÅã¥Ü³Ñ¾l®É¶¡
    
31.         End If
    
32.     Loop
    
33.     Application.StatusBar = False                    'ª¬ºA¦CÅã¥Ü¬° [´Nºü]
    
34. End Sub

½Æ»s¥N½X