在VBA中使用Exit Sub语句

文章/答案/技术大牛

发布

3回答

excel、vba

但是，按照我目前编写代码的方式，我使用的是Exit Sub语句，该语句下面的所有内容都不会执行。有没有其他方法可以替代Exit Sub，使其仍然适用于我当前的代码结构？1000" Set Source = Range("G36") ExitSub

浏览 106提问于2020-08-25得票数 0

回答已采纳

2回答

VBA编译错误:语法错误

vba

我正在尝试编写一个简单的函数，其中基于我传递的参数，我需要返回一个字符串值。我得到了错误编译错误:语法错误。 Dim serverName As String Case "DEV" Return serverName; serverN

浏览 0提问于2018-05-15得票数 0

回答已采纳

2回答

限制表中的不正确数据

vba、ms-access、error-handling

我在Access数据库中的一个按钮单击事件中导入了一个以制表符分隔的文本文件。If (IsNull(Me.txtXLFIle.Value) = False Or Me.txtXLFIle.Va

浏览 1提问于2009-08-10得票数 1

5回答

Visual :跳到子过程而不运行后面的代码。

vba

在下面的代码中，我希望在运行子code()时，当condition等于false时，它将结束子test()，而不是显示消息"hello"并停止所有脚本。有人能告诉我怎么做吗？Private Sub test() MsgBox ("Hello") If Condition =False Then MsgBox ("Hello World"

浏览 10提问于2015-09-27得票数 1

回答已采纳

1回答

为什么错误处理程序在没有错误的情况下触发？

vba、ms-access

我甚至尝试使用Err.Description作为消息框，它只是弹出，没有任何显示。这是我的代码： Application.FollowHyperlink "E:\groups", vbOKOnly 由于PDF打开时没有任何问题，所以我希望不会出现错误。同样令人费解的是，在没有错误处理程序的情况下运行时没有错误

浏览 5提问于2019-09-18得票数 1

回答已采纳

1回答

如何在被调用函数中终止VBA子函数

excel、vba、exit

如果发生错误，如何使VBA子函数退出被调用的函数？Sub foo()End Sub Function userNum() As IntegerExit Sub

浏览 3提问于2019-07-09得票数 0

回答已采纳

2回答

是否可以创建一个返回对象的函数？

vba、excel

我正在处理一个宏，它将需要使用以下方法引用大量命名范围：我认为，如果我能够创建一个函数，我可以如下所示地使用该函数，它可能会使代码更容易阅读/使用：在不知道它是否有效的情况下，我尝试了以下几点： Function NamedRange(ByVal sName As String) As

浏览 0提问于2018-06-14得票数 2

回答已采纳

1回答

按钮添加文本和新行。

ms-access、button、textbox、vba、ms-access-2010

我试图在Microsoft 2010中使用VBA创建一个按钮，将预先设置的文本添加到文本框中，并在文本之后添加一个中断行。但是，每当我单击该按钮时，它似乎忽略了我的Then语句，并跳到Else语句，在空文本框中添加了一个断行符，然后不管Notes的状态如何，都添加了预置文本。submit按钮最初是一个嵌入的宏，但后来我将它转换为VBA代码，以便使我的Notes文本框没有任何价值，希望我的Then语句

浏览 5提问于2015-06-30得票数 2

回答已采纳

4回答

调用不同过程VBA Excel的退出过程

vba、excel、error-handling、procedure

即，如果错误检查过程是主要程序是以及主叫错误检查。当发现错误时，我希望子errorCheck停止main。我尝试过使用exit sub，但这只退出了errorCheck子，而不是main。如果能帮上忙就好了

浏览 8提问于2015-07-28得票数 2

回答已采纳

1回答

VBA递归方法-退出函数不退出

vba、recursion、pass-by-reference

我已经尝试了Exit函数和Exit For。到达Ubound(arr)语句后，我将重置为i=0，调用堆栈恢复为End Select语句，此后For循环再次开始。这必须来自我执行的递归行？Object, Optional ByVal i As Integer = 0) Select Case VBA.TypeNameIf Not IsEmpty(obj) And i = UBound(arr) Then E

浏览 38提问于2020-01-11得票数 0

回答已采纳

1回答

替换文本(用超链接替换href )

html、vba、excel、replace、href

她工作的结果是元素表(href)在Excel中的输出(每个元素都类似于: about:new_ftour.php?在一行(oRange.Value=data)之后，我添加了一行(oRange.Replace What:="about:"，Replacement:=")。在行中(循环而不是r，r.Address <> firstAddress和iLoop < 19)。= True Sub mainмасси

浏览 1提问于2017-10-11得票数 1

回答已采纳

8回答

在VBA中处理错误时，如何处理无错误情况？

excel、vba、error-handling

我需要使用GoTo语句来捕获一些VBA错误： On Error GoTo errorHandler:''MsgBox "ERROR" 问题是，如果没有错误，就会执行errorHandler部分。我尝试添加一条Exit Sub语句</e

浏览 2提问于2012-04-13得票数 8

回答已采纳

1回答

在VBA中"end“和"exit* sub”有什么区别？*

excel、vba

在VBA中，有时我们想要在某些条件为真后退出程序。但是我应该使用end还是exit sub呢

浏览 2提问于2016-04-08得票数 39

回答已采纳

1回答

比较日期，以填充适当的颜色

vba、excel、if-statement

使用excel中的VBA，我有一个代码，将输入的日期与当前日期进行比较，根据结果，系统将以正确的颜色填充单元格。

浏览 3提问于2017-10-10得票数 1

1回答

如何使用vba创建查询，并根据用户在表单中键入的内容执行查询？

vba、ms-access

我正在尝试使用vba，用户在文本框中键入内容，vba将以用户键入的内容作为条件执行查询。然而，我一直收到“期望:语句结束”的错误提示。Private Sub btnSearch_Click() Dim db As DAO.Database

浏览 13提问于2019-07-04得票数 0

1回答

Powerpoint FileDialog框问题(VBA)

vba、powerpoint

在我编写的一个小型Powerpoint应用程序中，我使用.FileDialog方法使用户能够为该应用程序选择目标文件。我尝试使用Excel VBA代码('On Error‘、vbCancel和If语句)来捕获错误，但没有成功。 Set dlgOpen = Application.FileDialog(Type:=msoFileDia

浏览 5提问于2017-01-11得票数 0

回答已采纳

2回答

如果列的值不大于1，则退出

excel、vba

我正在尝试创建一个IF语句，该语句执行以下操作： ElseIf C.Value > 25 ThenC.Interior.Color = VBA.ColorConstants.v

浏览 0提问于2021-11-08得票数 0

回答已采纳

2回答

从错误处理程序重新启动子例程

excel、vba

我希望代码所做的是，如果用户按下“重试”，vba将重新执行代码： Sub CheckDate () Msgbox "An error has occurred, would you like to retry?", VbRetryCancel If R = VbRetry Then '

浏览 23提问于2020-06-20得票数 0

回答已采纳

1回答

For Next循环内的VBA* If Else*

vba、for-loop、if-statement

我需要在For Next循环中使用VBA If Else语句我尝试了语句的各种安排，但它们都出错了。Sub TestForIfElse() Dim i As Integer E

浏览 23提问于2019-06-21得票数 0

回答已采纳

2回答

Access vba块在不应该执行时执行

database、ms-access、vba

我不太擅长使用Access VBA，所以这可能是一个简单的错误。这是我的潜水员： Exit Sub MsgBox "Error " & Err.Number & ": " & Err.Description & vbNewLin

浏览 3提问于2011-07-30得票数 1

回答已采纳

点击加载更多