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

liucqa

你讲的内容大约涉及到了聚光灯的三分之一左右的内容，期待继续完善下去。
如果喜欢技术交流，可以加入QQ群，看我的签名

ivccav

楼主分享精神可嘉，一般人做的聚光灯的确是用单元格底纹实现的，代码简单，但是可能会影响到撤销、复制功能。

另外可见楼主对API比较熟悉。
可否帮我看看我的求助（回答不了没关系，可能该论坛应该没有人能解决吧）：
http://club.excelhome.net/thread-1396007-1-1.html

ggmmlol

ivccav 发表于 2018-2-7 11:55
楼主分享精神可嘉，一般人做的聚光灯的确是用单元格底纹实现的，代码简单，但是可能会影响到撤销、复制功能 ...

你上面给的链接的帖子，我去看了，等我这个主题贴完成了，可以试着回答一下，或者你也可以按我下面的提示方向去完善代码。
这里，可以简单指出那段代码的问题所在：
它没有能像TextBox控件一样有足够完善的键盘、鼠标消息处理机制，即没有处理按方向键或鼠标键这样特定按键的消息，导致移动光标的行为被“忽视”，所以不能返回你想要的结果。

所以，你可以有两种方式去完善代码：
其一、把指定的单元格对象完善成一个“TextBox”控件，
其二、返回的内容不采用你自己捕获的按键消息，而是返回由单元格对象处理地过的内容：如Range.Text、Range.Characters、Range.Formula、Range.Value


此外，还有第三种方式：回到你那段代码的原本用途本身来解决。
你那段代码是为了替代“长相难看”的TextBox控件而编写的，但是你可以用我这个主题中用到的方法，给TextBox控件做“美容”，使其无边框、图层接近完全透明，但优先接收键盘和鼠标消息。

这第三种方式最简单，而效果最可靠。
说到这里，我也正好介绍这个对单元格作行列指示的“导航灯”小工具的诞生原因：它原本就是为了解决我本系列加载宏小工具的第一个——单元格“快录助手”（功能就是“模糊搜索、智能提示、自动完成关联输入”）——的美化而诞生的。
因为这个“快录助手”，需要把TextBox控件和ListBox控件显示在指定的单元格位置，并适合其大小，一般方式是把这两个控件插入到文档中，但这样一来，则只能做成模板，而不适合做成为加载宏，而且是每个需要用到这项功能的工作表中都需要添加这两种控件，以及相关代码，模板的通用程度就很差；而且很多用来录入数据的表格并不希望保存为含有宏的格式。
现在，有了这个“导航灯”所积累的技术和基本代码，我打算在此主题之后接下来就是把第一个小工具给做完善了。

ggmmlol

通过本例中演示的对窗口图形的处理方法，让很多在本论坛里一些很“高大上”的VBA图形处理工具，将被掀起其神秘面纱的一角。
比如：
定位到某个窗口的边界范围，（或用鼠标划取的范围），然后获取该范围的图形，保存为某种图片格式（或剪贴板中），就成为了VBA版的截图软件；
如果再沿指定线段绘制锯齿状的曲线，作为窗口图形面域裁剪（即作减集运算）的边界，就可以使图片有“撕纸”效果了；

再比如：
某位大神用GifGifGif软件录制的动画中，也像专业录屏软件录制的一样，有小的黄圆环图形跟随鼠标，甚至在鼠标按键时还能做波纹状的动态变化，来提示进行了鼠标按键动作。
其原理就是，利用API中有关鼠标事件的过程、函数，获取鼠标指针的屏幕坐标，让图形动态的定位在这一系列的坐标上，就实现了图形的鼠标指针跟随效果；而圆环状的图形，可以通过设置窗口的面域为圆形并在其上绘制一个小圆而得到。

ggmmlol

仍然回归本主题。
59楼的示例附件，用累计各行高、各列宽的办法，来实时获取某个单元格对A1单元格的相对坐标。当这个目标单元格的位置接近于工作表的最末行、最末列时，就需要几秒钟的时间才能完成计算（我的机器上运行上面附件的示例代码，用时约3.5秒）。这就带来很明显的顿滞感，要想达到实用，还需要进一步优化代码的效率。

优化代码，通常应该从算法优化着手。对于VBA，还可以升级为VB来提升部分效率，毕竟后者是编译过的，比前者这种解释型的代码效率高。
但还有一种方式，我把它称作“让步优化”，也就是去掉代码中耗费时间和资源较多、但并不大实用的功能，以小的牺牲换得较大的效率提升。

我们的“导航灯”也可以采用这种“让步优化”。这正是来源于PointsToScreenPixelsX、PointsToScreenPixelsY的工作原理。

ggmmlol

当EXCEL窗口的显示比例设置为非100%的整数倍时，行高、列宽的屏幕像素理论值可能是小数，而实际需要为整数，在取整过程中就有0.5像素以内的舍入误差，这种误差累积起来，当行列数较多时就非常明显。
在Excel2007格式的工作簿中，最大行号达百万以上，如果每行误差0.5像素（当窗口比例为50%时，就有可能发生），在表格底部的单元格，以上述的PointsToScreenPixelsY方法定位其纵向坐标，它仅直接做理论计算后取整，没有考虑各行的误差累计，因此其计算的结果偏差可达到50万像素以上。
以常用的屏幕显示分辨率——96像素每英寸——计算，位置偏差就达0.5万英寸以上，可谓是“差之毫厘，失之千里”。而即使只对于第100行，误差也可达50像素，约0.5英寸，约1.3厘米，（1英寸=2.54厘米），而EXCEL表格默认11号字体时的默认自动行高为18像素，这个误差接近其三个行高。

ggmmlol

但是，如果EXCEL窗口的显示比例是100%的整数倍时，各行高列宽的屏幕显示像素都不存在取整的舍入误差，这时由PointsToScreenPixelsX、PointsToScreenPixelsY计算出来的坐标，就是准确的，所以是直接可用的。

如果只需要“导航灯”在窗口显示比例为100%的整数倍的时候才工作，那就可以用PointsToScreenPixelsX、PointsToScreenPixelsY计算单元格的屏幕坐标，这对于定位接近工作表最底部的单元格来说，计算效率是近百万倍的提升。

而在实际应用中，如果以小于100%的比例查看数据，往往也只是为了看页面布置效果而非表格内容，这时通常不需要作行列指示。让“导航灯'只在窗口显示比例为100%的整数倍时才工作，也并不影响其实用价值。

ggmmlol

所以，我将首先给出一个用上述方式“让步优化”过的“导航灯”加载宏，它允许设定你喜欢的Color（论坛用Discuz!建站，其用于帖子自动审核的代码对某个字太过敏感，只好掉个“洋文书包”，并吐槽一下"Discuz!"），允许选择”导航灯“的样式（行、列、行+列、单元格区域 共4种可选）。只是它需要在窗口显示比例为整数时才工作，如果窗口比例不是整数，它将提示、并等待你手动调整窗口显示比例为Excel允许范围内最接近的整数，或者请你关闭它。

ivccav

ggmmlol 发表于 2018-2-8 10:17
你上面给的链接的帖子，我去看了，等我这个主题贴完成了，可以试着回答一下，或者你也可以按我下面的提示 ...

“模糊搜索、智能提示、自动完成关联输入”功能我也用过多次，就是在单元格上覆盖一个textbox，利用其change事件捕获输入内容，用listbox显示。但是textbox真的不是很好看，还有就是你说的代码没有通用性，还有可能使用者无意中把textbox删掉了（原因不明，可能是运行错误导致textbox显示后无法隐藏吧）。用单元格响应按键事件就完美了，就像Excel2007输入公式时的提示那样，无需等待输入完毕。我是不懂API，代码中的API根据英文名称还是能理解的，但是要运用就勉为其难了。期待你的大作了！

ggmmlol

导航灯.rar (51.41 KB, 下载次数: 512)

2018-2-9 22:42 上传

点击文件名下载附件