- ©«¤l
- 6
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- 1
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-5-2
- ³Ì«áµn¿ý
- 2019-11-21

|
If Date > DateValue("2015/05/01") Then
MsgBox ("¤w¶W¨Ï¥Î´Á¶¡¡A¤£¥i¨Ï¥Î¡C½Ð¨D§U¶}µoªÌ!!")
Exit Sub
End If
Q1 = Application.InputBox(prompt:="½Ð¿é¤J»s§@ªÌ¦WºÙ¡G")
If Q1 = "Vercent" Then
Else: MsgBox "±K½X¿ù»~¡A§Y±N°h¥X¡I"
ActiveWorkbook.Close savechanges = False
End If |
|