knrt.net
当前位置:首页 >> 在ExCEl中,利用VBA中的FinD函数,设定选择条件如何... >>

在ExCEl中,利用VBA中的FinD函数,设定选择条件如何...

Sub 宏1()For i = 2 To 10 If Not Cells(i, 11).Find("职称") Is Nothing And Not Cells(i, 12).Find("工程师") Is Nothing Then Cells(i, 13) = "中级" End IfNextEnd Sub

vba没有find函数,有instr函数

你要做什么呢? 如 set rng = range("A:A").find("查找的内容") 这个不管找到找不到都不会弹出对话框的。找不到时rng=nothing

如果,楼主的意思是在VBA中用函数查找字符串,那么既可以用VBA内置函数Instr,也可以用Excel表函数Find() Instr("我们是中国人",“中国") WorksheetFunction.Find("中国","我们是中国人") 都将返回4 不同的是,在找不到时,Instr返回0,而Find返...

看了的代码,先说个无关紧要的建议,最好不要使用GOTO 解决你的问题,需要使用错误捕获语句,下面的例子代码: dim r as rangeon error resume next '不报错set r=columns(i).find("★",,,xlwhole)on error goto 0'恢复报错if r is nothing then ...

Sub Myfind() Dim iRange As Range, iFined As Range Dim iStr, iAddress As String, N As Integer '以上是定义使用到的变量 Set iRange = Range("A2:A100") '给irange变量赋值为A2:A100区域 iStr = Range("A1").Value '给要查找的字符串变量赋...

建议你查EXCEL帮助。 ----------------------------- FIND 用于查找其他文本字符串 (within_text) 内的文本字符串 (find_text),并从 within_text 的首字符开始返回 find_text 的起始位置编号。也可使用 SEARCH 查...

Sub Main() Dim I As Long For I = 1 To 1000 '行数,可以根据实际情况进行修改 If InStr(Range("A" & I), "invalidstatus") > 0 Then'假设数据都在A列中,从第一行开始 Range("A" & I).interior.Color = vbRed End If Next End Sub 如果包含特...

Sub chushih() Set sht = ActiveSheet Do While sht.Range("f6") 0 Or sht.Range("f7") 0 Or sht.Range("f8") 0 Application.Calculation = xlCalculationAutomatic sht.Range("b6:b8").Calculate Loop Application.Calculation = xlCalculation...

给你多个查询替换的例子看看,有用的话,给加分啊 '多字符替换vba程序 Public Sub Multi_replacement() '多个字符替换为一个 Dim IP As Variant Dim OP As String Dim TP As String IP = Split(Application.InputBox("替换的字符,多个用|隔开"),...

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com