¦p¦ó°±±¼Application.onTimeµ{§Ç? (¤w¸Ñ¨M)
- ©«¤l
- 135
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 165
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-12-9
- ³Ì«áµn¿ý
- 2012-8-27
|
¦p¦ó°±±¼Application.onTimeµ{§Ç? (¤w¸Ñ¨M)
¥»©«³Ì«á¥Ñ FAlonso ©ó 2011-3-31 21:16 ½s¿è
¦³Y¤zp®Éµ{¦¡- Sub timing()
- [a1] = [a1] + 1
- Application.OnTime Now + TimeValue("00:00:01"), "timing" 'Counter
- End Sub
½Æ»s¥N½X ·Q°±¤îªº¸Ü,§Ú¼g¤F³oÓ- Sub A1stop()
- Application.OnTime Now + TimeValue("00:00:01"), "timing", , False
- End Sub
½Æ»s¥N½X |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 227
- ¥DÃD
- 3
- ºëµØ
- 1
- ¿n¤À
- 273
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-3-22
- ³Ì«áµn¿ý
- 2013-1-29
|
«Ø¥ß°±¤î¾÷¨î
Public a As Boolean
Sub timing()
If a = True Then End
[a1] = [a1] + 1
Application.OnTime Now + TimeValue("00:00:01"), "timing" 'Counter
End Sub
Sub A1stop()
a = IIf(a = True, False, True)
End Sub |
|
|
|
|
|
|