在Excel中轻松查看数据记录（转贴）

315559822 · 发表于 2006-1-18 15:24

不知道大家有没有这样的感觉，当你查看Excel数据表中某行记录时，由于数据表中的字段较多，需要拖动水平滚动条才能将整个表格的内容看完，这样很容易“看走眼”，不小心就会将上面一行或下面一行的内容错看成当前记录的数据。这样的数据交给领导，可是要挨批噢，其实通过下面的几行VBA代码，你就可以轻轻松松地查看记录了，操作步骤如下：　　打开某工作表（假设为“Sheet1”），单击“工具”菜单中的“宏”，选择“Visual Basic编辑器”命令，双击左侧窗口中对应的工作表标签名称，在弹出的代码窗口中输入如下VBA代码：　　Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.EntireRow.Interior.ColorIndex = 4 Then Target.EntireRow.Interior.ColorIndex = 0 Else Target.EntireRow.Interior.ColorIndex = 4 End If End Sub 　　关闭代码窗口回到Excel工作表中，若需要查看某行记录，只需单击该行中的任一单元格，此时该行将会自动填充绿色并高亮显示（若需改为其它颜色只需改变代码中相应的数值即可），再次单击该行中任一单元格将取消背景色的填充。另外可同时使多行记录填充背景，以方便查看或对比表格中的数据。　　编辑提示：虽然单击记录前的行号可选定整行记录，相对之下，本文提供的方法在日常办公中更为方便和快捷。 我想把该宏改为鼠标选中某行或某几行时，该行自动填充绿色，但当鼠标选中其他行时绿色也自动消失，而其他行自动显绿色！ 请斑竹帮忙！！！！

jN8W5X0A.rar (5.79 KB, 下载次数: 28)

315559822 · 发表于 2006-1-20 20:29

斑竹都几天了，帮我看看吧！

Kelidai · 发表于 2006-1-21 14:33

这个问题在这个论坛上已经有过了，我一时找不到原来的链接,就自己写一行代码加一个条件格式(属抄写),哈哈.

IamHVRcI.rar (6.02 KB, 下载次数: 38)

水蓝 · 发表于 2006-1-21 16:02

楼上的,能把你的代码贴出来吗

Kelidai · 发表于 2006-1-21 16:33

在你需要的表格中的Private Sub Worksheet_SelectionChange(ByVal Target As Range)事件中输入就行了。

ActiveWorkbook.Names.Add Name:="Rx", RefersTo:=ActiveCell.Row

		自动登录	找回密码
密码			免费注册

在Excel中轻松查看数据记录（转贴）

浏览过的版块