vba批量修改文件内预算页脚列宽行高批注隐藏等

yykjyzf

于 2021-08-17 00:25:31 发布

阅读量495

点赞数 1

分类专栏： vba 文章标签： vba

本文链接：https://blog.csdn.net/yykjyzf/article/details/119745436

版权

本文介绍如何使用VBA宏进行批量操作，包括修改Excel预算工作表的页脚列宽、行高，并处理批注的隐藏显示，提升工作效率。

摘要由CSDN通过智能技术生成

Sub 批量修改文件内预算页脚列宽行高批注隐藏等()
    Dim fn$
    Dim A As String
   A = ThisWorkbook.Name
    fn = Dir(ThisWorkbook.Path & "\*.xls*")
Do
       If fn = A Then
       GoTo 100
       End If
  Set Wb1 = Workbooks.Open(ThisWorkbook.Path & "\" & fn, UpdateLinks:=0)
 '上面直接套格式
    Sheets(Array("表四甲甲供材料表", "表四甲乙供材料表")).Select
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$7" '打印标题
    End With
    Application.PrintCommunication = True
    Wb1.Sheets("表二").Range("F6").ClearComments '删批注
    Wb1.Sheets("表二").Range("F23,F16,B13").Font.ColorIndex = xlAutomatic '字体黑色
    Wb1.Sheets("表三甲").Range("7:256").RowHeight = 11  '表三甲7到256行的行高为11
    Wb1.Sheets("表三甲").Range("c:c").ColumnWidth = 50 '表三甲c列宽为50
    Wb1.Sheets("表三甲").AutoFilterMode = False '