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

½Ð¦U¦ì¥ý¶iÀ°¦£ §ï§ÚªºVBA

Worksheet_Calculate()   <==== °ÝÃD¦b³oÃä, dde ¼Æ¾Ú¤@§ïÅÜ´N·|IJµo¤U­±ªºµ{¦¡½X
If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:44:00") Then
  
    Range("A2:J50000") = ""
   
Else

            
If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("08:45:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:45:00") Then
   ar = Array([A1], [B1], [C1], [D1], [E1], [F1], [G1], [H1], [I1], [J1])
   [A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
   
End If
End If


©Ò¥H§A­nªº¶¡®æ®É¶¡µL®Ä
²MªÅ«á, ´N¤£·|¤@ª½¶](©ÎµÛ §A¥i¥H ¦b­ì¥N½X¤¤ ¼W¥[®É¶¡§PÂ_ 10sec,60sec ­n°õ¦æªº¨Æ¶µ)

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD