问个弱智问题
我在一个单元格里面写了个"UserForm1"然后声明变量 Dim x As Object
再然后 Set x = Sheet1.Cells(i_1, 3)'这个单元格就是我写 "UserForm1"的地方
最后我x.show 但什么窗体都没出来
请问我这个有什么问题? 在cell中做窗体? 窗体是在出发某个时间弹出来的,比如你想双击这个单元格弹出这个窗体,则在beforeDoubleClick()事件中,UserForm1.show 就OK了。
实在不行,把你需求跟我讲下,我给你做!!! 我的意思是。。。
我在一个单元格中输入了UserForm1
然后在一个过程中 声明变量 Dim x As Object
再然后 Set x = Sheet1.Cells(i_1, 3)'这个单元格就是我写 "UserForm1"的地方
最后我x.show 但什么窗体都没出来
这些都是在auto_open(就是打开excel自动执行那个,拼写可能不对)那个过程中写的,我按f8调试,到了
x.show这句 倒是执行了 但没有任何反应 啥窗体都没弹出来。。。
不知道问题出在哪了 试试:
forms(Sheet1.Cells(i_1, 3)).show
Dim f As Form
Dim x As Object
Set x = VBA.UserForms.Add(Sheet1.Cells(i_1, 3))
x.Show
Forms.Add Trim(Sheet1.Cells(i_1, 3))
For Each f In Forms
If f.Name = Trim(Sheet1.Cells(i_1, 3)) Then f.Show
Next Dim f As Form
Forms.Add Trim(Sheet1.Cells(i_1, 3))
For Each f In Forms
If f.Name = Trim(Sheet1.Cells(i_1, 3)) Then f.Show
Next Dim f As Form
Forms.Add Trim(Sheet1.Cells(i_1, 3))
For Each f In Forms
If f.Name = Trim(Sheet1.Cells(i_1, 3)) Then f.Show
Next 楼主还是把你的"原意"表达清楚吧, 你遇到的问题应该是你的思路不对造成的. 硬来没结果
补充:VB , VBA