vba设置选定单元格行的字体自动变大和变色

请大神指教,从第2行开始,选定单元格的行内字体自动变色和变大,取消选定后自动恢复原默认值.感谢!... 请大神指教,从第2行开始,选定单元格的行内字体自动变色和变大,取消选定后自动恢复原默认值.感谢! 展开

1个回答

满意答案

fajpjkmr

2020.03.25

在工作表来按Alt+F11，或者源工作表名称处右键查看代码

在弹出的VBA界面，对应工作表名称处双击或查看代码

在VBA界面右侧空白处粘贴以下代码

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