- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
"¸õÂ÷¤£¦A°õ¦æ" ===>µ¥©óÁÙ¦b°õ¦æ¤¤???
t8899 µoªí©ó 2013-4-6 09:21 - Sub a123()
- Dim tm As String
-
- Select Case [A1].Value
- Case 1
- tm = "00:01:00" ' 1 ¤ÀÄÁ
- Case 2
- tm = "00:02:00" ' 2 ¤ÀÄÁ
- Case 3
- tm = "00:00:10" ' 10 ’
- Case Else
- tm = "00:00:30" ' 30 ’
- End Select
-
- Application.OnTime (Now + TimeValue(tm)), "ThisWorkbook.Hello"
- End Sub
- Sub Hello()
- If [U1] <> 1 Then GoTo 30
- MsgBox ("Good Day!")
- 30:
- Call a123
- End Sub
½Æ»s¥N½X |
|