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中用函数查找字符串,那么既可以用VBA内置函数Instr,也可以用Excel表函数Find() Instr("我们是中国人",“中国") WorksheetFunction.Find("中国","我们是中国人") 都将返回4 不同的是,在找不到时,Instr返回0,而Find返...

vba没有find函数,有instr函数

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

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

只是一列数据的话,直接用筛选的方法,筛选包含"kh"再复制就可以

If 条件1 Then 处理 ElseIf 条件2 Then 处理 Else 处理 End If 条件与条件之间可以用 "And, Or, Not" 等。 判断符可以用 "=,,=," 等。

Function zhekou(zhanyoulv As Double, t As Integer)If zhanyoulv < 0.035 ThenIf t 30 Thenzhekou = 0End IfEnd IfEnd IfElseIf zhanyoulv >= 0.035 And zhanyoulv 0.04 And zhanyoulv

IF语句的语法: If 条件判断语句1 Then 处理语句AElseIf 条件判断语句2 Then 处理语句BElse 处理语句CEnd If其中,条件判断语句需要使用判断符,常用的判断符有“==”(相等)、“>”(大于)、“>=”(大于等于)、“

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 '给要查找的字符串变量赋...

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