- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-3-27
|
[¤À¨É] EXCEL¡D§Q¥Î¡e®æ¦¡¤Æ±ø¥ó¡f¨ÏÀx¦s®æ§e²{°{Ã{
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2015-10-1 14:45 ½s¿è
EXCEL¡D§Q¥Î¡e®æ¦¡¤Æ±ø¥ó¡f¨ÏÀx¦s®æ§e²{°{Ã{
¡@
¥H¤W¹Ï¤ù§Y¬°¹ê»Ú®i¥Üµ²ªG¡I
¡@
¢°¡D¨Ï¥Î¡eVBA¡D©w¸q¦WºÙ¡D®æ¦¡¤Æ±ø¥ó¡f¤T¦X¤@·f°t
¢±¡DÀɮ׶}±Ò§Y¦Û°Ê°õ¦æ
¢²¡D¤£·|IJ°Ê¡eWorksheet_Change¡f¤Î¡eWorksheet_Calculate¡f
¢³¡D¤£¼vÅT¡e´_ì¡f¥\¯à¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
'¡Õµ{¦¡½X¡D¼Ò²Õ°Ï¡Ö
Public uTime¡@'³»ºÝ¦@¥ÎÅܼƫŧi
¡@
Sub Change_SND()¡@'¨C¬í¦Û°Êµ{¦¡
[IV65536].Calculate¡@'§Q¥Î¤@ÓÀx¦s®æ²£¥ÍÅܤÆ
uTime = Now + TimeValue("00:00:01")
Application.OnTime uTime, "Change_SND"
End Sub¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
'¡Õµ{¦¡½X¡D¬¡¶Ã¯¨Æ¥ó°Ï¡Ö
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If uTime <> "" Then
¡@¡@Application.OnTime uTime, "Change_SND", Schedule:=False
End If
End Sub
¡@
Private Sub Workbook_Open()
Call Change_SND
End Sub
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¡Õ©w¸q¦WºÙ¡Ö
¡eX_SND¡f¡G=SECOND(NOW())¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¡Õ®æ¦¡¤Æ±ø¥ó¡Ö
±ø¥ó¤@¡G=(A1="²§±`")*MOD(X_SND,2)
±ø¥ó¤G¡G=(A1="²§±`")
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¡Õ¦P¨Bµoªíºô¶¡Ö
http://blog.xuite.net/smile1000mile/blog/346442535
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¡Õ½d¨ÒÀÉ¡Ö¤U¸ü¡G
20151001a01(Àx¦s®æ°{Ã{).rar (9.52 KB)
|
|