我正在尝试向现有代码中添加一些内容,以进一步实现自动化。 我有一个带一些代码的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