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

发布网友 发布时间：2022-04-23 01:44

我来回答

共3个回答

热心网友 时间：2023-10-10 12:28

右键你的工作表标签-查看代码， 然后在跳出来的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)显示你的个性颜色这个操作会使当前工作表的复制粘贴功能不可用

热心网友 时间：2023-10-10 12:28

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就可以了。

热心网友 时间：2023-10-10 12:29

WPS 视图----阅读模式--选择颜色OK