如何改变excel中选中时单元格的背景色
展开全部
这个可用VBA做到。
点当前工作表下的标签,右键“查看代码”,把下面代码复制进去,再回到EXCEL窗口,试一下吧。
Dim x, y
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 6
If x = 0 Then x = 1: y = 1
If Cells(x, y).Interior.ColorIndex = 6 Then
Cells(x, y).Interior.ColorIndex = xlNone
End If
x = Target.Row
y = Target.Column
End Sub
这样当前选定的单元格会自动加上黄色底色,取消选取是地,底色自动消失。
点当前工作表下的标签,右键“查看代码”,把下面代码复制进去,再回到EXCEL窗口,试一下吧。
Dim x, y
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 6
If x = 0 Then x = 1: y = 1
If Cells(x, y).Interior.ColorIndex = 6 Then
Cells(x, y).Interior.ColorIndex = xlNone
End If
x = Target.Row
y = Target.Column
End Sub
这样当前选定的单元格会自动加上黄色底色,取消选取是地,底色自动消失。
展开全部
这个可用VBA做到。
点当前工作表下的标签,右键“查看代码”,把下面代码复制进去,再回到EXCEL窗口,试一下吧。
Dim x, y
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 6
If x = 0 Then x = 1: y = 1
If Cells(x, y).Interior.ColorIndex = 6 Then
Cells(x, y).Interior.ColorIndex = xlNone
End If
x = Target.Row
y = Target.Column
End Sub
这样当前选定的单元格会自动加上黄色底色,取消选取是地,底色自动消失。
点当前工作表下的标签,右键“查看代码”,把下面代码复制进去,再回到EXCEL窗口,试一下吧。
Dim x, y
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 6
If x = 0 Then x = 1: y = 1
If Cells(x, y).Interior.ColorIndex = 6 Then
Cells(x, y).Interior.ColorIndex = xlNone
End If
x = Target.Row
y = Target.Column
End Sub
这样当前选定的单元格会自动加上黄色底色,取消选取是地,底色自动消失。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询