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

§ì¨ú¬Y®É¶¡½d³òÀx¦s®æÅܰʪº³Ì°ª¸ò³Ì§C­È??

§ì¨ú¬Y®É¶¡½d³òÀx¦s®æÅܰʪº³Ì°ª¸ò³Ì§C­È??

A1¬°DDE ³sµ²
B1=A1 ( 13:25-13:30 ¤§¶¡§Y®ÉÅܰʪº³Ì°ª­È  )(®É¶¡½d³ò¥~¬°0)
C1=A1 ( 13:25-13:30 ¤§¶¡§Y®ÉÅܰʪº³Ì§C­È  )(®É¶¡½d³ò¥~¬°0)
¥Î¤½¦¡©Î¥¨¶°¦p¦ó¼g??

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-10-6 15:06 ½s¿è

B1 ³Ì°ª  C1 ³Ì§C
Private Sub Worksheet_Calculate()
If TimeValue(Now) > TimeValue("13:30:00") and TimeValue(Now) < TimeValue("13:25:00")  THEN  Range("B1").Value=0
If TimeValue(Now) > TimeValue("13:30:00") and TimeValue(Now) < TimeValue("13:25:00")  THEN  Range("C1").Value=0
If TimeValue(Now) < TimeValue("13:30:00") and TimeValue(Now) > TimeValue("13:25:00") and Range("A1").Value > Range("B1").Value Then Range("B1").Value = Range("A1").Value
If TimeValue(Now) < TimeValue("13:30:00") and TimeValue(Now) > TimeValue("13:25:00") and Range("A1").Value < Range("C1").Value Then Range("C1").Value = Range("A1").Value

END SUB

¤½¦¡À³¸Ó¨S¿ìªk???

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD