vba+if
答：end if结构 该结构用于单选择判断语句执行，具体用法看下面实例 实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出”VBA教研室“ 程序： Sub 判断语句() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" Then Ce...
答：VBA判断语句 1）If„Then„Else语句 IfconditionThen[statements][Elseelsestatements]如1：IfA>B And C<DThenA=B+2ElseA=C+2 如2：Ifx>250Thenx=x-100 或者，可以使用块形式的语法： If condition Then [statements][ElseIf condition-n Then [elseifstatements] ...[Else [elses...
答：If Cells(x, 1).Value = 1 Then Cells(y, 5).Value = Cells(x, 3).Value Else End If Next Next End Sub 以下为新回答：Sub zhao()Dim x As Integer Dim y As Integer For y = 100 To 7 Step -1 For x = y To 7 Step -1 If Cells(x, 1).Value = 1 Then Cells(y, ...
答：Function GetPrice(r1 As Range, r2 As Range)aSize = LCase(Trim(r1.Value))aWeight = r2.Value Select Case aSize Case "large standard"If aWeight <= 2 Then Result = 4.76 ElseIf aWeight <= 3 Then Result = 5.26 ElseIf aWeight > 3 Then Result = 5.26 + (aWeight - ...
答：If int(range("A1").Value)=range("A1").Value AND range("A1").Value>=10000 Then 前一个条件判断是否整数，后一个判断是否大于10000，也就是是否五位数。
答：函数中的if语句=if（条件，符合条件结果，不符合条件结果）。VBA中也有一个同样的函数，为了跟函数的if区分，vba中的名称为iif，使用方法与函数完全一致，iif（条件，符合条件结果，不符合条件结果）。VBA中另外一种if表达方式更为常用，格式为 if 条件 then 执行结果或者 if 条件 then结果一结果二else...
答：Public WithEvents wdApp As Word.ApplicationDim A, BPrivate Sub Document_Open() A=1 B=1 Set wdApp = GetObject(, "Word.Application")End SubPrivate Sub wdApp_WindowSelectionChange(ByVal Sel As Selection) IF (B=A and Sel.Text="1") THEN MsgBox Sel.Text:B=2 ...
答：分别是1~N，用来完成固定次数的重复。IF的用法是这样的：IF 条件 THEN ...语句1...ELSE ...语句2...END IF 这样的功能是判断条件是否满足，如果满足就执行 语句1，否则执行 语句2 以上例子中的语句、语句1、语句2都可以是一个或者多个语句，往往是一段。
答：If Sheet1.Range("C3").Value = "" Then MsgBox "Sheet1的C3不能为空", 16 Else Dim rg As Range, Sear As Long Set rg = Range("A1:A97").Find(Sheet1.Range("C3").Value, Range("A97"), , xlWhole)If Not rg Is Nothing Then '如果能查找到 If rg.Row Mod 2 = 1 Then...
答：Sub if_sample() Dim i As Integer For i = 1 To 300 If i = 1 Then Debug.Print "i值等于1" ElseIf i = 20 Then Debug.Print "i值等于20" ElseIf i = 40 Then Debug.Print "i值等于40" ElseIf i = 100 Then Debug.Print "i值等于100" Els...
网友评论：
茅钓19148045637：
vba if语句 -
43302姚宋
： 最可能的原因是,因为变量 j 的值不合适,比如 j=0 或 j=1,就会造成如下对象引用的出错: Cells(j, 3)、Cells(j - 1, 3)、Cells(j - 1, 6) 也许把这句 For j = i To 1 Step -1 改为: For j = i To 2 Step -1 就可以解决了.因为不了解你的具体需求,仅从问题中几句来推断,抛砖引玉而已.GoodLuck!
茅钓19148045637：
怎样用VBA代码编写IF嵌套公式 -
43302姚宋
： 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 .......
茅钓19148045637：
【求助】在Excel VBA中怎么写if函数 -
43302姚宋
： 如果要写公式,就直接用双引号括起来即可,如: range(＂A1＂)=＂=IF(P9=0,0,P9/(100+P9)*T9*U9)＂ 如果想直接得到值:IF RANGE(＂P9＂)=0 THEN range(＂A1＂)=0 ELSE range(＂A1＂)=RANGE(＂P9＂)/(100+RANGE(＂P9＂))*RANGE(＂T9＂)*RANGE(＂U9＂) END IF
茅钓19148045637：
EXCEL VBA if 循环语句
43302姚宋
： Dim i%, a% a = Sheets(＂source data from 201010 to (2)＂).Range(＂h1＂).CurrentRegion.Rows.Count For i = 2 To a If Cells(i, 6).Value = ＂NB＂ Then Cells(i, 1) = Cells(i, 6).Value Cells(i, 2) = Cells(i, 7).Value Cells(i, 3) = Cells(i, 8).Value END IF Next i 没有加END IF朋友!
茅钓19148045637：
如何把IF判断写入VBA? -
43302姚宋
： 现有公式=IF(OR(H1=＂客户自付＂,I1=0),0,ROUND(IF(I1>99999,99999,IF(I1按你现有公式,逻辑判断如下 首先单元格H6等于＂客户自负＂和单元格I6=0,两个条件任意一个符合的情况下,单元格M6数值为0,反之,那么进行下列数据计算 分...
茅钓19148045637：
VBA如何给关闭按钮添加if命令
43302姚宋
： 同时按Alt和F11进入宏界面,在左上窗口找到本工作簿的ThisWorkbook,双击它,在右边窗口粘贴如下代码: Private Sub Workbook_BeforeClose(Cancel As Boolean) If MsgBox(＂是否关闭?＂, vbOKCancel, ＂Hi＂) = vbOK Then ...
茅钓19148045637：
Excel VBA If 语句 -
43302姚宋
： 程序是执行的 只是Worksheets(4).Columns(＂J＂).Rows(18).Value 被赋值了99次 我猜 这句你应该是想写成 Worksheets(4).Columns(＂J＂).Rows(rn1).Value 才是你的本意
茅钓19148045637：
VBA里如何实现IF嵌套?在满足一个条件判断后,再分情况进行条件判断? -
43302姚宋
： if嵌套 sub 条件() if 满足条件0 then if 满足条件1 then 结果1 else 结果2 end if end if end sub 不过我觉得你还可以试试看if嵌套select case 如果你的条件超过2个以上的话 欢迎到Excel Home论坛学习、交流
茅钓19148045637：
excel vba if语句的应用 -
43302姚宋
： 你看看这个是不是你要的 Sub main() Dim rng As Range ActiveSheet.Range(＂$A$1:$M$600＂).AutoFilter Field:=13, Criteria1:=＂>10%＂, _ Operator:=xlAnd Set rng = Range(＂a1＂).CurrentRegion.SpecialCells(xlCellTypeVisible) If rng.Column ...
茅钓19148045637：
Vba高手请进,If判断
43302姚宋
： Sub dddd() Set fs = CreateObject(＂Scripting.FileSystemObject＂) If fs.FolderExists(＂c:\test＂) Then MsgBox ＂存在＂ Else MsgBox ＂不存在,将被创建＂ fs.CreateFolder (＂c:\test＂) End If End Sub
