ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

Worksheet_Calculate ¸Ì·Q¼È°±¤T¤ÀÄÁ??

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¦ó°µ?

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-7-20 09:36 ½s¿è

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

TOP

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

TOP

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-7-20 16:14 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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=>¥¿¦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¦Û°ÊÃö³¬¥\¯à¤£ª¾¬°¦ó·|¥¢®Ä???

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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


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

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD