[已解决]隐藏行运行格式调整后被展开

心灵有约

隐藏行被展开.rar (699.68 KB, 下载次数: 11)

2016-3-26 21:08 上传

点击文件名下载附件
比如隐藏7-8行后，点击运行格式后，被隐藏的行又被显示出来了，如何不被显示？

Sub 调整格式()
'
' 调整报表格式
'设置行高和列宽
Rows("3:23").RowHeight = 20
Columns("B:K").ColumnWidth = 8
'设置数据区域的单元格格式
Range("B6:K23").Select
With Selection
    .HorizontalAlignment = xlRight
    .VerticalAlignment = xlCenter
Range("a6:a23").VerticalAlignment = xlCenter
Range("b4:k5").VerticalAlignment = xlCenter
'定位错误值并变字体为白色
.SpecialCells(xlCellTypeFormulas, 16).Font.ThemeColor = xlThemeColorDark1
Range("a1").Select
End With
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-26 22:15

Sub 调整格式()
    Range("a6:a23").VerticalAlignment = xlCenter
    Range("b4:k5").VerticalAlignment = xlCenter
   
    With Range("B6:K23")
        .EntireRow.SpecialCells(xlCellTypeVisible).RowHeight = 20    '行高
        .EntireColumn.SpecialCells(xlCellTypeVisible).ColumnWidth = 8    '列宽
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        
        '定位公式的错误值，并变字体为白色
        On Error Resume Next
        .SpecialCells(xlCellTypeFormulas, 16).Font.ThemeColor = xlThemeColorDark1
        On Error GoTo 0
    End With
End Sub

跳转到最佳答案楼层

爱疯

看不到调整格式的代码

爱疯

Sub 调整格式()
    Range("a6:a23").VerticalAlignment = xlCenter
    Range("b4:k5").VerticalAlignment = xlCenter
   
    With Range("B6:K23")
        .EntireRow.SpecialCells(xlCellTypeVisible).RowHeight = 20    '行高
        .EntireColumn.SpecialCells(xlCellTypeVisible).ColumnWidth = 8    '列宽
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        
        '定位公式的错误值，并变字体为白色
        On Error Resume Next
        .SpecialCells(xlCellTypeFormulas, 16).Font.ThemeColor = xlThemeColorDark1
        On Error GoTo 0
    End With
End Sub

心灵有约

爱疯 发表于 2016-3-26 22:15
Sub 调整格式()
    Range("a6:a23").VerticalAlignment = xlCenter
    Range("b4:k5").VerticalAlignme ...

谢谢爱疯老师
我还是不明白问题是如何被解决的,能讲给我吗?

爱疯

心灵有约 发表于 2016-3-27 07:22
谢谢爱疯老师
我还是不明白问题是如何被解决的,能讲给我吗?

1）主要是修改了这2句，让其只调整可见单元格的行高，隐藏的没调整，所以就不会显示出来了。
'B6:K23所在行的定位可见单元格的行高=20
.EntireRow.SpecialCells(xlCellTypeVisible).RowHeight = 20    '行高

'B6:K23所在列的定位可见单元格的列宽=8
.EntireColumn.SpecialCells(xlCellTypeVisible).ColumnWidth = 8    '列宽


2）没有公式的错误值的时候，会报错，所以用2句把它括起来，这样无论是否有公式的错误值，都不报错了。
'定位公式的错误值，并变字体为白色
        On Error Resume Next
        .SpecialCells(xlCellTypeFormulas, 16).Font.ThemeColor = xlThemeColorDark1
        On Error GoTo 0

心灵有约

爱疯 发表于 2016-3-27 10:20
1）主要是修改了这2句，让其只调整可见单元格的行高，隐藏的没调整，所以就不会显示出来了。
'B6:K23所在 ...

非常感谢爱疯老师，辛苦了。