VBA如何在表格上的某列搜索文本框输入的内容

时间:2023-11-18 整理:docExcel.net
分享到:

[能否将插入特殊形状与插入在形状上的文本框组合在一起]按住CTRL键选中对象,就可以看到“组合”按钮。

VBA如何在表格上的某列搜索文本框输入的内容

问题已经帮你解决了,哈哈,给分吧,贴个函数:

'函数名称:SearchRowNumByName

'函数作用:根据输入的品名查找该品名在工作表中的行号

'返回值 :若查找到,返回行号,否则返回-1

Function SearchRowNumByName(strName As String) As Integer

Dim i As Integer

i = 1

While Sheet2.Cells(i, 1) <> "" '遍历产品工作表,直到空行为止

If Trim(Sheet2.Cells(i, 1)) = strName Then '如果匹配到产品名相同的,则记下行号,退出函数

SearchRowNumByName = i

Exit Function

End If

i = i + 1

Wend

SearchRowNumByName = -1 '没有匹配的记录,返回-1

End Function

调用此函数来查询输入的品名所在的行。

助excel用VBA如何做条件查找

Sub 查找表中内容() '找到后打开该工作簿文件

On Error Resume Next

Dim PH As String, Name1 As String, Name2 As String, S As String

Dim ob1 As Object, Wb As Workbook

Dim G As Integer, N As Integer, N1 As Integer

PH = InputBox("请输入要查找字符的文件夹:", "提示信息", "d:\my")

S = InputBox("请输入要查找的字符:", "提示信息")

PH = IIf(Right(PH, 1) = "\", PH, PH & "\")

Name2 = Dir(PH & "*.xls")

Name1 = ActiveWorkbook.Name

Stop

Do While Name2 <> "" And S <> ""

If Name1 <> Name2 Then

Set Wb = Workbooks.Open(PH & "\" & Name2)

N = N + 1

For G = 1 To Sheets.Count

Sheets(G).Activate

For Each ob1 In ActiveSheet.UsedRange

If InStr(ob1.Value, S) > 0 Then N1 = N1 + 1: ob1.Select: GoTo w1

Next ob1

Next G

Wb.Close

End If

w1: Name2 = Dir

Loop

MsgBox ("在“" & PH & "”文件夹中共查找了 " & N & " 个Excel文件," & Chr(13) & "文件内容中有“" & S & "”的文件有 " & N1 & " 个。")

Workbooks(Name1).Close

End Sub

以上程序能满足你的要

本文地址:http://www.docexcel.net/show/8_45387.html

以下为关联文档:

如何在表格和文本框建立等式:例如在文本框内输入1表格中某个单元格会自动生成1这个数值不好意思哦,首先WPS文字中的表格,是不支持设置函数去引用单元格的,其次WPS表格中函数引用数据也只能引用单元格中的数据,不能引用到文本框中的数据...

怎么在文本框输入文字您好,请点击功能区插入-文本框-在幻灯片中绘制出文本框后,在文本框中就可以输入内容了。...

搜索框无法输入单击进入不了么?如果是的话,关闭“我的wps”这个页面,重新打开加载试试,或者重启下软件加载试试...

WPS里面添加的文本框填内容怎么不能直接在编辑栏里面输入引用其他表格的内容的您好,在WPS表格中插入的文本框,不支持通过公式来引用其他区域的内容的哟,您可以在单元格中输入=来引用哈,关于您这块的需求,我们也会认真考虑的。...

表格和文本框如何组合第一步,在”插入“选项卡,点击“文本框”;第二步,单击插入后的文本框,在“插入“选项卡,点击”表格“,插入表格后,效果如图:ps:单击表格,即可修改表格样式哦~...

文本框内容如何上下居中对齐亲,单击插入后的文本框,右侧弹出任务窗格,点击”文本选项“---”文本框“,在文本框设置中,找到“垂直对齐方式”设置为“中部对齐”即可。...

怎么在表格搜索内容在功能区“开始”下点击“查找”(快捷键:CTRL+F)功能,在查找框中输入关键字搜索。...

搜索表格的内容在哪里搜索亲,在“开始”选项卡,点击“查找”即可。...

在wps里如何使文本框的字按文本框大小变化材料/工具:word2010 1、打开Word2010文档首先输入要文本框里的内容,这里直接输入文字而不是插入文本框。 2、然后我们将这些文字右击复制, 3、然后点击左上角的粘贴下方的小...

相关推荐: