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

[µo°Ý] excel®É¶¡Ä²µo¨Æ¥ó

¦^´_ 3# yeh2010


    ¸Õ¸Õ¬ÝSheet1¼Ò²Õ
  1. Private Sub Worksheet_Calculate()
  2. If Weekday(Date, 2) < 6 And Format(Now, "hh:mm:ss") = "09:00:00" Then Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(, 4) = Array(Date, [A1], [B1], [C1])
  3. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD