高亮显示指定区域内的行列（出现424错误）问大神怎么解决

畅爽开怀1234

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '高亮显示单元格区域
Dim HighLightRng As Range, rng1 As Range, rng2 As Range
Cells.Interior.ColorIndex = xlNone
Set rng1 = Intersect(ActiveCell.EntireColumn, [HighLightArea])
Set rng2 = Intersect(ActiveCell.EntireRow, [HighLightArea])
On Error Resume Next
Set HighLightRng = Application.Union(rng1, rng2)
HighLightRng.Interior.ThemeColor = 9
Set rng1 = Nothing
Set rng2 = Nothing
Set HighLightRng = Nothing
End Sub

dajiahaoxinku12

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '高亮显示单元格区域
Dim HighLightRng As Range
Cells.Interior.ColorIndex = xlNone
Set HighLightRng = Application.Union(Target.EntireColumn, Target.EntireRow)
HighLightRng.Interior.ColorIndex = 24
Set rng1 = Nothing
Set rng2 = Nothing
Set HighLightRng = Nothing
End Sub

喬星s

我正好讀到這一頁,來說明下

其實書本是要你 在名稱管理員(ctrl+F3)
中去命名 HighLightArea，範圍為B2:H15

按ctrl+F3，新增
1.名稱: HighLightArea
2.參照到(R): 用鼠標去框 B2:H15範圍

當然如果從程式修改的話，應該是在set rng1前加入這行
ThisWorkbook.Names.Add "HighLightArea", Range("B2:H15")
不過也點累贅就是了，課本也沒這麼寫