我想在VBA中写一个代码实现这样的功能:
当我选中单元格时,这个单元格所在的行和列均标上底色,当选中其他单元格时,底色消失,被选中的单元格又被标上底色。
这个代码怎么写?请高手指点。
代ç å¦ä¸ï¼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.EntireColumn.Address = Target.Address Then
Cells.Interior.ColorIndex = xlNone
Exit Sub
End If
If Target.EntireRow.Address = Target.Address Then
Cells.Interior.ColorIndex = xlNone
Exit Sub
End If
Cells.Interior.ColorIndex = xlNone
Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 35
Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 20
End Sub
ææå¦ä¸ï¼
追é®ææ³è¯·é®ä¸ä¸ï¼ææé¨ååå æ ¼è¢«ä¿æ¤éå¶ï¼æ以è°è¯çæ¶åï¼æ¾ç¤º1004é误ï¼ä½æ¯ä¿æ¤éå¶ä¸æ¹ä¾¿åæ¶ï¼æä¹åï¼
我想请问一下,我有部分单元格被保护限制,所以调试的时候,显示1004错误,但是保护限制不方便取消,怎么办?
追答Private Sub Worksheet_SelectionChange(ByVal Target As Range)貌似修改后,不显示底色的。
实际上,如图片所示,我标示黄色的是未锁定的单元格,其余没有标注底色的是锁定单元格。