Me.CommandButton1.Visible '按钮的显示属性 Me.CommandButton1.Accelerator = "F" '按钮的热键,此时按alt + F 则可执行 Me.CommandButton1.Enabled = False '设置按钮不能用,但是可见 Me.CommandButton1.Cancel = True '按esc 就可以退出 Me.CommandButton1.Default = True '按 enter时 就可以执行 Me.Tag...
' Exit For ' End If ' End If ' Next iControl_2 '获取参数值--从文本框中获取 For Each iControl_2 In frameX.Controls If LCase(TypeName(iControl_2)) = "textbox" Then dataStr = iControl_2.Value Exit For End If Next iControl_2 '更新数值 dic_para_Item(paraCode) = dataStr End I...
Private Sub CommandButton1_Click() Dim pss$, i! Do i = i + 1 If i > 3 Then Exit Do pss = InputBox("请输入密码") Loop While pss <> "123" End Sub 'FOR...NEXT也是循环语句,与之前的DO...LOOP不同之处在于,for next有一个内置计数器 Sub for next循环2() Dim i!, j! For i ...
Next循环 语法:For 循环变量 = 初始值 To 终值 Step 步长 注:在VBA循环中可以使用Exit关键字来跳出循环,类似于Java中的break,在for循环中语法为:Exit For,在do while循环中为:Exit Do,也可以利用GoTo语句跳出本次循环,详见:1.5.3 GoTo语句Dim i As Integer For i = 1 To 10 Step 2 ' 设定i从1到10,...
Exit Sub 退出相应的sub,function,for,do Exit function Exit for Exit do 跳转语句 goto-跳转到指定地方 代码语言:javascript 复制 Sub test() Dim st 100: st = Aplication.InputBox("请输入数字", "输入提示") If len(st) = 0 Then GoTo 100 End Sub gosub-return-跳过去,返回来 代码语言:javascript...
Exit For:能够跳出一个 For...Next 或 For Each...Next 循环。 Exit Function:可以结束包含本语句的函数过程。 Exit Property:可以结束包含本语句的属性过程。 Exit Sub:可以结束包含本语句的 Sub 过程。 On Error语句 On Error Resume Next:忽略错误时,使用此语句。此语句捕获错误,而不是显示错误消息并终止程...
Search code, repositories, users, issues, pull requests... Provide feedback We read every piece of feedback, and take your input very seriously. Include my email address so I can be contacted Cancel Submit feedback Saved searches Use saved searches to filter your results more quickly Ca...
ApplicationBarCommand ApplicationBarMenu ApplicationClass ApplicationConnectionDiagram ApplicationEnvironment ApplicationError ApplicationFlyout ApplicationGroup ApplicationInsights ApplicationOnlySequence ApplicationPrivate ApplicationRole ApplicationRoleError ApplicationRoleWarning ApplicationRoot ApplicationWarning ApplyCodeChanges ...
FileExit FileLoadLast FileNew FileOpen FileOpenEx FileOpenOrCreate FileOpenUsingBackstage FilePageSetup FilePageSetupCalendar FilePageSetupCalendarText FilePageSetupCalendarTextEx FilePageSetupFooter FilePageSetupHeader FilePageSetupLegend FilePageSetupLegendEx FilePageSetupMargins FilePageSetupPage FilePageSetupView File...