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

[µo°Ý] Application.OnTime µLªk²×¤î ?

¤u§@ªí¨C¤T¤ÀÄÁ¦Û°Ê°õ¦æ¬Y¥¨¶°

·Q¦bsheet1 ¨C¤T¤ÀÄÁ´N¦Û°Ê°õ¦æ"123"¥¨¶°(Sub 123())¤@¦¸,­n¦p¦ó¼g??

TOP

¦^´_ 1# t8899


     Application.OnTime Now + TimeValue("00:03:00"), "123"

TOP

¦^´_  t8899


     Application.OnTime Now + TimeValue("00:03:00"), "123"
f3202 µoªí©ó 2013-1-22 17:58


§Ú¦bsheet1 ¥Îmouse «ö¥kÁä"À˵øµ{¦¡½X" ±N Application.OnTime Now + TimeValue("00:03:00"), "123"  ¶K¤J µ¥¤T¤À¨S¤ÏÀ³??
«e­±­n¥[¤°»ò¶Ü??? (±qalt-f8 ½T¹ê¦³"123"ªº¥¨¶°)

TOP

¦bsheet1 ¥Îmouse «ö¥kÁä"À˵øµ{¦¡½X" ±N Application.OnTime Now + TimeValue("00:03:00"), "123"  ¶K¤J
³o¼Ë¬O«Ø¥ß¦bsheet1©ÒÄݼҲաAÀ³¸Ó­n«ü©w¤u§@ªí¡GApplication.OnTime Now + TimeValue("00:03:00"), "Sheet1.123"
¤£¹Lµ{¦¡¦W¥i¥H¥Î¼Æ¦r¶Ü¡H

TOP

¦bsheet1 ¥Îmouse «ö¥kÁä"À˵øµ{¦¡½X" ±N Application.OnTime Now + TimeValue("00:03:00"), "123"  ¶K¤J
...
oobird µoªí©ó 2013-1-22 20:43


§ï¦¨ "Sheet1.123" ¤T¤À«á¤]¨S¤ÏÀ³?

¥t¥~´ú¸Õ
«ö¥kÁä"À˵øµ{¦¡½X"
¥[¤J¥H¤U
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call t
End Sub
Sub t()
Application.OnTime Now + TimeValue("00:01:00"), "123"
End Sub

½Ð°Ý³o°õ¦æ²Ä¤@¦¸¥¿±` ,¦ý²Ä¤G¦¸²Ä¤T¦¸......¨Sµ¥1¤ÀÄÁ¶}©l¤@ª½­«Âаõ¦æ"123" ???

TOP

给§A­Ó¨Ò¤l
Book1.zip (5.58 KB)

TOP

给§A­Ó¨Ò¤l
oobird µoªí©ó 2013-1-22 21:37


©êºp¡A¤p§Ìµ¥¯Å¤Ó§C¡AµLÅv¤U¸üªþ¥ó

TOP

¦^´_ 7# t8899
¥i¥H³Â·Ð±H¨ì§Úªº«H½c¶Ü??
[email protected]

TOP

¦^´_ 8# t8899
¨Ò(©ñ¸m¦bsheet1)
Sub a123()
Cells(1 + a, 1) = Time '±z­n°µªº°Ê§@
Application.OnTime Now + TimeValue("00:03:00"), "Sheet1.a123"
End Sub

TOP

¦^´_  t8899
¨Ò(©ñ¸m¦bsheet1)
Sub a123()
Cells(1 + a, 1) = Time '±z­n°µªº°Ê§@
Application.OnTime ...
f3202 µoªí©ó 2013-1-22 22:08

ÁÙ¬O°Ê¤£¤F
Cells(1 + a, 1) = Time ===>¬O¤°·N«ä

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD