vba+if+else多层+嵌套
答：If IsArray(r) Then For Each rr In r If rr > ""Then mystr = mystr & ll & rr Next Else mystr = mystr & ll & r End If Next mystr = Mid$(mystr, 2, Len(mystr))EndFunction 按F12【另存为】，文件保存类型选择“Excel加载宏”。它将自动存入ADDIN文件夹中。然后从任意...
答：如果文本框是工作表中的控件,且文本框名称如题，可参考：'Dim i As Integer For i = 1 To 20 If Me.OLEObjects("TextBox" & i).Object.Text = Sheet1.Cells(a, 1) Then a = a + 1 b = b + 1 Else Exit For End If Next '如文本框是窗体控件，将上述代码中Me.OLEObjects("...
答：Case Else MsgBox “工作簿中的工作表超过了2个”End Select Case Else MsgBox “请在单元格A1中输入文本：工作表”End Select End Sub 如果单元格A1中的值为文本“工作表”，就判断工作簿中的工作表数量（语句Worksheets.Count），并在消息框中显示相应的信息。说明：Select Case结构可以多层嵌套，但...
答：i As Integer If Target.Address = "$D$7" Then Range("E8:S8").Clear ... For i = 2 To n ... Next i For i = 3 To n ... Next i ElseIf Target.Address = "$D$6" Then Cells(6, 7).Clear Cells(6, 10).Clear If Cells(6...
答：用 LOOKUP 可以解决 =LOOKUP(A1,{条件1,条件2,条件3...},{结果1,结果2,结果3...})如：=LOOKUP(A1,{1,2,3,4,5,6,7,8,9,10,11,12},{"A","B","C","D","E","F","G","H","I","J","K","L"})
答：If x >= 1 and x <=10 then ...Else ...End if 格式如下：如果 x>=1 并且 x<=10 那么 ...否则 ...结束if语句
答：Excel中IF函数如何同时设置两个满足的条件，即满足任意一个即为Ture？ 用法：把下面代码放进vba模块中，然后在某个单元格里面输入公式=test(A,B,N) 【A，B，N可以是指定的值或者某个单元格】 function test(A,B,N as long) dim i,j for i = 1 to 65536 if range("M" & i)....
答：当满足条件之后，就执行CASE下面的语句，所以这一例是等于10.后面的CASE就不进行判断了，如果将两个CASE的顺序交换，得出的结果就变了。所以SELECT CASE 在进行有多个结果值的判断的时候要比IF—ELSEIF嵌套效率高，可读性也高些。
答：你一直检查到X，那么结果保存到Z吧，空一列，你可以修改为X，代码如下：Sub 宏1() dim i,j,r i=3 '从第三行开始 while cells(i,1)<>"" r="" for j=6 to 24 if cells(i,j)<>0 then r=r & chr(64+j) next j cells(i,"Z")=r i=i+1 w...
答：一般情况下，我们只使用到一个For语句，如果你使用多个For语句，那么就是For语句的嵌套或多重使用了。 简单的For语句举例如下： For k = 1 To 6MsgBox ("现在的N值为：" & k)For n = 1 To 6For n = 1 To 6 '第二个循环For k = 1 To 6 '第三个循环If (k = 3) ThenExit ForE...
网友评论：
东翠15366721376：
Excel 如何使用VBA编写IF函数多层嵌套 -
19749微钱
： Sub if函数()If 条件 Then执行语句ElseIf 条件 Then执行语句.......Else执行语句End If End Sub
东翠15366721376：
EXCEL 怎么用vba或者宏 实现IF语句的多层循环(20层) -
19749微钱
： Sub test5() For i = 1 To 1000 gk = Range(＂F＂ + CStr(i)) temp = Empty Select Case gk Case ＂SHANGHAI＂ temp = ＂SH01＂ Case ＂QINGDAO＂ temp = ＂QD7 ＂ End Select Range(＂D＂ + CStr(i)) = temp Next End Sub 中间自己补充 问题补充:怎么批量使用宏呢? 每个文件都要这么处理的 把代码所在的工作薄打开,再打开待处理的文件,运行宏即可,
东翠15366721376：
EXCEL怎么用VBA设置多层if函数条件? -
19749微钱
： Function zhekou(zhanyoulv As Double, t As Integer) If zhanyoulv If t zhekou = 0 Else If t15 Then zhekou = 0 Else If t > 30 Then zhekou = 0 End If End If End If Else If zhanyoulv >= 0.035 And zhanyoulv If t zhekou = 0.8 Else If t15 Then zhekou = 1.2 ...
东翠15366721376：
EXCEL怎么用VBA设置多层IF函数条件? -
19749微钱
： 如果对VBA不太了解,用函数可以的啊!=if(a1>1,1,if(a1>2,2,if(....,0)+if(a7>7,7,......,0)
东翠15366721376：
vba if 多层 特别卡? -
19749微钱
： Sub a()Dim j As IntegerFor j = 15 To 1 Step -1If Range(＂f＂ & j) = ＂理工＂ ThenRange(＂g＂ & j) = ＂lg＂ElseIf Range(＂f＂ & j) = ＂文科＂ ThenRange(＂g＂ & j) = ＂wk＂ElseRange(＂g＂ & j).EntireRow.DeleteEnd IfNextEnd Sub其实不卡,总共才 循环15次也就是把不是 理工和文科的行删除,理工G列写 lg ,文科写 wk试下这个
东翠15366721376：
IF,的条件格式多层如何设置? -
19749微钱
： IF条件格式,最多能嵌套七层, 设置完一层后,点击左上角的IF进行设置第二层,,然后依次类推..........
东翠15366721376：
在vb中elseif是什么意思 -
19749微钱
： if 判断语句执行语句 elseif 否则怎么样执行语句 end if 就是说,这个elseif是执行if判断为非的时候再进行下一步判断用的,可以有多个elseif
东翠15366721376：
VB中的elseif的用法,哪位高手能举个例子并解释一下,谢谢了! -
19749微钱
： 1.if必以end if结束 2.elseif与else if不同 3. If···Then···ElseIf···End If 是 VB 中的块结构条件语句,主要用来针对不同的情况,让应用程序做出不同的反应.语句功能如下:If 假设情况1 Then假设情况一成立时执行的语句块1〔...
东翠15366721376：
vba能支持多个else if吗?想做多个判断,如计算到“Call lv9强化”,判断强化成功后停止 -
19749微钱
： Sub 强化统计次数()For x = 1 To 9 Step 1 if Sheet3.Cells(26, 2).Value =“强化9” then exit for else for k=1 to 50 '这里最好用死循环 Call lv & ＂i＂ & ＂强化＂ if 强化成功 thne exit forend if next k end if next x End Sub 思路大概是这样,如果你搞不了的话,把文档发给我 20732167
东翠15366721376：
怎样用VBA代码编写IF嵌套公式 -
19749微钱
： VBScript中的嵌套 if 语句的语法是:If(boolean_expression) Then Statement 1 ..... ..... Statement n If(boolean_expression) Then Statement 1 ..... ..... Statement n ElseIf (boolean_expression) Then Statement 1 ..... .... Statement n Else Statement 1 .......
