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

[µo°Ý] copy¸ê®Æ

¦^´_ 1# PJChen

¸Õ¸Õ¬Ý
±NWorkbooks("³Ì·s®w¦s-¨Î«~.xlsx").Sheets("¨Î«~").Activate
.Range("AM6:AM" & xRow).PasteSpecial xlPasteValues
§ï¬°-->
Workbooks.Open(Path & "³Ì·s®w¦s-¨Î«~.xlsx").Sheets("¨Î«~").Activate
Range("AM6:AM" & (xRow + 1)).PasteSpecial xlPasteValues '¿ï¾Ü©Ê¶K¤W­È

TOP

¦^´_ 3# PJChen

1.¦]¬°¤£¾å±oWorkbooks("³Ì·s®w¦s-¨Î«~.xlsx").Sheets("¨Î«~")¬O¤w¸g¶}±Ò,©Ò¥H¤~·|¦bµ{¦¡¤¤¼W¥[¶}±Ò
2.½d¨ÒÀɤ¤Range("S5:S" & xRow)¤¤xRow¬O19,¦ýWorkbooks("³Ì·s®w¦s-¨Î«~.xlsx").Sheets("¨Î«~")¤¤Range("AM6:AM" & xRow)¬OAM6:AM19©Ò¥H¶K¤£¤W
©Ò¥HRange("AM6:AM" & (xRow + 1)).¤~¦h¥[¤@¥hº¡¨¬¸ê®ÆÄæ¦ì
¦]¬°Range("S5:S19")¸òRange("AM6:AM19")®t¤@¦C

TOP

¦^´_ 8# PJChen

If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 4 Then
                 Call Module211.¥X³f
            Else
             Exit For
         End If

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD