ªð¦^¦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 : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD