[已解决]怎样用按钮实现单元格事件？

liwenhong

冠军欧洲2010 发表于 2014-4-10 22:54
那用一公共变量，是这种效果？

我上传了问题原件，问题更清楚了，麻烦您看看！谢谢了

新附件在10楼

liwenhong

hwc2ycy 发表于 2014-4-10 22:54
要值真正改变时才触发是吧？
这样感觉不能完美实现，但有个办法
先是用selectionchange事件，先保存相关的 ...

版主您好！
我上传了问题原件，使问题更清楚了，麻烦您看看！您辛苦了！衷心感谢！          新附件在10楼

liwenhong

hwc2ycy 发表于 2014-4-10 22:54
要值真正改变时才触发是吧？
这样感觉不能完美实现，但有个办法
先是用selectionchange事件，先保存相关的 ...

     版主您好！
     我沿用您的思路，在点击“调入信息”按钮时，先确定被编辑的职工，还将该职工所在部门的单元格赋值给g2yuan。当点击“保存”按钮时，比较g2yuan和现在的G2单元格的值，若不同，就执行“px”的宏。但由于编程水平有限，没有达到效果，出现了无论G2变化与否都执行“px",还请您看看代码错在哪里？
附件： 部门变动时才排序，否则不要排序！.zip (476.65 KB, 下载次数: 2)

2014-4-13 15:27 上传

点击文件名下载附件

hwc2ycy

liwenhong 发表于 2014-4-13 15:29
版主您好！
     我沿用您的思路，在点击“调入信息”按钮时，先确定被编辑的职工，还将该职工所在 ...

职工编辑对象中的g2yuan没有声明。
你在顶端添加
Dim g2yuan As Variant

liwenhong

hwc2ycy 发表于 2014-4-13 16:20
职工编辑对象中的g2yuan没有声明。
你在顶端添加
Dim g2yuan As Variant

按您的提示去做了，即将 Dim g2yuan As Variant放在了代码的顶端，但还是不行，麻烦您再看看吧！ 部门变动时才排序，否则不要排序！.zip (478.4 KB, 下载次数: 2)

2014-4-13 17:12 上传

点击文件名下载附件

hwc2ycy

liwenhong 发表于 2014-4-13 17:07
按您的提示去做了，即将 Dim g2yuan As Variant放在了代码的顶端，但还是不行，麻烦您再看看吧！

是不能排序还是怎么？
其实你调试的时候，在PX代码下断点。
随便调一个人的资料，不修改部分，然后写入，看看是否会在px过程内暂停
再随便调一个人的资料，修改部门，然后写入，看看是否会在px过程内暂停。

这样就知道结果了。

hwc2ycy

liwenhong 发表于 2014-4-13 17:07
按您的提示去做了，即将 Dim g2yuan As Variant放在了代码的顶端，但还是不行，麻烦您再看看吧！

你把这放在过程内有什么用了，说了是要放在模块顶端。
Dim g2yuan As Variant

位置放错了。

hwc2ycy

selectionchange事件也不写，之前好好的，就差一个声明，现在越整越废了。

hwc2ycy

1. Dim g2yuan As Variant
   
2. 
   
3. Private Sub CommandButton3_Click()        '调出“确定被编辑人员”窗体按钮
   
4.     Application.ScreenUpdating = False
   
5.     UserForm3.Show    '打开窗体3
   
6.     Let g2yuan = Range("G2")    '先将原G2的值赋给g2yuan
   
7.     Application.ScreenUpdating = True
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton1_Click()       '保存信息按钮
    
11.     If Range("B2") = "" Then Exit Sub
    
12.     ZC    '执行模块5的代码
    
13.     If Range("G2").Value <> g2yuan Then   '现G2的值和原来的值比较，若不同时执行px。
    
14.         px
    
15.     End If
    
16. End Sub
    
17. 
    
18. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
19.     If Intersect(Target, Range("g2")) Is Nothing Then Exit Sub
    
20.     g2yuan = Range("g2").Value
    
21. End Sub
    

复制代码

hwc2ycy

网速有点慢，附件传不上来，你就用这个代码替换 职工信息编辑 对象里的代码吧。