当鼠标点到excel单元格时,整行和整列会自动显示颜色

 我来答
小林学长123
2019-04-21 · 专注于分享数码相关知识
小林学长123
采纳数:550 获赞数:507833

向TA提问 私信TA
展开全部

一、首先,打开Excel程序,在Excel程序中打开要操作的表格。

二、然后,在Excel程序主界面上方点击“视图”,点击打开。

三、然后,在“视图”子菜单中选择“阅读模式”,点击打开。

四、然后,选择“阅读模式”时使用的颜色。

五、最后,即可看到Excel表格进入阅读模式,当鼠标点到excel单元格时,整行和整列会自动显示颜色,问题解决。

long826121
推荐于2017-04-23 · TA获得超过6601个赞
知道小有建树答主
回答量:848
采纳率:100%
帮助的人:446万
展开全部
这个需要用到代码,方法如下:

1.打开需要应用的excel。
2.按ALT+F11,会弹出代码编辑框。
3.在左边会显示出上下两个类别框里,名字分别是Project-VBAProject和Properties-sheet1(这个sheet几是你当前编辑的表单)
(注意:如果什么也新出来的窗口什么也不显示的话,就->视图->工程资源管理器 就会出来了,此时你可以在Project-VBAProject和Properties-sheet1上直接右键查看代码,在里面直接粘贴第六条的代码即可)
4.在上面的框边有三个小图标,view code(查看代码),view project(查看项目),toggle folder(打开或折叠文件夹)。
5.选择view code,会弹出一个编辑框。
6.在编辑框里黏贴下面的语言:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
'清除工作表单元格的背景色
.Parent.Cells.Interior.ColorIndex = xlNone
'设置选中区域所在行的背景色
.EntireRow.Interior.Color = vbGreen
'设置选中区域所在列的背景色
.EntireColumn.Interior.Color = vbGreen
End With
End Sub

7. 贴完之后,关闭对话框。关闭编辑框,返回到excel。
8.这时候你再点击任意单元格,就会自动出现你要的效果了。

备注:上面语言中的汉语不用删除,汉语可以可以帮助你了解该行的意思,同时也不会影响编辑效果。如果对行或列的色彩不满意,可以参考下面的色彩代码,自行修改。

vbBlack 黑
vbRed 红
vbGreen 绿
vbYellow 黄
vbBlue 蓝
vbMagenta 洋红
vbCyan 青
vbWhite 白

上面的办法对已经有填充色的表格是个灾难,它会清楚原有颜色。
你也可以试试下面的方法:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
End With

End Sub
这个虽然只能显示行不能显示列,但是不会破坏原有填充色。

回答完毕,希望是你要的。 并且我已经测试过了,正确!欢迎采纳
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hj2983658
2018-08-15 · TA获得超过227个赞
知道答主
回答量:28
采纳率:0%
帮助的人:17.3万
展开全部
其实没有那么复杂,我也差点被误导了。
1,点表格,我说的是WPS表格,其他表格没用,不知道是不是也可以这样设置。
2,点表格上一排工具栏,视图,点阅读模式,颜色按自己喜欢的风格选择。就可以了。以后鼠标点到哪个单元格,相对应的列和行,就自动颜色填充。很醒目。
3,如果不需要,按上面的步骤,再点一下阅读模式,就取消了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
snddd2000
2010-08-28 · TA获得超过4269个赞
知道大有可为答主
回答量:2266
采纳率:0%
帮助的人:1671万
展开全部
条件格式里用公式里填,应用于=$1:$65536(2003,2007以上的更大)
=(ROW()=CELL("row")) + (COLUMN()=CELL("col"))
vba编辑器里填
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ej...5@163.com
2021-04-01 · TA获得超过2358个赞
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(5)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式