【重磅发布】：聚光灯——我的加载宏系列小工具【单元格小工具】之四

dssrmyh

收藏学习中

ggmmlol

感谢版主关注和反馈测试情况。

导航灯目前还只是直接采用EXCEL本身所提供的工作表事件、工作薄事件和窗口事件来刷新高亮区域，而这些事件中没有包含鼠标滚轮动作的事件，所以版主所提到的情况，确实存在。
事实上，在当前版本的“导航灯”中，当工作表的行高、列宽发生变化时，它的高亮区域也没有同步刷新。

要解决这个问题，此前liucqa学导在73楼中就提到过，需要实时获取EXCEL有关的窗口消息，才能完全让导航灯的高亮区域随着活动单元格区域而实时同步更新。

而“导航灯”的作用是在不干扰用户的情况下指示活动单元格区域的行、列，这决定了它如果要获取窗口消息来同步自身的图像，就只能使用PeekMessage函数，而不能使用getmessage函数。这时它将工作在典型的“外.挂”模式下，甚至可以称为“间.谍”模式、“木.马”模式，这从其函数名称“PeekMessage”可直译为“窥探消息”就能看出来。而这样的功能即使实现了，它的源代码也不大适合在本论坛的环境中公开发布。或可以在站内私信或其他方式下，进行小范围的交流吧。我想这也是liucqa学导没有公布他的“聚光灯”源码的主要原因吧。

当然，我现在对这一功能的实现也还在学习探索中。已经查找到了一些有用的资料，接下来将使用PeekMessage函数编写一个小程序，获取在发生鼠标滚轮动作以及改变工作表中的行高、列宽时所对应的窗口消息，目标是要确定此时是哪些单元格区域改变了行高、列宽或者在窗口中的位置，如果达到此目标，就可以同步计算出高亮区域的大小和位置，实现同步刷新。而且，这时也就可以实现当EXCEL窗口的显示比例在非100%整数倍时，也能让“导航灯”正常工作。

这些内容，liucqa学导已经有完整的实践经验，我如果摸索到能够提出一两个切中要点的问题了，再向他请教，现在还没有什么头绪，即使想请教也无从着手。

ggmmlol

自己发现一个问题：在EXCEL2010以上版本中，一些工作薄在打开时，会出现“受保护的视图”提示，此时的VBA功能受到很大限制，“导航灯”代码在此状态下运行则会报错。
所以，再次更新78楼的附件，让“导航灯”在“受保护的视图”状态下停止工作。

高度保密

ggmmlol 发表于 2018-2-12 23:55
“导航灯”更新，现在可支持Office2003及以上版本的32位或64位EXCEL程序，因此命名第一个版本号为“导航灯V ...

win10，office2003，还是无法使用。
类似这样的：oXl7Rect.Left = pn.PointsToScreenPixelsX(0) + pt2px(oRngVsbl.Left)
都出错，提示对象不支持该属性或方法。查了一下微软帮助文件，excel2003版应该支持PointsToScreenPixelsX函数，但是括号中的参数好像不对

ggmmlol

高度保密 发表于 2018-2-13 19:52
win10，office2003，还是无法使用。
类似这样的：oXl7Rect.Left = pn.PointsToScreenPixelsX(0) + pt2px ...

忘了Office2003中EXCEL只有窗口对象（window）支持PointsToScreenPixelsX，而窗格对象(Pane)并不支持这一方法。看来，那个xla格式的加载宏需要单写代码了。
可是我也有些奇怪，你都用上Win10了，为什么还用Office2003呢？那已经是15年前的老古董了，至少也该直接上Office2013吧？没有必要安装两个版本的Office。
另外，你用Office2016版的测试了没有？如果测试了，也给反馈一下吧。

高度保密

ggmmlol 发表于 2018-2-13 22:57
忘了Office2003中EXCEL只有窗口对象（window）支持PointsToScreenPixelsX，而窗格对象(Pane)并不支持这一 ...

64位win10系统，装的office2003和64位office2016，装2003是为了制作低版本的宏文件在其他电脑好兼容。
64位2016测试了，API定义类型全部没法使用。经过反复调试，发现兼容64位不需要那么麻烦，只要把32位API改为如下类似的就可以了：
#If VBA7 And Win64 Then
    Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
    Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDc As Long) As Long
    Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDc As Long, ByVal nIndex As Long) As Long
其他地方完全不需要修改。
只是2003版一点都没法使用。还希望你能单独写个2003版的，毕竟使用2003版的人很多的

qw52633

这个开发的很好 多谢楼主

qw52633

这个不随着滚轮而动如何更改？？建议楼主跟进一下

liucqa

导航灯0.9-fix64.rar (56.71 KB, 下载次数: 716)

2018-3-5 10:42 上传

点击文件名下载附件

刚看到楼主发布了64位版本，但是没法运行。

我给修改了几处定义，也没有研究对不对，总之现在能运行了。

windows10 64bits，Excel2016,64bit

fjtcake

如果是放到VB中，好像存在这样一个缺陷：

导航灯窗体会遮挡住Excel的内部窗体，如查找替换窗体