Excel：VBA灰色未使用的区域

Question

是否有一个VBA代码可以自动灰化Excel中未使用的区域，类似于“分页符视图”，除了它不显示页面号（和换行符）？

我知道功能页面中断视图，但页面编号是令人不安的，无法隐藏。让我知道！

谢谢，以下两种解决方案都有效！

Answer 1

你可以使用：

Sub Greyout()
    With ActiveSheet
        With .Cells.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.349986266670736
            .PatternTintAndShade = 0
        End With
            With .Range(.Range("A1"), .UsedRange).Interior
                .Pattern = -4142
                .PatternColorIndex = -4142
                .ThemeColor = -4142
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
    End With
End Sub

Answer 2

只需隐藏工作表＆lt; UsedRange属性之外的所有内容。

Sub hideUnused()
    With Worksheets("sheet8")
        .Range(.Columns(.UsedRange.Columns.Count + 1), .Columns(.Columns.Count)).Hidden = True
        .Range(.Rows(.UsedRange.Rows.Count + 1), .Rows(.Rows.Count)).Hidden = True
    End With
End Sub

实际颜色取决于Excel应用程序的调色板。