Sheets("sheet1").Cells(5, tjm) = tjx(tjn)GoTo tjlifend 分两行就行
1. If 选择语句 If 条件表达式 Then 条件表达式返回True时要执行的操作和计算 Else 条件表达式返回False时要执行的操作和计算 End If 每个If 语句都应有一个 End If 与之配对,且不能写错位置。但是如果语句不写成块的形式,则不需要 End If,例如: If Range("B2").Value >= 60 Then Range("C2").Value =...
If weeks<>52 Then MsgBox "Try Again" End Sub 过程SimpleIfThen将用户的答案储存于一个名为weeks的变量上,然后,该变量的值将会和数值52进行比较。如果比较的结果为真(也就是说,变量weeks的值不等于52),VB就会显示信息“TryAgain” 5. 运行过程SimpleIfThen并且输入一个除52之外的数字 6. 重新运行过程Simple...
一般情况下,我们并不建议你使用GOTO语句,因为使用这个了,让程序变得比较难看懂,在另外的情况下,比如跳过程序中间的错误值,我们可以使用GOTO语句。 IF-Then 结构 在VBA代码中最常见的判断语句就是我们的IF-Then 结构,这个是非常重要的判断语句,这个结构我们用于单条件或者多条件判断。举个栗子,如下: 以上是单条件判断...
6、 GoTo、On…GoTo语句 7、 On Error错误控制语句 8、其他常用语句 1、If…Then…Else…End If语句 根据条件的值,可使用If…Then…Else…End If语句运行指定的语句或一个语句块。语句可根据需要嵌套多级,然而,为了程序可读性有时使用Select Case语句。
VBA语句：GoSubReturn、GoTo、IfThenEl VBA 语句：GoSub Return、GoTo、If Then El E:\VBA28，语句09.txt 25，GoSub...Return 语句 2501，在一个过程中跳到另一个子程序中执行，执行后再返回。2502，语法：GoSub line ...line ...Return 必要的 line 参数可以是任何行标签或行号。2503，说明：可以在过程中...
If Number = 2 Then GoTo 1 Else GoTo 2 '判断 Number 的值以决定要完成那一个程序区段 1: MyString = "Number等于1" GoTo 3 '完成后跳转到最后一行。 2 MyString = "Number等于2" 3:Debug.Print MyString '将MyString变量的值显示在“立即”...
1 1、打开VBE，编写代码：实现功能：在限制次数内，输入正确的数字；Sub goToLine()Dim i%Dim str$line:i = i + 1If i > 3 Then Exit Substr = InputBox("请输入!")If str <> "123" Then GoTo line '指定跳转到的行；End Sub 2 3、点击插入--形状，选择一个形状；4、选择形状，右键...
If num>0then Gosub Routine1 :Debug.print num:Exit sub Routine1: Num=num/5Return End sub (4)while…wend语句,只要条件为TRUE,循环就执行,这是以前VB老语法保留下来的,如下 例: whilecondition ‘whileI<50[statements] ‘I=I+1wend ‘Wend
下面的代码功能是：求1到100自然数之和。Dim Lsum As Long, i As Long i = 1 x: '为go to 语句设置的标签，必须以英文状态下的冒号结尾 Lsum = Lsum + i i = i + 1 If i = 100 Then GoTo x '如果i=100,则程序跳到标签X处 MsgBox "1到100的自然数和为：" Lsum ...