在Excel2003中突出显示选中单元格所在行和列的技巧(1)

在Excel2003中突出显示选中单元格所在行和列的方法

打开Excel2003，按住ALT+F11在跳出的VB编码编辑器中双击打开需要的工作表如Sheel1，在弹出的对话框中复制粘帖以下代码，然后关闭对话框及编辑器，即可获得功能。

代码：

Private Sub Worksheet_Change(ByVal target As Range) If Application.CutCopyMode <> False Then Application.CutCopyMode = False Call ColorBand(target) End If End Sub

'- - - - - - - - - - - - - - - - - - - - -

Private Sub Worksheet_SelectionChange(ByVal target As Range) If Application.CutCopyMode = False Then Call ColorBand(target) Else

Exit Sub End If End Sub

'- - - - - - - - - - - - - - - - - - - - -

Private Sub ColorBand(ByVal rngTarget As Range) With rngTarget.Parent

.Cells.Interior.ColorIndex = 0

.Columns(rngTarget.Column).Cells.Interior.ColorIndex = 42 .Rows(rngTarget.Row).Cells.Interior.ColorIndex = 42 End With End Sub

其中Cells.Interior.ColorIndex=数字，数字代表颜色，可以改变颜色为你喜欢的

突出显示即为单击选中一个单元格，其所在行和列的背景颜色都改变，在单击选中另一个单元格时，选中的单元格所在行和列的颜色改变。而上次选中的单元格所在的行和列的颜色自动都恢复为其本身的颜色。

如按Ctrl选中多个单元格，则只有第一个选中的单元格所在行和列会改变颜色， 如按住鼠标拖选一个区域的单元格，则只有所选区域左上角的单元格所在行和列改变颜色。

附：每次运行Excel自动打开（附带打开）固定的工作簿的方法

将需要自动打开的工作簿的快捷方式放到C:\\Prograrn Files\\Microsoft Office\\Office10\\XLStart文件夹中，以后每次启动时，Excel都会自动打开相应工作簿。

修改过程截图如下：

打开Excel后按ALT+F11打开如图的VB代码编辑框 双击打开需要运行功能的工作簿

本文来源：https://www.bwwdw.com/article/vwta.html