exl的vba代码问题：如何查找包含指定内容的单元格，计算出单元格数，并得出第n个单元格的行数 Excel VBA 如何在某一列查找某一单元格,并获得此单元...
if instr(cel,"指定内容")>0 then
s=s+
end if
next
请问我要写一段excel下的vba，功能是查找包含某一字段的单元格，并返回其行数，应该怎么写呢？~
.find (what:="许嵩",lookat:=xlpart)
好象是这样吧
给一个在用的具体例子吧!
Dim F As Boolean
Set Rng = .Rows("1:1").Find(what:="责任部门", lookat:=xlWhole) '将上面没在有全部再出来一次
If Not Rng Is Nothing Then
k = Rng.Column
Lrow = .Cells(65536, k).End(xlUp).Row
ReDim arr2(1 To Lrow - 1) ' '余下的没有机台的责任部门
jj = 1
For i = 2 To Lrow
F = False
A = .Cells(i, k)
For j = 1 To UBound(arr)
If Len(arr(j, 1)) > 0 Then If arr(j, 1) = A Then F = True: Exit For
Next
If Not F Then arr2(jj) = A: jj = jj + 1
Next
Else
MsgBox "基础资料表中没有责任部门"
End If
给你个列子 在 C列找 包含 “宁波” 的单元格 ，如果 是完全匹配 XLPART 改成XLWHOLE
Sub 查找()
Set findcell = Columns("c").Find("宁波", LookAt:=xlPart)
If Not findcell Is Nothing Then
MsgBox findcell.Row
Else
MsgBox "没找到符合条件的单元格"
End If
End Sub
怎么查看excel的VBA代码?
答：按住ALT+F11弹出VBA编辑器。\x0d\x0a只是要破解么？\x0d\x0a新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可,经测试已经通过.\x0d\x0a'移除VBA编码保护\x0d\x0aSub MoveProtect()\x0d\x0a Dim FileNam...
在EXCEL中 如何用VBA查找某特定单元格并返回该单元格的行和列值?
答：代码解析：RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第...
请教,在Excel 中使用VBA查找问题。
答：指定LookAt的值 Variant 类型，可选。可为以下 XlLookAt 常量之一：xlWhole 或 xlPart。find如果指定lookat的值, 默认lookat是xlpart, 是部分匹配指定值 也可以理解为包含的意思, 如果要完全匹配就要指定lookat选项为xlwhole,Set Rng = Worksheets(2).Range("C:C").Find(UserForm1.TextBox4.Text...
Excel VBA求助:如何查找特定内容的单元格?
答：有多种办法，常用以下三种方法：1、用Fund方法 R = Range("AX5:AX1000").Find(Range("BA2"), , , 1).Row 2、使用工作表函数容器中的Match函数 R = Application.WorksheetFunction.Match(Range("BA2"), Range("AX5:AX1000"), 0) + 4 3、用循环比较的方法（代码略）...
Excel VBA查询
答：1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找...
在excel中如何用vba来实现查找特定的字符串?
答：1、首先打开需要编辑的Excel表格，进入到编辑的的页面中。2、然后在弹出来的窗口中，鼠标右键单击工作表，选择打开“查看代码”。3、然后在弹出来的窗口中，点击输入代码：Sub AAA()Dim I As Long For I = 1 To 1000 '行 范围，自己修改 If InStr(Range("A" & I), "invalidstatus") > 0 ...
excel中使用vba代码查找字符串并返回该单元格的位置
答：MsgBox Sheet1.Range("1:" & Sheet1.Rows.Count).Find("测试字符串").Address End Sub 如果是多个，并且不要提示，让它变成行数的变量 Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件，最早版本是在...
在Excel中,利用VBA中的Find函数进行查询的问题,请高手指点。_百度知 ...
答：你要做什么呢？如 set rng = range("A:A").find("查找的内容") 这个不管找到找不到都不会弹出对话框的。找不到时rng=nothing
如何使用vba以输入的关键字从excel工作簿中查找隐藏工作表中的数据并...
答：打开Excel工作簿，并按下Alt+F11进入VBA编辑器界面。在VBA编辑器中，选择插入菜单中的模块，以创建一个新的VBA模块。在新建的VBA模块中，编写以下代码：vba Copy code Sub SearchHiddenSheets()Dim ws As Worksheet Dim cell As Range Dim searchValue As String searchValue = InputBox("请输入要搜...
如何用VBA查询数据
答：3、下面到了建立宏的步骤：单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。4、在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。5、单击“开发工具”——查看代码，打开VBA编辑器，...
