【原】Excel | VBA(10)—聚光燈效果（閱讀模式）設(shè)置

bitterfleabane 2020-04-30

展開全文

一起來學(xué)office,，提高辦公技能

問題情境

韓老師原來發(fā)過一篇文章：Excel | 聚光燈效果（閱讀模式）——改變當(dāng)前行和列的顏色,，聚光燈效果的實現(xiàn)應(yīng)用了條件格式,，條件格式中輸入了一個不是太簡單的公式,，而且用了一條VBA語句。

今天給大家寫一個只用VBA代碼實現(xiàn)的方法,。

效果如下：

VBA實現(xiàn)

代碼如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim HighLightRng As Range, rng1 As Range, rng2 As Range Cells.Interior.ColorIndex = xlNone Set rng1 = ActiveCell.EntireColumn Set rng2 = ActiveCell.EntireRow If Target.Count > 1 Then Target.Interior.ColorIndex = xlNone '如果當(dāng)前選擇多個單元格,，則清除顏色 Else On Error Resume Next '如果后面的程序出現(xiàn)運行時錯誤時會繼續(xù)運行 Set HighLightRng = Application.Union(rng1, rng2) HighLightRng.Interior.ColorIndex = 40 Target.Interior.ColorIndex = 3 Set rng1 = Nothing Set rng2 = Nothing Set HighLightRng = Nothing End IfEnd Sub

如下圖：