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

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

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

GBKEE

¦^´_ 11# t8899
Winddows¤u§@ºÞ²z­û¦³¨Æ¦b¦£,CreateObject("wscript.shell")¶·µ¥­Ô±Æµ{³B¸Ì