[原创]VBA程序集(第2辑)

fanjy · 发表于 2006-6-17 00:48

下面是自已在学习VBA过程中归纳的一些子程序,贴出来供大家参考,希望对您能有所帮助. VBA程序集 (第2辑) ********************************************* 程序6(查找) [程序功能] 搜索值并输入到单独的工作表中。在当前工作表的列中搜索单词(“您好”)。一旦找到匹配的数据，就将其复制到另一个工作表（“搜索结果”）中。 [条件]要求有一个命名为“搜索结果”的工作表。 [程序扩展](1)可以修改程序指定需搜索的值，也可以在该处设计一个输入框用来选取或输入要搜索的值。 (2)可以修改指定当前工作表搜索的范围。 (3)程序在搜索到指定的数据后，将会把包含此数据的整行复制到指定的工作表。可以进行修改，只复制指定的数据。同时，也可以将程序应用到设定搜索条件，搜索到满足条件的数据后，将得到整条记录结果(即查找满足条件的记录)。 [程序代码] Option Explicit Sub FindMe() Dim intS As Integer Dim rngC As Range Dim strToFind As String, FirstAddress As String Dim wSht As Worksheet Application.ScreenUpdating = False intS = 1 Set wSht = Worksheets("搜索结果") strToFind = "您好" '指定搜索的值 With ActiveSheet.Range("A1:C20") '可根据实际工作表改变范围. Set rngC = .Find(what:=strToFind, LookAt:=xlPart) If Not rngC Is Nothing Then FirstAddress = rngC.Address Do rngC.EntireRow.Copy wSht.Cells(intS, 1) intS = intS + 1 Set rngC = .FindNext(rngC) Loop While Not rngC Is Nothing And rngC.Address <> FirstAddress End If End With Application.ScreenUpdating = True End Sub 示例文档

AbBEiE4B.rar (12.78 KB, 下载次数: 919) By fanjy in 2006-6-17

[此贴子已经被作者于2006-6-17 15:46:31编辑过]

konggs · 发表于 2006-6-17 07:35

谢谢分享。辛苦了。

opiona · 发表于 2006-6-17 08:29

谢谢分享

henterwu · 发表于 2006-6-17 08:40

谢谢楼主！！！

iaiexcel · 发表于 2006-6-17 08:42

期待第三集

[此贴子已经被作者于2006-6-17 8:42:44编辑过]

haoxin · 发表于 2006-6-17 10:38

谢谢学习中

shewoyu · 发表于 2006-6-17 11:25

快出第三期！！！

小飞叶 · 发表于 2006-6-18 22:37

学习了

青山依旧 · 发表于 2006-6-18 22:55

谢谢楼主分享!!!

烟雨任平生 · 发表于 2006-6-20 02:56

谢谢了！

好好学习一下

		自动登录	找回密码
密码			免费注册