点击出现显示框,呈现该工作簿所有工作表名称,点击名称自动到那张工作表去 VBA CODE

rayhen

1. Sub ShowSheetNames()
   
2. 
   
3.     Dim ws As Worksheet
   
4. 
   
5.     Dim sheetNames() As String
   
6. 
   
7.     Dim i As Integer
   
8. 
   
9.     Dim selectedSheet As Variant
   
10. 
    
11.     ReDim sheetNames(1 To ActiveWorkbook.Sheets.Count)
    
12. 
    
13.     For i = 1 To ActiveWorkbook.Sheets.Count
    
14. 
    
15.         sheetNames(i) = ActiveWorkbook.Sheets(i).Name
    
16. 
    
17.     Next i
    
18. 
    
19.     selectedSheet = Application.InputBox("Below are all the worksheets in this workbook :" & vbCrLf & Join(sheetNames, vbCrLf) & vbCrLf & "Please enter the worksheet name to jump to：", "select sheet", Type:=2)
    
20. 
    
21.     If Not selectedSheet = False Then
    
22. 
    
23.         On Error Resume Next
    
24. 
    
25.         Set ws = ActiveWorkbook.Sheets(selectedSheet)
    
26. 
    
27.         If Not ws Is Nothing Then ws.Select
    
28. 
    
29.         On Error GoTo 0
    
30. 
    
31.     End If
    
32. 
    
33. End Sub

复制代码

为什么这行会出现错误 If Not selectedSheet = False Then ,没办法往下执行了,请老师帮忙修正,谢谢

bqwd36

改成instr试试呢

rayhen

bqwd36 发表于 2023-3-4 21:05
改成instr试试呢

老师,还是不明白,可以详细一点吗?