运行userform1代码时无法打开userform2

我正在尝试向现有代码中添加一些内容,以进一步实现自动化。 我有一个带一些代码的userform1。如果在运行代码时发生某个事件,我需要打开一个新的userform2,其中用户必须使用一些复选框来更改userform1使用的工作表上的某些值。用户完成后,我希望他们关闭userform2并继续运行代码(userform1暂停/隐藏?)。 但是我无法打开userform2。突出显示

,显示运行时错误13
    userform2.show 

我已经尝试过将两种用户形式都设置为无模式。 我尝试过

me.hide 

在打开userform2之前。

是否有一种方法可以打开userform2,并在关闭后继续执行代码?还是需要寻找其他方法?

调用userform1的代码:

Button on Excel Sheet_click()
with combobox1
.additem XX
.
.
end with

with combobox2
.additem XX
.
.
end with

with combobox2
.additem XX
.
.
end with

userform1.show
end sub

部分召唤userform2的代码:

if sheet1.range("a1") = 1 then
 do this
elseif sheet1.range("a1") > 1 then
userform1.hide
userform2.show  'highlighted when runtime error 13 pops up
end if

userform2的初始化事件:

Private Sub UserForm2_Initialize()
Dim DBB As Worksheet
Set DBB = ThisWorkbook.Sheets("BB")
With userform2
    .labelfield1.Caption = DBB.Range("D5")
    .
    .

    .labelfield2.Caption = DBB.Range("D5") - DBB.Range("D10")
    .
    .

End With

End Sub
zdh6189664 回答:运行userform1代码时无法打开userform2

暂时没有好的解决方案,如果你有好的解决方案,请发邮件至:iooj@foxmail.com
本文链接:https://www.f2er.com/3151793.html

大家都在问