vba中的if语句
答：Sheet的Visible属性可以显示是否隐藏，0是隐藏，-1没隐藏，例如下面的代码可以查看：Sub xxx()MsgBox Sheet1.Visible End Sub 下面的代码可以隐藏工作表：Sheet1.Visible=0 显示隐藏工作表的语句作为课堂练习，你写写看。
答：Sub zhao()Dim x As Integer Dim y As Integer For y = 100 To 7 Step -1 For x = 100 To 7 Step -1 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 ...
答：If InStr(1, Range("G12").Value, "沙") + InStr(1, Range("G12").Value, "金") > 0 Then x = "零售"Else x = "批发"End If
答：如图：在 Excel 工程中，添加模块，添加函数 GetPrice 代码：代码如下：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 =...
答：感觉你的A、B应该定义为模块变量，代码如下：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.T...
答：可以使用VBA中的If语句和For Each循环来实现。首先，在VBA中定义符合条件的数据，可以使用类似下面的代码：Dim targetSheet As Worksheet Dim sourceSheet As Worksheet Dim lastRow As Long Dim i As Long Set sourceSheet = Worksheets("Sheet1") ' 指定源数据所在工作表 Set targetSheet = ...
答：可以用if elseif else，也可以用select case，示例代码如下：（1）if elseif；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 ...
答：亲，如下：if range("a1").value=0 or range("a1").value="" then '满足条件的代码 endif
答：if语句有两种用法，正常用法需要换行写 If Cells(y, 1) <= temp Then Exit For end if 简化用法在一行写，如If Cells(y, 1) <= temp Then Exit For 作用是一样的。如仅当条件值为true时执行简单命令，简化写法更方便一些。
答：If Sheets("").Cells(i, 12).Value>10 and Sheets("").Cells(i, 12).Value<50 Then
网友评论：
马耍13572475697：
vba if语句 -
34471侯宝
： 最可能的原因是,因为变量 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!
马耍13572475697：
Excel 关于VBA中IF多条件语句的用法,虚心求教 -
34471侯宝
： 1、if语句的含义:if语句字面意思就是如果的意思,如果条件为真,那么就执行if语句里面的程序,这个程序,一般指then后面的,一个if语句可以没有end if,但绝对不能没有then,这一点是要注意的. 2、if……then……结构 该结构一般用于...
马耍13572475697：
EXCEL VBA if 循环语句
34471侯宝
： 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朋友!
马耍13572475697：
EXCEL VBA if 循环语句 -
34471侯宝
： 既然两个for之间没有联系,为何不直接做两个循环呢 for x=1 to 20 if x>15 then exit for next for y=1 to 20 if y>x then exit for next
马耍13572475697：
Excel VBA If 语句 -
34471侯宝
： 程序是执行的 只是Worksheets(4).Columns(＂J＂).Rows(18).Value 被赋值了99次 我猜 这句你应该是想写成 Worksheets(4).Columns(＂J＂).Rows(rn1).Value 才是你的本意
马耍13572475697：
VBA if语句的条件描述 -
34471侯宝
： 列呢?是所有列还是只有一列?以A列举例: Dim i As Integer Dim isAllOK As Boolean isAllOK = True For i = 1 To 100 If Range(＂A＂ & i).Interior.ColorIndex <> xlNone Then isAllOK = False MsgBox ＂A＂ & i & ＂单元格不合格!＂ End If Next i If isAllOK = True Then MsgBox ＂全部合格!＂ End If
马耍13572475697：
VBA编程中,如何简化If语句中OR选项 -
34471侯宝
： IF基本用法是:If 条件1 Then语句段End if或:If 条件1 Then语句段1Else语句段2End if这样使用If语句,就可以使程序有选择性的执行代码.注意,If语句一定要有判断条件和执行语句,最后用 End If 结尾.但如果执行语句只有一条,就可以缩成...
马耍13572475697：
EXCEL VBA怎么实现IF语句 . -
34471侯宝
： if cells(6,2)=1 thencells(7,3)=cells(7,8)elseif cells(6,2)=2 thencells(7,3)=cells(8,8)elseif cells(6,2)=3 thencells(7,3)=cells(9,8)endif注意 cells(i,j) i表示第多少行,j表示第多少列比如c7 表示的是第7行,第3列的单元
马耍13572475697：
VBA中,if语句和case语句.什么情况下用哪个?求教. 感觉if用的顺手,什么都用if.case用不上.求举例
34471侯宝
： if语句通常用在＂是＂和＂否＂的条件判断中,也就是说单条if语句只能有两个选择,但select case则可以提供多个选择,比如变量 i 可能有0 到 9 共十种可能,需要跟据 i 的值执行不同的语句,那么你要组合多个if语句才能实现,但用select case的话,只需要一个select case块就能实现了,这样代码更清晰,编写和维护也更简单.
马耍13572475697：
VBA for循环中有if,怎么设为条件跳到下一循环? -
34471侯宝
： 如果要跳到外层循环的话,必须先结束内层循环, 可以用exit for语句结束内层循环: if .... then next end ifVBA for循环是一种重复控制结构,它允许开发人员有效地编写需要执行特定次数的循环.
