ExcelHome技术论坛
标题:
批量excel文件格式调整(规整,两行)
[打印本页]
作者:
gjytm
时间:
2019-9-8 12:22
标题:
批量excel文件格式调整(规整,两行)
求助,我有用VBA生成的一系列文件,格式规整,但是不知道如何调整单元格的格式。请求帮助,谢谢。
1. 调整本文件夹内的所有文件的格式(共两行)
2. 所有有内容的单元格加边框线
3. 所有单元格宽度为85像素(除了第一列和第四列单元格宽度是45像素)
4. 所有单元格自动换行
5. 所有单元格内容居中
6. 所有字体为宋体
7. 所有字号为11号
8. 所有单元格文字为黑色
9. 第一行文字加粗
10. 第一行单元格填充浅灰色
11. 第二行单元格无填充色
作者:
deadzlq
时间:
2019-9-8 14:58
对象和方法不熟悉,可以用录制宏反查
作者:
sudongcang
时间:
2019-9-8 15:13
这么多表格 就为了打印或者查看么 还不如弄一个总台账 另一个sheet显示 结果 格式都是统一的 不用打开关闭那么多工作簿了 与excel是工具的意义背道而驰
作者:
gjytm
时间:
2019-9-8 17:56
deadzlq 发表于 2019-9-8 14:58
对象和方法不熟悉,可以用录制宏反查
谢谢。录制宏给我了启发。但是不知道形成的编码如何整合到另一个sub中。。。
Sub 独立格式调整专用()
'独立运作成功,但是整合到上一个失败,未能全自动
Columns("A:E").Select '选择列,范围需要根据实际情况调整
Selection.ColumnWidth = 11.63 '所有选择的列调整宽度,数值自行调整,请提前测试合适的宽度'
Rows("1:2").Select '选择前两行
With Selection '
.HorizontalAlignment = xlCenter '居中
.VerticalAlignment = xlCenter '居中
.WrapText = True '自动换行
End With '
Range("A1:E2").Select '选择区域,手动根据实际情况自行调整
Selection.Borders.LineStyle = 1 '所选区域边框线实线
End Sub
欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/)
Powered by Discuz! X3.4