求解：VBA工作表隐藏！

czr0373

附件可以实现隐藏工作表：

1.点表1其它自动隐藏

2.点表2、3、4、5，所点可见，1始终可见，其它隐藏

求解：假设表3、4绑定，

即点3，1、3、4均可见；点4，1、3、4均可见；

其它隐藏。

CC例例

1. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
   
2. 
   
3. Public Type POINTAPI
   
4.         x As Long
   
5.         y As Long
   
6. End Type
   
7. 
   
8. Sub GetPicName()
   
9.     Dim p As POINTAPI
   
10.     GetCursorPos p
    
11.     Dim oShape As Object, d As Object
    
12.     Dim Sht As Worksheet
    
13.     Dim ShtName, i%
    
14.     Set oShape = ActiveWindow.RangeFromPoint(p.x, p.y)
    
15.     Set d = CreateObject("Scripting.Dictionary")
    
16.     ShtName = Split(oShape.ShapeRange.AlternativeText, ",")
    
17.     For i = o To UBound(ShtName)
    
18.         d(ShtName(i)) = ""
    
19.     Next
    
20.     For Each Sht In Worksheets
    
21.          If d.Exists(Mid(Sht.Name, 6)) Then
    
22.              Sht.Visible = xlSheetVisible
    
23.          Else
    
24.              Sht.Visible = xlSheetVeryHidden
    
25.          End If
    
26.     Next
    
27. End Sub

复制代码

蓝桥玄霜

不要用Sheet2这类的关键字作为过程名，会产生不可知的问题；
Sub mySheet3()
    Sheets("Sheet2").Visible = False
    Sheets("Sheet5").Visible = False
    Sheets("Sheet3").Visible = True
    Sheets("Sheet4").Visible = True
    Sheets("Sheet3").Select
    Range("A1").Select
End Sub

czr0373

蓝桥玄霜 发表于 2018-8-17 09:46
不要用Sheet2这类的关键字作为过程名，会产生不可知的问题；
Sub mySheet3()
    Sheets("Sheet2").Visib ...

老师，请教，这样改后并未产生预期效果

microyip

1. Sub sheet1点击()
   
2.     点击 1
   
3. End Sub
   
4. 
   
5. Sub sheet2点击()
   
6.     点击 2
   
7. End Sub
   
8. 
   
9. Sub sheet3点击()
   
10.     点击 3
    
11. End Sub
    
12. 
    
13. Sub sheet4点击()
    
14.     点击 3
    
15. End Sub
    
16. 
    
17. Sub 点击(ByVal nClick As Integer)
    
18.     Dim wSH As Worksheet, vSH As Variant, nSH As Integer
    
19.    
    
20.     vSH = Split("||3,4,5|1,3,4", "|")
    
21.     Application.ScreenUpdating = False
    
22.     For Each wSH In Sheets
    
23.         nSH = Val(Replace(LCase(wSH.Name), "sheet", ""))
    
24.         wSH.Visible = (vSH(nClick) Like "*" & nSH & "*") Or nSH = 1
    
25.     Next
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

microyip

附上附件以供参考

czr0373

CC例例 发表于 2018-8-17 09:00

请教，怎么用呀？