用VB打开或隐藏单元格内的工作表表名

jjmsxr

用VB打开或隐藏单元格内的工作表表名

高个子

1. Sub kdy()
   
2.     For i = 3 To 5
   
3.         s = Cells(i, 2)
   
4.         Sheets(s).Visible = True
   
5.     Next
   
6. End Sub
   

复制代码

第一个问题，第二个问题在想

jjmsxr

高个子 发表于 2022-11-22 11:01
第一个问题，第二个问题在想

!

jjmsxr

高个子 发表于 2022-11-22 11:01
第一个问题，第二个问题在想

老师！2个问题：
1.如果区域是B3：B8，个数随机产生怎么修改？？？
2.单元格是修改后的工作表表名怎么改？？？

高个子

jjmsxr 发表于 2022-11-22 11:40
老师！2个问题：
1.如果区域是B3：B8，个数随机产生怎么修改？？？
2.单元格是修改后的工作表表名怎么 ...

第一个问题改第二行的数字就可以了，for i=3 to 8
第二个问题没理解

gwjkkkkk

每二个问题，请楼主参考 。。。


Sub TEST5()
Dim arr, i&, j&, dic As Object, wks As Worksheet
Set dic = CreateObject("Scripting.Dictionary")
arr = [E3].CurrentRegion
For i = 1 To UBound(arr)
  dic(arr(i, 1)) = ""
Next i
For Each wks In ThisWorkbook.Sheets
   If Not dic.exists(wks.Name) Then
      wks.Visible = True
   End If
Next
Set dic = Nothing
End Sub

gwjkkkkk

代码审核中，请参考附件。。。

gwjkkkkk

高个子 发表于 2022-11-22 11:01
第一个问题，第二个问题在想

高兄的函数运用出神入化，VBA还有些弱。。。

jjmsxr

高个子 发表于 2022-11-25 15:51
第一个问题改第二行的数字就可以了，for i=3 to 8
第二个问题没理解

Sub kdy()
    For i = 3 To 8
        s = Cells(i, 2)
        Sheets(s).Visible = True
    Next
End Sub

老师，如果B3:B8单元格缺少一个内容就报错，如何修改！

tanglf188

Sub dissht()
    If ThisWorkbook.Sheets.Count = 1 Then Exit Sub
    For i = 2 To ThisWorkbook.Sheets.Count
        mybook = Sheets(i).Name
        Set findcell = Sheets(1).Range("B1:B6").Find(mybook, LookAt:=1)
        If findcell Is Nothing Then
            Sheets(i).Visible = 2
        Else
            Sheets(i).Visible = -1
        End If
    Next i
End Sub


Sub undissht()
    If ThisWorkbook.Sheets.Count = 1 Then Exit Sub
    For i = 2 To ThisWorkbook.Sheets.Count
        mybook = Sheets(i).Name
        Set findcell = Sheets(1).Range("E1:E6").Find(mybook, LookAt:=1)
        If findcell Is Nothing Then
            Sheets(i).Visible = -1
        Else
            Sheets(i).Visible = 2
        End If
    Next i
End Sub