不同情况调用不同窗体

dongdong10509

有三个窗体（UserForm1、UserForm2、UserForm3）在不同条件下分别调用不同的窗体（表格中某列单元格的内容分别为一类、二类、三类）


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case Cells(Target.Row, "B")
Case Is = "一类"
name = UserForm1
Case Is = "二类"
name = UserForm2
Case Is = "三类"
name = UserForm2

End Select

‘此处想写关闭当前窗体，调用名称为name的窗体，写了几个都不太对，请教高手

End Sub


注：1、调用窗体时执行了某些命令，所以打开窗体的时候需要刷新数据
       2、如果UserForm1打开状态，又点了一个属于"一类"的单元格，还要调用UserForm1，这时也需要刷新数据

MOY838840554

定义个变量啊
dim frm as object

set frm=userform1

unload frm

dongdong10509

MOY838840554 发表于 2021-2-3 10:31
定义个变量啊
dim frm as object

没太懂，
关闭当前窗体，调用名称为name的窗体

这个怎么写

MOY838840554

dim Frm as object'定义个公共变量变量
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if not Frm is nothing then unload frm'如果frm变量不是nothing就卸载窗体
Select Case Cells(Target.Row, "B")
Case Is = "一类"
UserForm1.showset frm=UserForm1
Case Is = "二类"
UserForm2.show
set frm=UserForm2
Case Is = "三类"
UserForm3.show
set frm=UserForm3
End Select

End Sub

dongdong10509

MOY838840554 发表于 2021-2-3 10:42
dim Frm as object'定义个公共变量变量
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...

测试了，可以的， 非常感谢！

muddleangel

MOY838840554 发表于 2021-2-3 10:42
dim Frm as object'定义个公共变量变量
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2 Or Intersect(Target, Range("C5:C45000")) Is Nothing Then Exit Sub
UserForm1.Show
If Target.Count > 2 Or Intersect(Target, Range("H5:H45000")) Is Nothing Then Exit Sub
UserForm5.Show
End Sub

请教大佬，我想这不同的列调用不同的窗体，现在只能谁在上面就能调出谁，请问我应该如何改