2010版excel怎么让鼠标纵横显示有颜色？

Question

如题所述

Answer 1

需要编写VBA代码。


代码如下：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Application.ScreenUpdating = False

    Cells.Interior.ColorIndex = -4142 '取消单元格原有填充色，但不包含条件格式产生的颜色。

    Rows(Target.Row).Interior.ColorIndex = 33 '活动单元格整行填充颜色

    Columns(Target.Column).Interior.ColorIndex = 33 '活动单元格整列填充颜色

    Application.ScreenUpdating = True

End Sub

Answer 2

择A1:G34区域，在开始选项卡的样式组中单击条件格式→新建规则→使用公式确定要设置格式的单元格”，在文本框中输入公式：
=ROW()=CELL("row")单击格式按钮，选择填充选项卡，选择一种颜色后单击两次确定
同上，选择上述区域再次新建一个条件格式规则，设置公式为：=COLUMN()=CELL("col")，然后单击格式按钮，选择填充选项卡，选择一种颜色后单击两次确定。如果只需高亮显示活动单元格所在的行，则可忽略此步骤。右击工作表标签，选择查看代码，打开VBA编辑器，在代码窗口中粘贴下列代PrivateSuWorksheet_SelectionChange(ByVal Target AsRange)Application.ScreenUpdating = TrueEnd Sub关闭VBA编辑器，在数据区域中任选一个单元格即可高亮显示该单元格所在的行和列。

Answer 3

2010版excel让鼠标纵横显示有颜色，这时候可以在开发工具里面打开VBA编辑窗口，在vba的编辑窗口里面，选择工作表的Selection change事件编辑，设定选择的时候行和列改变颜色，不选择的时候行和列恢复到工作表，原本的颜色再次选择的时候，再次给鼠标所选择的行和列加上颜色就可以。

Answer 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng As Range

Set Rng = Target.Range("A1")

Cells.Interior.ColorIndex = 0

Rng.EntireColumn.Interior.ColorIndex = 40

Rng.EntireRow.Interior.ColorIndex = 38

End Sub

代码如上

Answer 5

excel通过条件格式的确能实现，不过相对较为复杂，不实用。还不如直接用wps右下角阅读模式即可设置；本回答被网友采纳