Office中国论坛/Access中国论坛

标题: 求救!!!!! [打印本页]

作者: alonchris 时间: 2006-6-28 07:07
标题: 求救!!!!!
一个文件里如果有几十个工作表, 每个工作表都已命名, 如何快速找到其中一个工作表,请各大哥,大姐们帮忙告诉, 多谢!

作者: chenchunhuiabc 时间: 2006-6-28 16:12
用如下代码:

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 时间: 2006-6-28 16:22
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 时间: 2006-6-29 05:19
真是太谢谢了 :-)))

作者: alonchris 时间: 2006-6-29 07:17
谢谢你的代码,我按你的方法做好了,真的很方便, 非常谢谢![em07]

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)