Excel：VBA灰色未使用的区域-Excel:VBAGreyoutunusedareas

2  

you could use:

你可以使用:

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

1  

Just hide everything outside of the worksheet's UsedRange property.

只需隐藏工作表的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

The actual color is going to depend on your Excel application's palette.

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