[已解决]如何在复制数据同时复制格式

woweijikuang

这时我在网上求助得到的一个汇总程序。有一点遗憾的是，在报账单输入数据，保存到账单存根处以便打印，但是却不能将报账单的源格式也复制过去，要分页打印还是必须一个个调整，求大侠帮助修改代码，使得格式自动复制到存根中。

最佳答案

月排行榜 / 总排行榜

sadhare

2012-10-6 19:01

对不起，没注意到多张存根的连续格式设置问题，现已作更改，请试用。代码已作更改，详见附件，如有问题可再向我提出。

跳转到最佳答案楼层

sadhare

可用VBA代码按源表的行高列宽重设账单存根的行高列宽。详见附件。
设置行高列宽的宏名为tableformat
代码如下
Sub tableformat()
Dim i As Integer
Dim columnabc As Variant
columnabc = Array("A", "B", "C", "D", "E")
Application.ScreenUpdating = False
For i = 1 To 33
Sheets("帐单存根").Rows(CStr(i) & ":" & CStr(i)).RowHeight = Sheets("报帐单").Rows(CStr(i) & ":" & CStr(i)).RowHeight
Next
For i = 0 To UBound(columnabc)
Sheets("帐单存根").Columns(columnabc(i) & ":" & columnabc(i)).ColumnWidth = Sheets("报帐单").Columns(columnabc(i) & ":" & columnabc(i)).ColumnWidth
Next
Application.ScreenUpdating = True
End Sub

woweijikuang

sadhare 发表于 2012-10-5 21:19
可用VBA代码按源表的行高列宽重设账单存根的行高列宽。详见附件。
设置行高列宽的宏名为tableformat
代码 ...

朋友，你好。感谢你的回复。确实能够将格式复制到存根栏中，不过如果存入两天以上的数据，那么第二张、三张就不能保留行高列宽了，见附件。因为我需要将1个月的采购单保存然后打印，所以一张张修改格式太麻烦，不知你能不能用更好的办法，就是除了刚保留的存根有格式，还要每次的都保留格式。 食品采购录帐系统888.rar (27.58 KB, 下载次数: 5)

2012-10-6 10:00 上传

点击文件名下载附件

sadhare

对不起，没注意到多张存根的连续格式设置问题，现已作更改，请试用。代码已作更改，详见附件，如有问题可再向我提出。

woweijikuang

sadhare 发表于 2012-10-6 19:01
对不起，没注意到多张存根的连续格式设置问题，现已作更改，请试用。代码已作更改，详见附件，如有问题可再 ...

虽然看到你的最后答案已经很晚，我还是要把最佳答案给你。谢谢！