[申请精华]背景高亮着色-完美解决冻结，拆分，缩放，隐藏(适用Excel2007以上）

leolee82 · 发表于 2013-9-18 22:00

三戒发表于 2013-6-8 18:02
测试一下，在office 2013下，能瞬间显示一下，稍候就没有了，估计跟office 2013有关

我用C++写过一个，
excel2013会自己刷新，一直没搞定这个问题，除了用timer

liucqa · 发表于 2013-9-19 00:02

leolee82 发表于 2013-9-18 22:00
我用C++写过一个，
excel2013会自己刷新，一直没搞定这个问题，除了用timer

作品在哪呢，我一直期盼看别人写的2013的聚光灯呢，Timer也行呀，我要看效果

rosesay · 发表于 2013-9-20 17:19

怎么用啊？不会用啊，请指点

leolee82 · 发表于 2013-9-24 12:47

liucqa 发表于 2013-9-19 00:02
作品在哪呢，我一直期盼看别人写的2013的聚光灯呢，Timer也行呀，我要看效果

http://club.excelhome.net/thread-1058084-1-1.html

zanjero · 发表于 2013-10-4 11:31

这个东西找了好久了

东亚五金 · 发表于 2013-10-4 14:22

怎嘛这么复杂啊

aroffice · 发表于 2014-1-22 21:36

就是不能滚动屏幕，一滚动就没有一点踪影了，输入数据也一样！

liucqa · 发表于 2014-1-22 22:12

本帖最后由 liucqa 于 2014-1-22 22:42 编辑

aroffice 发表于 2014-1-22 21:36
就是不能滚动屏幕，一滚动就没有一点踪影了，输入数据也一样！

改完的64位附件呢？

解决滚动问题需要hook windows消息或者采用定时器，vba实现不太方便

Dnatools 1.32版支持滚动条

cbtaja · 发表于 2014-4-16 22:40

多说两句：
1，Excel的里面Window对象PointsToScreenPixelX函数非常失败，至今没弄明白它内部是怎么个原理。此前介绍说
Window.PointsToScreenPixelX(X)= Window.PointsToScreenPixelX(0）+X 。得出的结果为屏幕坐标。其中输入的坐标应该是屏幕像素值。

   在EXCEL VBA中，window对象的PointsToScreenPixelX（Y）这两个方法，并不是其帮助文档中介绍的那样是度量单位转换。——因为很显然，假如是对度量单位制进行转换，那有一个就够了，而不必搞出两个来了：一个X方向，一个Y方向。
   那它到底是做什么用的呢？
      ——再看它所适用于的对象是window，就比较容易猜到了：
   它们是对窗口的用户坐标与系统屏幕坐标进行转换的，因为显示屏幕在水平方向（X方向）和竖直方向（Y方向）的实际分辨率是不一致的，而在系统中，统一使用相同的逻辑分辨率，因而需要两个不同的坐标换算公式。
   接下来，分析和测试这两个函数的曲线，发现都是斜率为1的直线，且不通过原点，与前面的猜测相印证，可以确认：函数的输入值和输出值应该使用相同的度量单位，否则曲线斜率不会等于1；而直线不通过原点，符合坐标变换时的原点相对距离的现象。
   最后，根据字面理解，以及帮助文档中虽然含混但仍有提示意义的表达，基本可以得出结论：这两个函数的输入值、输出值都是以像素个数Pixels为单位，代表将客户窗口上一个点的用户坐标转换为主窗口上对应的屏幕坐标。
   基于以上分析，我最终完成了EXCEL2003下面的代码，验证了上述结论。

liucqa · 发表于 2014-4-16 22:45

cbtaja 发表于 2014-4-16 22:40
在EXCEL VBA中，window对象的PointsToScreenPixelX（Y）这两个方法，并不是其帮助文档中介绍的那样 ...

代码呢？

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

[原创] [申请精华]背景高亮着色-完美解决冻结，拆分，缩放，隐藏(适用Excel2007以上）

点评