Private Sub Worksheet_Activate()Call 单元格字体设置("A1:C100", "宋体", 12)Rows("11:11").SelectRange(Selection, Selection.End(xlDown)).SelectSelection.EntireRow.Hidden = TrueColumns("E:E").SelectRange(Selection, Selection.End(xlToRight)).SelectSelection.EntireColumn.Hidden = TrueEnd SubSub 单元格字体设置(strRange As String, strFontName As String, strFontSize As Integer)Dim myRange As RangeDim myFont As FontSet myRange = Range(strRange) '指定任意的单元格区域Set myFont = myRange.FontWith myFont.Name = strFontName.Size = strFontSize.Bold = False.Italic = False.ColorIndex = 1End WithSet myFont = NothingSet myRange = NothingEnd Sub
作者:LiW