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

[µo°Ý] ³]©w´X¤ÀÄÁ°õ¦æ¥¨¶°

"¸õÂ÷¤£¦A°õ¦æ" ===>µ¥©óÁÙ¦b°õ¦æ¤¤???
t8899 µoªí©ó 2013-4-6 09:21
  1. Sub a123()
  2.     Dim tm As String
  3.    
  4.     Select Case [A1].Value
  5.         Case 1
  6.             tm = "00:01:00"     '  1 ¤ÀÄÁ
  7.         Case 2
  8.             tm = "00:02:00"     '  2 ¤ÀÄÁ
  9.         Case 3
  10.             tm = "00:00:10"     '  10 ¬í
  11.         Case Else
  12.             tm = "00:00:30"     '  30 ¬í
  13.     End Select
  14.    
  15.     Application.OnTime (Now + TimeValue(tm)), "ThisWorkbook.Hello"
  16. End Sub

  17. Sub Hello()
  18.     If [U1] <> 1 Then GoTo 30

  19.     MsgBox ("Good Day!")
  20. 30:
  21.     Call a123
  22. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD