Question

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

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

Answer 1

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

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

3. 在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

---