求救!!!!!

alonchris

一个文件里如果有几十个工作表, 每个工作表都已命名, 如何快速找到其中一个工作表,请各大哥,大姐们帮忙告诉, 多谢!

chenchunhuiabc

用如下代码:

Sub search()
cch = InputBox("search", "SEARCH")
For asdf = 1 To Sheets.Count
If Sheets(asdf).Name Like "*" & cch & "*" Then
Sheets(asdf).Select
GoTo line1
Else
End If

Next
line1:
End Sub

chenchunhuiabc

C:\Documents and Settings\All Users\Documents\1234.bmp

加入如下代码:

Private Sub TextBox1_Change() '直接输入工作表名查找
For asdf = 1 To Sheets.Count
If Sheets(asdf).Name Like "*" & TextBox1 & "*" Then
Sheets(asdf).Select
GoTo line1
Else
End If

Next
line1:
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38 '按向上的光标键清除文本框的内容
TextBox1.Text = ""

End Select
End Sub

alonchris

真是太谢谢了 :-)))

alonchris

谢谢你的代码,我按你的方法做好了,真的很方便, 非常谢谢![em07]

[此贴子已经被作者于2006-6-28 23:42:25编辑过]