- ©«¤l
- 15
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2016-9-22
- ³Ì«áµn¿ý
- 2021-3-26
|
¦^´_ 14# ã´£³¡ªL
ºF·\¡K¤p§Ì¤]¨Sµoı¡K
·d¤£À´¡A¬°¦ó¨S×¥¿¤§«e¡A¤@¼Ë¬Ocopy , vSht.Range("A1:AM" & R).Copy .[A1] '¶K¤W¸ê®Æ
·Ó²z¨Ó»¡À³¸Ó·|¤@¤¤@¤Q§âRange("A1:AM" & R)ªº¤º®ecopy ¹L¥h¡A
¦ý´«¤F[AV1]¤U©Ô¿ï³æªº¶µ¥Ø¡A«oÁÙ¬Ocopy ¨S´«¤§«eªº¤º®e¡H
¤p§Ì¤£À´¡A¯à»¡©ú¤@¤Uì¦]¶Ü¡H
With xSht
.Name = SHN: .Cells.Clear '«©R¦W, ²M°£¤º®e
.[BK3] = vSht.[BK3].Value
.[AV1] = vSht.[AV1].Value
.[BI3] = vSht.[BI3].Value
R = Val(vSht.[AT51]) * 52: If R = 0 Then Exit Sub '¨ú±o¶¼Æ
vSht.Range("A1:AM" & R).Copy .[A1] '¶K¤W¸ê®Æ
.Range("A16:A" & R) = "=TEXT(COUNT(AK$16:AK16),""'000"")" '§Ç¸¹¤½¦¡
.Range("A1:AM" & R) = .Range("A1:AM" & R).Value '¥þ³¡¤º®e¶K¦¨È
For Each vR In vSht.[A1:AM1]
.Range(vR.Address).ColumnWidth = vR.ColumnWidth 'Äæ¼e
Next
.[BK3] = "": .[AV1] = "": .[BI3] = ""
End With |
|