[已解决]一个加载宏的问题--在线等---有附件！

suxiong

目的：要求打开随便一个EXCEL就可以显示窗体1；
代码：已存为加载宏，并加载了。

1. Public WithEvents app As Excel.Application '申请APP为EXCEL程序事件
   
2. 
   
3. Private Sub Workbook_Open()
   
4. Set app = Excel.Application
   
5. 
   
6. UserForm1.Show
   
7. End Sub
   

复制代码

问题：
工作簿1.zip (13.95 KB, 下载次数: 5)

2013-8-27 12:34 上传

点击文件名下载附件



功能实现了，但我打开的时候，表格中单元格的值会显示空白，本来是有值的，看不见了（如图），麻烦解决下呢。
如图：

最佳答案

月排行榜 / 总排行榜

Dj_soo

2013-8-27 13:36

我这边没问题哎,要不加我QQ我远程看看,114152850

跳转到最佳答案楼层

我心飞翔410

普通工作簿是引用的加载宏的窗体，不是自己工作簿内的窗体？所以userform1.show是不行的

suxiong

我心飞翔410 发表于 2013-8-27 12:34
普通工作簿是引用的加载宏的窗体，不是自己工作簿内的窗体？所以userform1.show是不行的

有没有办法解决？？

殿堂之上

可以参考下，希望有用{:2012:}

我心飞翔410

你看看 这个是不是会有点用

suxiong

我心飞翔410 发表于 2013-8-27 12:45
你看看 这个是不是会有点用

但我的表格，单元可的值不能显示啊。你看嘛，只显示了窗体！
和我开始一样的问题。！！！！

suxiong

附件我已传了，在一楼。最开始就传了。

你发的和我的基本是一样的。

我想问的问题，就是为什么不能显示单元格的值。

suxiong

我心飞翔410 发表于 2013-8-27 12:45
你看看 这个是不是会有点用

附件我已传了，在一楼。最开始就传了。

你发的和我的基本是一样的哈。

我想问的问题，就是为什么不能显示单元格的值。

谢谢了！

我心飞翔410

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
   这应该才是代码区吧
End Sub

Private Sub Workbook_Open()
Set app = Excel.Application
End Sub

suxiong

我心飞翔410 发表于 2013-8-27 12:58
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
   这应该才是代码区吧
End Sub

没有用。你改下呢，改了也没有用啊。

单元格的值显示不出来，灰色的。