EXCEL选中任意单元格实现同行同列单元格全部选中并变色的代码。

答案:6 悬赏:0 手机版

解决时间 2021-04-12 19:51

提问者网友：玫瑰园
2021-04-12 11:16

如点A1，实现A行1列全部被选中并变色。

点击B1则A1行列恢复原色，B1行列变色。

最佳答案

五星知识达人网友：骨子里都是戏
2021-04-12 12:23

工具，宏，Visual Basic 编辑器，进入VB界面

在左上角的窗口中选择你要实现功能的Sheet，右键，查看代码

在右边出现的窗口里粘贴如下代码：

Dim rr As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If rr > 0 Then Columns(rr).Interior.Pattern = xlNone
Selection.EntireColumn.Interior.ColorIndex = 4
rr = Selection.Column
End Sub

功能实现了。如果想换颜色，将4改为其他数字看看。

全部回答

1楼网友：平生事
2021-04-12 18:51

lastrow=sheet1.range("a65535").End(xlup).Row range("A1:A"&lastrow).interior.colorindex=6

2楼网友：骨子里都是戏
2021-04-12 17:32

工作表事件：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False Cells.Interior.ColorIndex = xlNone Union(Rows(Target.Row), Columns(Target.Column)).Select With Selection.Interior .ColorIndex = 6 End With Target.Activate Application.EnableEvents = True End Sub

3楼网友：思契十里
2021-04-12 16:09

你所说的应该是因为被选中了才变色的吧，那个不是点任意单元格了，比如你要A列全部变色，在最顶端点A那个单元格就可以了，要先一行时，在行号上单击就可以了，被你点到的都会变色，你再点别的列号或行号，这个又恢复原来的颜色

4楼网友：洎扰庸人
2021-04-12 15:09

是文字变色?如果是文字变色的话,先选中需要变色的那行,再选颜色就可以了

5楼网友：走死在岁月里
2021-04-12 13:35

要代码的

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！