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

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

§Ú§â
Dim ws As Object
Set ws = CreateObject("wscript.shell")
®M¶i¥h, ³]©w1¬íÃö³¬¡A¦ý¥¦¬°¦ó¦b15-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=>¥¿¦b±þ  " & (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

¦^´_ 11# t8899
Winddows¤u§@ºÞ²z­û¦³¨Æ¦b¦£,CreateObject("wscript.shell")¶·µ¥­Ô±Æµ{³B¸Ì
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD