VB6封装Excel聚光灯

yf_home · 发表于 2014-4-7 19:39

本帖最后由 yf_home 于 2014-4-7 19:43 编辑

引用档案: ctp_119版主的大作(自己做的一个聚光灯) ---19楼的附件

用VB6.0对加载宏中的代码进行封装，Excel2010中菜单出现了，也能响应，就是单元格活动后不能刷新颜色。

求帮忙指导一下问题出在哪，谢谢。 VB6源码:

ExcelSpotlight.zip (68.62 KB, 下载次数: 425)

菜单在视图选项卡中。

.....

yf_home · 发表于 2014-4-7 19:41

附个图片:

...

yf_home · 发表于 2014-4-8 08:16

有解吗，顶下贴，谢谢，

.

leolee82 · 发表于 2014-5-15 14:11

好久没弄了。
excel2013和以前版本的刷新模式不一样。只能用timer，矩形被覆盖就重新画上，这样不会闪。但只要表中有批注就会闪，还没找到原因。

zpy2 · 发表于 2014-5-16 11:02

看看了。是用条件格式的吧？？？

zpy2 · 发表于 2014-5-23 16:06

加一句
set xlapp=application

yf_home · 发表于 2014-5-23 16:26

zpy2 发表于 2014-5-23 16:06
加一句
set xlapp=application

试了一下，不可行。

其实这种条件格式与Excel本身的功能有冲突（比如：条件格式、贴粘等）

已经考虑用GDI划线，目前在测试中，稳定了，再发上来。

.

frefs · 发表于 2014-6-28 23:52

留个记号！

xq4u · 发表于 2015-11-9 16:21

原因已经找到，是因为当点击单元格时，下程序没有运行，
Private Sub xlapp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
xlApp.ActiveSheet.Calculate
End Sub
在载入事件的程序 AddinInstance_OnConnection 中
加上一句：Set X.xlApp = Application
同时在模块Spotlight中将： Public X As New clsapp 设为全局变量即可。

莫后数据 · 发表于 2015-11-18 14:42

yf_home 发表于 2014-5-23 16:26
试了一下，不可行。

其实这种条件格式与Excel本身的功能有冲突（比如：条件格式、贴粘等）

楼主GDI划线研究的如何了，可以发给我学习一下吗

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

[求助] VB6封装Excel聚光灯