隐藏EXCEl单元格

最新推荐文章于 2024-11-15 14:46:39 发布

原创最新推荐文章于 2024-11-15 14:46:39 发布 · 525 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

智能钻完井同时被 2 个专栏收录

253 篇文章

订阅专栏

VBA在石油工程中应用

9 篇文章

订阅专栏

Private Sub Worksheet_Activate()
    Call 单元格字体设置("A1:C100", "宋体", 12)
    
    Rows("11:11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = True
    Columns("E:E").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
 
End Sub

Sub 单元格字体设置(strRange As String, strFontName As String, strFontSize As Integer)
    Dim myRange As Range
    Dim myFont As Font
    Set myRange = Range(strRange) '指定任意的单元格区域
    Set myFont = myRange.Font
    With myFont
        .Name = strFontName
        .Size = strFontSize
        .Bold = False
        .Italic = False
        .ColorIndex = 1
    End With
    Set myFont = Nothing
    Set myRange = Nothing
End Sub

作者：LiW