同一工作表有两个窗体，解决重名worksheet怎么解决

深秋红叶2019

这两个是在同一工作表的窗体，现在用worksheet，所以另一个我用worksheet1区分，现在worksheet有不跨表效果而worksheet1会跨表，只要已worksheet1区分就会跨表，所以怎么区分worksheet,求老师帮忙，或者下面这段代码怎么改，谢谢，代码如下：

Private Sub Worksheet_Activate()
    If c = 1 Then UserForm2.Show 0
End Sub
Private Sub Worksheet_Deactivate()
     UserForm2.Hide  '.Hide
End Sub
----------------------------------------------------
Private Sub Worksheet1_Activate()
    If d = 1 Then UserForm3.Show 0
End Sub
Private Sub Worksheet1_Deactivate()
     UserForm3.Hide  '.Hide
End Sub

liulang0808

Private Sub Worksheet_Activate()
    If c = 1 Then UserForm2.Show 0
End Sub
正常，这个代码是再具体表的代码区域
楼主所谓的区分，是什么意思？

深秋红叶2019

liulang0808 发表于 2020-2-5 17:57
Private Sub Worksheet_Activate()
    If c = 1 Then UserForm2.Show 0
End Sub

这段代码是针对同一工作表写的，因为两个窗体都在同一窗体，所以重名了，但是我用worksheet1区分没用

liulang0808

深秋红叶2019 发表于 2020-2-5 18:03
这段代码是针对同一工作表写的，因为两个窗体都在同一窗体，所以重名了，但是我用worksheet1区分没用

楼主使用的事件要符合规范的
加1那个可用吗？
楼主要做一个系统，建议整体规划下，这样的东拼西凑的代码，后患无穷

深秋红叶2019

是的，不可用

深秋红叶2019

liulang0808 发表于 2020-2-5 18:50
楼主使用的事件要符合规范的
加1那个可用吗？
楼主要做一个系统，建议整体规划下，这样的东拼西凑的代 ...

是的，不可用，老师是说代码运算不稳定还是代码病毒呢

liulang0808

深秋红叶2019 发表于 2020-2-5 19:17
是的，不可用，老师是说代码运算不稳定还是代码病毒呢

拼凑的，稳定性堪忧

YZC51

深秋红叶2019 发表于 2020-2-5 18:51
是的，不可用

37楼文件已经更新，实现本功能。请查询下载！
http://club.excelhome.net/thread-1519825-4-1.html

深秋红叶2019

YZC51 发表于 2020-2-5 20:01
37楼文件已经更新，实现本功能。请查询下载！
http://club.excelhome.net/thread-1519825-4-1.html

老师写的那个没有问题了，我现在是跟着老师的代码实现其他的窗体，实现了一个窗体，另一个没实现

YZC51

37楼文件已经更新，实现本功能。请查询下载！
已经修改 UserForm2和UserForm3代码