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