Excel提高实例

kllx2004 · 发表于 2004-2-2 21:22

好啊，学习研究中，谢谢

ml666 · 发表于 2004-2-4 21:22

真的佩服，可惜不在同一城市，要不然当面请教会更加的受益，我加了你的QQ，但是你好像不常上QQ的，请问有什么最佳的联系方法？真心的想交您这个朋友！！！我已经将其存档，希望能慢慢琢磨其中奥妙。谢谢！

ml666 · 发表于 2004-2-4 21:24

对了，不介意我加你好友吧，希望你不介意。

xgrc_xgrc · 发表于 2004-2-4 22:38

以下是引用ml666在2004-2-4 21:24:00的发言：
对了，不介意我加你好友吧，希望你不介意。

好，多联系。我（晚上）常来论坛，在这里给我发消息最快或用QQ通知我

[此贴子已经被作者于2004-2-4 22:48:11编辑过]

yanjun999 · 发表于 2004-2-4 22:52

真好，佩服！

yanjun999 · 发表于 2004-2-4 22:57

是如何实现自动显示或隐藏后面的表呢？

xgrc_xgrc · 发表于 2004-2-5 12:46

以下是引用yanjun999在2004-2-4 22:57:00的发言：
是如何实现自动显示或隐藏后面的表呢？

这一段代码负责自动隐藏 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
i = 2
Do
If i <> Sh.Index Then Worksheets(i).Visible = False
i = i + 1
Loop Until i > Worksheets.Count
End Sub 打开表时，首先用下列语句将该表隐藏去掉，然后进入该表 Sheets("表名").Visible = True

[此贴子已经被作者于2004-2-5 12:50:21编辑过]

mzyggg · 发表于 2004-2-9 12:45

airflight_ · 发表于 2004-2-9 12:46

佩服

168061 · 发表于 2004-2-9 23:08

不错哟

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