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

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

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

Sub a123()
If [u1] <> 1 Then Exit Sub
zzzzz
Application.OnTime Now + TimeValue("00:02:00"), "Sheet6.a123"
End Sub

¦h¤[°õ¦æ¤@¦¸zzzzz, ·Q§ï¥ÑÀx¦s®æA1¨Ó¨M©w
A1=1 ==> 1¤À
A1=2 ==> 2¤À  
A1=3 ==> 30’
¤£ª¾¦p¦ó§ï?

"¸õÂ÷¤£¦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

¤£¬Æ©úÁA§Aªº·N«ä¡F ·í U1 §ï¬° 2 ®É¡A ¨Ã«D "¼È°±°õ¦æ"¡A ¦Ó¬O "¸õÂ÷¤£¦A°õ¦æ"¡C
°õ¦æ¤¤±NU1§ï¬°2 «á¡A ...
c_c_lai µoªí©ó 2013-4-6 08:54


"¸õÂ÷¤£¦A°õ¦æ" ===>µ¥©óÁÙ¦b°õ¦æ¤¤???

TOP

§Aªº¨Ò¤l¡A°õ¦æ¤¤¡A§Ú§ï¬°2 ¦A§ï¬° 1 ´N¤£°õ¦æ¤F??

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-4-6 09:07 ½s¿è
¤£¬Æ©úÁA§Aªº·N«ä¡F ·í U1 §ï¬° 2 ®É¡A ¨Ã«D "¼È°±°õ¦æ"¡A ¦Ó¬O "¸õÂ÷¤£¦A°õ¦æ"¡C
°õ¦æ¤¤±NU1§ï¬°2 «á¡A ...
c_c_lai µoªí©ó 2013-4-6 08:54


¦p¦óÅýu2 §ï¬° 2´N¤¤Â_°õ¦æ(¤£·Q¦A°õ¦æ¤F) ??¦pªG­n°õ¦æ¦A­«·s°õ¦æ

TOP

¦b°õ¦æ¤¤¡AU1§ï¬°2 ¼È°±°õ¦æ¡A§ï¬°1¤SÄ~Äò°õ¦æ¡AµLªk¸õ¥X¤£°õ¦æ???
t8899 µoªí©ó 2013-4-6 07:21

¤£¬Æ©úÁA§Aªº·N«ä¡F ·í U1 §ï¬° 2 ®É¡A ¨Ã«D "¼È°±°õ¦æ"¡A ¦Ó¬O "¸õÂ÷¤£¦A°õ¦æ"¡C
°õ¦æ¤¤±NU1§ï¬°2 «á¡A»Ý¦b«e¤@­Ó  Hello() °õ¦æ§¹²¦¦^¨ì a123() ®É¡A¤~¯à¦A¦¸
¥h§PÂ_  [U1] <> 1¡F ¦pªG¦¹®É   U1 ¬° 1 ¡A «hÄ~Äò°õ¦æ¡A ¦p U1 ¦¹®É¤£¬° 1 ®É¡A
§Y¦æ¸õÂ÷¤£¦A°õ¦æ a123()¡A ¦p¦¹¸Ñ»¡«á§A¦A¤U¸ü¾Þ§@§Úªº½d¨Ò´N·|©úÁA¤F¡I
[A1] Äæ¦ì¤§ÅÜ°ÊÀ³¥Î¥ç¦P¦¹²z¡C
¬¡­¶Ã¯1.rar (8.3 KB)

TOP

·íµM¥i¥H¡I
¦ý¬O¥²¶·¦bµ{¦¡§PÂ_¤º¼g¦º¡C
c_c_lai µoªí©ó 2013-4-5 15:40

¦b°õ¦æ¤¤¡AU1§ï¬°2 ¼È°±°õ¦æ¡A§ï¬°1¤SÄ~Äò°õ¦æ¡AµLªk¸õ¥X¤£°õ¦æ???

TOP

¥i§_¤À§O¥Î 1,2,3 ¨Ó¥N´À©Ò¿é¤Jªº®É¶¡??
t8899 µoªí©ó 2013-4-5 09:52

·íµM¥i¥H¡I
¦ý¬O¥²¶·¦bµ{¦¡§PÂ_¤º¼g¦º¡C

TOP

c_c_lai µoªí©ó 2013-4-5 08:15

¥i§_¤À§O¥Î 1,2,3 ¨Ó¥N´À©Ò¿é¤Jªº®É¶¡??

TOP

Sub a123()
If   1 Then Exit Sub
zzzzz
Application.OnTime Now + TimeValue("00:02:00"), "Sheet6.a1 ...
t8899 µoªí©ó 2013-4-5 06:28

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD