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
2、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 rn
3、gTarget.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=数字,数字代表颜色,可以改变颜色为你喜欢的 突出显示即为单击选中一个单元格, 其所在行和列的背景颜色都改变, 在单击选中另一 个单元格时, 选中的单元格所在行和列的颜色改变。 而上次选中的单元格所
4、在的行和列的颜 色自动都恢复为其本身的颜色。 如按 Ctrl 选中多个单元格,则只有第一个选中的单元格所在行和列会改变颜色, 如按住鼠标拖选一个区域的单元格, 则只有所选区域左上角的单元格所在行和列改变颜 色。 附:每次运行 Excel 自动打开(附带打开)固定的工作簿的方法 将需要自动打开的工作簿的快捷方式放到 C:Prograrn FilesMicrosoft OfficeOffice10XLStart 文件夹中,以后每次启动时,Excel 都会自动打开相应工作簿。 修改过程截图如下: 双击打开需要运 行功能的工作簿 打 开Excel后 按 ALT+F11 打开如图 的 VB 代码编辑框