[已解决]显示和隐藏工作表

找不到名字 · 发表于 2011-8-16 10:23

我想要的结果是:
1.每次打开都是这张表是显示的,这张表为主页,其它的表都隐藏
2.我点一下上面的"查找"那下面的那张名为"查找"的表就显示出,这张表就隐藏,
3.点一下名为"查找"的那张表里面的"返回主页"按钮,则名为"查找"的那张表隐藏,则显示主页
4.其它的3张表按以上的方法,依次类推

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-16 10:53

隐藏.rar (8.58 KB, 下载次数: 64)

zjdh · 发表于 2011-8-16 10:53

隐藏.rar (8.58 KB, 下载次数: 64)

Select · 发表于 2011-8-16 10:53

建议上传附件。
另外，如果一次一问，肯定会解决得更快。当然，如果有高手有时间，也是一块解决的

liuts · 发表于 2011-8-16 11:01

来个更智能一点的自动添加工作表名称的

Book1.rar (10.06 KB, 下载次数: 23)

Kratos · 发表于 2011-8-16 11:03

这应该很容易实现~

找不到名字 · 发表于 2011-8-16 12:08

哈哈,会者不难,主要是我不会,谢谢回答

zjdh · 发表于 2011-8-16 13:16

本帖最后由 zjdh 于 2011-8-16 13:17 编辑

短信收到
若“查找”表不允许添加按钮，用以下宏，点击A1返回：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("主表").Visible = -1
Sheets("主表").Select
End If
End Sub

复制代码

zjdh · 发表于 2011-8-16 13:21

给你发个附件吧：

隐藏2.rar (9.65 KB, 下载次数: 13)

找不到名字 · 发表于 2011-8-16 13:31

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$3" Then
Sheets("材料查询表").Visible = -1
Sheets("材料查询表").Select
End If
End Sub

找不到名字 · 发表于 2011-8-16 13:38

你看一下给我的附件,打开会出错
,这样打开这个表关闭文件,再打开的时候
返回不到主页,还有我这个表里有一个宏,我这样放进去不会用
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo xxx
t = Target.Address
If t <> "$B$1" And t <> "$B$2" Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("a4:k65536").Clear
For Each s In ActiveSheet.Shapes
      s.Delete
Next
x = 4
With Sheets("材料明细表")
      c = "*" & Range("b1") & "*"
      n = "*" & Range("b2") & "*"
      For r = 3 To .Range("A65536").End(xlUp).Row
         If .Cells(r, 1) Like c And .Cells(r, 2) Like n Then
            .Cells(r, 1).Resize(1, 10).Copy Cells(x, 1)
            x = x + 1
         End If
      Next
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
xxx:
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$3" Then
      Sheets("材料查询表").Visible = -1
      Sheets("材料查询表").Select
End If
End Sub

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