在EXCEL中怎样使当你在点击单元格时能使对应的横排和竖排都能有颜色标记?

 我来答
匿名用户
2013-09-01
展开全部
右键你的工作表标签-查看代码, 然后在跳出来的VBE的代码窗口(右边)粘贴以下代码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 = 23
End With
Target.Activate
Application.EnableEvents = True
End Sub注:代码里的23是选择当前表的单元格时当前行和列填充的颜色,你可以自行修改这个数值(1-56)显示你的个性颜色这个操作会使当前工作表的复制粘贴功能不可用
匿名用户
2013-09-01
展开全部
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub '如果处于选取状态则退出程序
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub

按Alt+F11打开VBE编辑器,在工程管理器中双击模块“ThisWorkbook”,将上面的代码粘贴到光标处
40与36是可以改变的。
只要不大于56就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
愿儿0518
2019-06-10
知道答主
回答量:5
采纳率:0%
帮助的人:2975
展开全部
WPS 视图----阅读模式--选择颜色OK
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式