vba設(shè)置選定單元格行的字體自動變大和變色

請大神指教,從第2行開始,選定單元格的行內(nèi)字體自動變色和變大,取消選定后自動恢復(fù)原默認值.感謝!... 請大神指教,從第2行開始,選定單元格的行內(nèi)字體自動變色和變大,取消選定后自動恢復(fù)原默認值.感謝! 展開

1個回答

滿意答案

fajpjkmr

2020.03.25

在工作表來按Alt+F11，或者源工作表名稱處右鍵查看代碼

在彈出的VBA界面，對應(yīng)工作表名稱處雙擊或查看代碼

在VBA界面右側(cè)空白處粘貼以下代碼

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set mRange = [A1:G7]    ' [A1:G7] 改為你需要的范圍

If Not Intersect(Target, mRange) Is Nothing Then

mRange.Select

With Selection.Font

.Size = 10                        ' 10改為你需要的大小

.ColorIndex = xlAutomatic

End With

Rows(Target.Row).Font.Size = 16        ' 16改為你需要的大小

Rows(Target.Row).Font.Color = -16776961

End If

End Sub