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

ggmmlol

好在这时，村里负责接待“Smart Boy”一行人的大叔托来县城办事的邻村小哥找到娱记来询问了：
“怎么不去了呢？大叔在村口都守了两天了。是不是嫌乡村里的环境差呀？”
娱记（囧）：这个，那个，……，我们实在是认不得路啊
小哥：原来是这么回事啊！好办，我告诉你啊，我们那里的人，都是用"PointsToScreenPixelsX"和“PointsToScreenPixelsY"来认路的。
娱记（惊呆了）：你们村的人都这么洋气的吗？

ggmmlol

娱记于是请教了一番，送走小哥时说：你去忙你的事情吧，放心，我们马上就动身，天黑前一定会到村里大叔家！

ggmmlol

先对这两位做一个亮相介绍吧。引用自“某某乡村官方渠道”：


为什么要称上面的帮助信息是“某某乡村官方发布”的呢？
如果要对Excel VBA的帮助文档做一个评价的话，那一定可以稳获一个“质量上乘”，打分在“s+”以上的评价，但同时也一定不能包含上面“PointsToScreenPixelsX”，“PointsToScreenPixelsY”这两项的帮助文档。
比尔大叔解释说：对不起，这两项的帮助文档，其实是“临时工”写的，他后来去谷歌了……

ggmmlol

“PointsToScreenPixelsX”，“PointsToScreenPixelsY”，本来是Excel中用来指明其工作薄子窗口中的某个点的位置的最佳向导。然而，就是因为上面的两篇帮助文档，让这两位向导变成了误导。
小哥已经从县城回来，告诉乡村里的大叔说，客人们已经在赶来的路上了。可是现在，天已经黑了，大叔在村口焦急地等待着——客人从县城出发了而现在还没到，比客人不来更让人担心……

ggmmlol

在本贴发表之前，我还没有在论坛里发现对于Window（或Pane)的“PointsToScreenPixelsX”，“PointsToScreenPixelsY”这两个成员的完全正确的应用实例。(或许有吧，我希望，有对它们 比此贴更早的、完全正确的应用存在。）
为什么这么说呢？
      首先，这两项都是对Excel程序窗口里的工作薄显示区域的子窗口的坐标计算相关的方法，这就必然要与窗口的显示比例相关联，如果实例中没有这一项参数，就不可能完全正确；
      其次，它们同时还要与显示设置的“分辨率”相关联，如果实例中没有通过API函数或其它方法获取屏幕显示分辨率的值参与到这两项的计算中的话，那这样的应用也一定是不可能“完全正确”的。

ggmmlol

同样是计算选定单元格的宽度和高度（像素），我前面的代码经过两次改进，正是包含了窗口的显示比例和屏幕分辨率这两项参数，并且用循环语句做逐行（或逐列）累加，才得到正确的像素值。
而如果用上面帮助文档提供的示例来计算选定单元格的宽度或高度时，对于同一个选定的单元格，甚至在不改变窗口显示比例的情况下，你只要拖动水平滚动条和垂直滚动条，它所计算出的宽度、高度值都会发生变化，甚至会出现负值。毫无疑问，对于宽度、高度这样的物理参数，不应该出现这种变化，所以，上述代码是错误的。

ggmmlol

事实上，计算单元格的区域的大小，并不需要“PointsToScreenPixelsX”，“PointsToScreenPixelsY”，而它们的真正用途，是计算工作表的对象（单元格、图形对象）上的点的屏幕坐标，正是这种原因，所以它的计算结果可以是负值，而且在拖动滚动条时，它的计算结果会改变，这就是因为拖动滚动条，就是改变了单元格的位置，也就是改变了坐标值。


现在，我们要演示使用“PointsToScreenPixelsX”，“PointsToScreenPixelsY”来准确计算某个单元格的位置，并让窗体准确地定位到这个单元格，即让窗体的左上角与此单元格的左上角正好重合。


同时，结合前面计算单元格区域大小的代码，以及更早的修改窗体风格特征的代码，即在这一次之中，集大成地完成最初设定的全部目标：

让窗体无标题、无边框、图层颜色透明、显示在最前面、但鼠标消息穿透、键盘消息穿透，且其位置和大小准确适合所选定的单元格区域。


为了验证其是否准确，我们先指定一个单元格区域，为了增加难度，确定为W1000000:Z1000030，而窗口的显示比例可以是Excel允许范围之内(10% 至400%）的任意值。

由于把分散的各个功能的代码集成在一起，逻辑上连贯、清晰了很多，所以直接上附件，供大家测试。

ggmmlol

窗口测试_窗体的大小位置都适合指定单元格区域.rar (32.25 KB, 下载次数: 248)

2018-2-6 18:59 上传

点击文件名下载附件

ggmmlol

至此，《窗体“变形记”》所遇到的主要技术困难已经被克服，余下的任务是：
1、优化代码执行效率，
2、扩展完成对行、列、以及“行+列”的指示样式，
3、使“导航灯”适应窗体冻结、拆分的情况。
4、使用工作表、工作簿的事件驱动，使之自动指示当前活动单元格区域的行、列情况，并适应主窗口的大小改变。
5、提供用户选项界面，方便为“导航灯”选择颜色、样式，
6、做成加载宏，使它适应于在多个工作簿的切换，以及新建工作簿等情况。

这么一捋下来，发现正如学导liucqa 在7楼就说过的：“其实这玩意处理起来麻烦事很多的”，看来大神也是深有体会的啊。

但是，接下来，我就不打算这么哆嗦地的介绍整个后续过程了，而是把我的源代码整理一下，等一两天，就可以直接放上来了。到时，再请大家批评指正。

《窗体“变形记”》虽然还没有完全完成，但也可以暂告一段落了。在此，感谢学导加技术分鼓励，让我突破零技术分，小开心一下

doul123

支持，辛苦的工作。