把以下代码复制到 Sheet 对象的模块中。
方法:打开 Excel 表格,按 Ctrl+F11。在工作表中粘贴以下代码。
Private PrevSel As Range '上次选中的单元格
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not PrevSel Is Nothing Then ‘还原成原先的格式:整行字体黑、去加粗
PrevSel.EntireRow.Font.Bold = False
PrevSel.EntireRow.Font.Color = 0
End If
Target.EntireRow.Font.Bold = True '不前选中格式,字体红色加粗
Target.EntireRow.Font.Color = vbRed
Set PrevSel = Target ’记录本次选中的单元格,以备下次调用。
End Sub