[已解决]如何用窗体控件引发工作表change事件

徐淑颖

回复 Zipall 的帖子

{:091:}那怎么办才会出现那个效果呢！头疼，本来就是残废了，看来想要皮肤白点也不行了

Zipall

回复 徐淑颖 的帖子

改用vba控件就可以实现类似的效果.
2段代码分别在thisworkbook和类模块中.

窗体控件的话,只能等高手了.
类的示例.rar (14.86 KB, 下载次数: 30)

2011-8-3 17:39 上传

点击文件名下载附件

Select

公鸡 .... 怎么下蛋啊{:111:}

徐淑颖

回复 Select 的帖子

{:101:}你太坏了！

无聊的疯子

回复 徐淑颖 的帖子

昨天回家家里断网了!!来迟了,不好意思!!

工作表控件对单元格的更改无法激活 Change  事件,但是可以想办法让他激活 SelectionChange 事件

再把代码放进 SelectionChange 事件中,这个功能就完成了

程序中考虑到你的控件可能有很多,所以用了 iif 来给 H 赋值,让程序只选择A1,A2两个单元格

代码中有说明,有需要修改的地方可以自行修改! 另外不光给控件加上了红色边框,还添加了红色底色,且调整了透明度

详见附件
附件.rar (11.24 KB, 下载次数: 55)

2011-8-4 16:45 上传

点击文件名下载附件

无聊的疯子

其实直接用这个就可以触发 Change 事件,把代码转进 Change 事件中,简单点

重新把附件修改了一下,传到这楼来

附件.zip (11.34 KB, 下载次数: 155)

2011-8-5 13:05 上传

点击文件名下载附件

1. Sub I1_Select()
   
2.     Application.ScreenUpdating = False
   
3.     Sheet1.Range("A1") = Sheet1.Range("A1") + 1
   
4.     Application.ScreenUpdating = True
   
5. End Sub

复制代码

Zipall

回复 无聊的疯子 的帖子

好方法!学习下.

顺便跟进一下
Sub I1_Select()
    [a1] = [a1]
End Sub

这样就可以利用change而不是select change.

无聊的疯子

回复 Zipall 的帖子

确实,当时测试的时候看到无法直接激活 Change 事件,就想让他激活 SelectionChange 事件,

代码搞完了才想起来用这样的方法也可以激活Change事件!!哎~~脑筋没转过弯来!!转了个圈,亏本了!!

Zipall

回复 无聊的疯子 的帖子

是你转的太快了,一不小心就跑远了.
像我这种懒猫,就转不过来

{:1212:}

无聊的疯子

回复 Zipall 的帖子

切~~那我就是跑远了才发现，原来前面还有条近路的！！

所以又倒回来走近路了！！