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

[¤À¨É] EXCEL¡D§Q¥Î¡e®æ¦¡¤Æ±ø¥ó¡f¨ÏÀx¦s®æ§e²{°{Ã{

[¤À¨É] EXCEL¡D§Q¥Î¡e®æ¦¡¤Æ±ø¥ó¡f¨ÏÀx¦s®æ§e²{°{Ã{

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-10-1 14:45 ½s¿è

EXCEL¡D§Q¥Î¡e®æ¦¡¤Æ±ø¥ó¡f¨ÏÀx¦s®æ§e²{°{Ã{
20151001a2.gif
2015-10-1 14:41
¡@
20151001a1.gif
2015-10-1 14:41

¥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)

®¼¦³½ìªºªF¦è¡A·PÁ¤À¨É
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

ª©¥D¯u¬O¤Ó¼F®`¤F¡A¦ý¤£ª¾¹D¦p¦óÀ³¥Î©O
°²³]§Ú­n³]©wA1Àx¦s®æ¤j©ó10000®É´N·|¥X²{¨ººØ¤@ª½°{ªº®ÄªG­n«ç»ò³]©w©O

TOP

¦^´_ 3# ShaoQiang


±ø¥ó¤@¡G=(A1>10000)*MOD(X_SND,2)  ÂŦâ
±ø¥ó¤G¡G=(A1>10000)  ¬õ¦â

X_SND ­È¬°·í«e®É¶¡ªº¡e¬í¼Æ¡f¡A¤¶©ó¢¯¡ã¢´¢¸
MOD(X_SND,2)¡@«h¨C¬í¥H¢¯¤Î¢°ÅܤơA
MOD(X_SND,5) = 0 ¡@«h¨C¢´¬íÅܤơDÃþ±À¡ã¡ã

TOP

QQQQQQQQQQQQQQQQQQ

TOP

ª©¤j¦n¼F®`@@·Q°Ý¦pªG¬O­n¥Î¨Ó´£¿ô¤Ñ¼Æ±Æµ{¸Ó¦p¦óÀ³¥Î©O¡H
¨Ò¦p¨Ì·Ó¤é´Á§PÂ_BCÄæ¦ì®É¶¡¨ì´N°{Ã{´£¿ô©O¡H
A           B           C         
3/14    3/20      3/24
3/19    3/25      3/28

TOP

¦^´_ 6# Hannah

¥u¯à¥Ü¨Ò¡A¦Û¦æ¨Ì¹ê»Ú¸ê®Æ¥h³]©w¡G
20160423a01(Àx¦s®æ°{Ã{).rar (8.64 KB)
¥t¤@¸ü§}¡Ghttp://www.funp.net/340302

TOP

ÁÂÁ¦^ÂÐ^^¤W¯Z®É¦A¨Ó¸Õ¸Õ¬Ý

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD