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

¨C¤ëªº²Ä¤@¤Ñ°õ¦æ

¨C¤ëªº²Ä¤@¤Ñ°õ¦æ

¦U¦ì¦n¡G
       ½Ð°Ý¤U¦Cµ{¦¡¡A¥i§_¥ÎIF¨Ó§PÂ_¦b¨C¤ëªº²Ä¤@¤Ñ°õ¦æ¤@¦¸¡G

  [X45].Copy
    [A39].PasteSpecial Paste:=xlPasteValues
      [A39].Copy [AA42]
        [Y43].ClearContents
ÁÂÁ¡I

If Format(Now(), "dd") = "01" Then
        ....
    End If
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

If Format(Now(), "dd") = "01" Then
        ....
    End If
Min µoªí©ó 2010-6-3 18:09



    ¥i¥H¥Î¤F¡AÁÂÁ«ü±Ð¡I

TOP

If Format(Now(), "dd") = "01" Then
        ....
    End If
Min µoªí©ó 2010-6-3 18:09

©ñ¤@¤U°¨«á¬¶
If Day(Date) = 1 Then
   
End If

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD