聚光灯可以借鉴“鼠标经过高亮显示”

win2009

柳絮飘飘 发表于 2012-8-20 12:44
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Cells.Interior.ColorIndex = xlNone
...

很好，这个更实用，能否做成十字光标cad那样的？

佛山小老鼠

shaowu459 发表于 2012-8-20 12:47
这样的跟随是不是比较耗费系统资源？也就是代码时时刻刻监测鼠标的运动然后再后台运算？

耗点是内存肯定的，对现在的电脑配置没有什么关系的，再有你用时打开着色，用完之后，就要关闭着色。

柳絮飘飘

win2009 发表于 2012-8-20 12:52
很好，这个更实用，能否做成十字光标cad那样的？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Cells.Interior.ColorIndex = xlNone
Target.EntireColumn.Interior.ColorIndex = 15
Target.EntireRow.Interior.ColorIndex = 15
End Sub

win2009

柳絮飘飘 发表于 2012-8-22 16:54
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Cells.Interior.ColorIndex = xlNon ...

谢谢，我的意思是选中的单元格右边线和底线显示 线性十字光标，不是整个单元格的填充

在哪里看过，忘记了

win2009

wqfzqgk 发表于 2012-8-19 16:34
像这样玩玩可以，要是真正用的话，占用内存太多，真的用处不大，升级到2013时一点用处没有啦，他自己有个小 ...

恰恰相反，用到api 函数调用系统dll 速度更快，内存我的是4核3G，不考虑占用，升到2013是猴年的事

需要实用就是好的，完美的东西只有到共产主义才有

远方三十四度

我喜欢这个，我一直在用着，对数据量大的表很好用，避免看错 Row or column,
我用的是 Row and Column 还可自定义喜欢的颜色。

win2009

远方三十四度 发表于 2012-9-2 00:04
我喜欢这个，我一直在用着，对数据量大的表很好用，避免看错 Row or column,
我用的是 Row and Column 还可 ...

屏幕固定功能以实现，替换下面两个代码，就行你试试

Public Sub 开始()
    ActiveSheet.ScrollArea = ActiveCell.Address
    StartTimer
End Sub
Public Sub 结束()
    ActiveSheet.ScrollArea = ""
    StopTimer
End Sub

shaokui123

耗费系统资源

lpzxhjp

请问这个为啥不能关闭？

win2009

lpzxhjp 发表于 2012-12-5 22:37
请问这个为啥不能关闭？

Public Sub 开始()
    ActiveSheet.ScrollArea = ActiveCell.Address
    StartTimer
End Sub
Public Sub 结束()
    ActiveSheet.ScrollArea = ""
    StopTimer
End Sub