CreateObject("Wscript.shell").Popup ¦Û°ÊÃö³¬¥\¯à¥¢®Ä??
- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-12
|
§Ú§â
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 |
|
|
|
|
|
|