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

[µo°Ý] VBA­×§ï : ½Æ»s¦³¨ç¼Æªº¤u§@ªí¡A¨Ã¥t¦s¨ì·sªº¤u§@ï

¦^´_ 5# edmondsforum

With xName.UsedRange
                    .Value = .Value
End With
§ï¬°
With ActiveSheet.UsedRange
        .Value = .Value
End With

¦]¬°xName³Q³]©w¬°­ìÀɮתºSheet¤F,©Ò¥H¬O±N­ìÀɮתº§ï¬°­È

TOP

¦^´_ 10# edmondsforum
for...nextÅܼƬOI,¤£¬OxWeek

With ActiveWorkbook
                            ActiveSheet.Name = "²Ä" & I & "¶g"
                            .SaveAs xPH & "²Ä" & I & "¶g.xlsx", CreateBackup:=False
                            .Close
                        End With

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD