应zbs112先生所做师生通讯录,大家提提意见(已更新)

青山依旧 · 发表于 2005-12-20 21:38

以下是引用[I]601476[/I]在2005-12-20 16:47:26的发言：[BR]
打開工作簿,立即出現編譯錯誤,找不到專案或程式庫
Highlight 了以下,
Private Sub RefreshListview1()
Highlight in Blue,
lvwReport
Y?

看看下面这个控件有没有加入:

601476 · 发表于 2005-12-20 23:16

青山,

我没有这个控件,应那下

控件名称是什么?

谢谢!

青山依旧 · 发表于 2005-12-20 23:27

控件工具箱上点右键:

601476 · 发表于 2005-12-20 23:57

青山,

THANK YOU!

实在太可爱

gues1688 · 发表于 2005-12-21 01:02

只有在打开此文件时其它打开的工作簿都跟着隐藏了这个问题没解决.

试一下这样： Private Sub Workbook_Open() 'Application.ScreenUpdating = False If Application.Workbooks.Count < 3 Then Application.Visible = False Else ActiveWindow.Visible = False End If UserForm1.Show 0 'Application.ScreenUpdating = True End Sub

青山依旧 · 发表于 2005-12-21 11:16

以下是引用[I]gues1688[/I]在2005-12-21 1:02:48的发言：[BR]
只有在打开此文件时其它打开的工作簿都跟着隐藏了这个问题没解决.
试一下这样： Private Sub Workbook_Open() 'Application.ScreenUpdating = False If Application.Workbooks.Count < 3 Then Application.Visible = False Else ActiveWindow.Visible = False End If UserForm1.Show 0 'Application.ScreenUpdating = True End Sub

谢谢如此关注,深夜回帖,但如此还是不能解决根本问题. 1.用Application.Visible = False,在只在开此文件时,可对文件操作. 2.用ActiveWindow.Visible = False,不能对文件操作,窗体中的数据显示的是没有隐藏的工作簿的数据.

jf971 · 发表于 2010-5-10 19:40

幸福→有伱 · 发表于 2011-12-7 19:26

很不错，谢谢了

rjtang · 发表于 2012-7-3 11:31

下载学习,谢谢!

ahhfdw · 发表于 2012-7-3 15:02

7年了，一晃就过去了！

		自动登录	找回密码
密码			免费注册