VBA -将某些数字传递给另一个sub时出现溢出错误
VBA是Visual Basic for Applications的缩写，是一种用于宏编程的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，如Excel、Word和PowerPoint等。
在VBA中，当将某些数字传递给另一个子过程（Sub）时出现溢出错误，可能是由于以下原因：
- 数据类型不匹配：VBA中有不同的数据类型，如整数（Integer）、长整数（Long）、单精度浮点数（Single）、双精度浮点数（Double）等。如果传递的数字超出了目标子过程所期望的数据类型的范围，就会出现溢出错误。解决方法是确保传递的数字与目标子过程所期望的数据类型相匹配。
- 数字超出范围：每种数据类型都有其允许的最大值和最小值。如果传递的数字超出了目标子过程所期望的数据类型的范围，也会导致溢出错误。解决方法是检查传递的数字是否在目标数据类型的范围内。
- 运算错误：如果在传递数字之前进行了某种运算操作，例如加法、减法、乘法或除法，可能会导致结果超出目标数据类型的范围，从而引发溢出错误。解决方法是确保在进行运算操作之前，先检查操作数的范围，并采取适当的措施，如使用更大的数据类型或进行溢出检查。
针对这个问题，腾讯云并没有直接相关的产品或服务。然而，腾讯云提供了一系列云计算服务，如云服务器、云数据库、云存储等，可以帮助开发人员构建和部署各种应用程序。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于腾讯云的信息和产品介绍。
相关·内容
我在和约会打交道，我遇到了一个奇怪的问题。如果将160乘以1440，60*24，则vba即使在使用long时也会产生溢出错误。但是，如果将160乘以86440，60*60*24，则不会发生溢出错误。有人知道为什么会发生这种事吗？我已经在周围找到了一份工作，但这没有任何意义。
谢谢你的帮助！
Sub test()
Dim numb As Long
numb=160*1440
numb=160*86400
End Sub
如果您注释掉了第一行，它将运行，没有溢出错误，但是溢出中的第一行会发生错误。
浏览 0提问于2019-04-19得票数 2
回答已采纳
2回答
Sub TestFunction()
Dim var As Double
var = 25 * 24 * 23 * 22 * 21 * 20
End Sub
我收到此vba操作的溢出错误。当我在带有函数的单元格中运行它时，我得到127,512,000
这有什么可能是错误的呢？这应该远远低于这种数据类型的大小限制，对吗？
浏览 1提问于2017-07-20得票数 1
回答已采纳
我在这段代码中有一个bizzare溢出消息错误，我不明白为什么。你能帮忙吗？我在另一个vba模块中使用完全相同的代码，它可以工作。
Dim tab_base As Variant
tab_base= Worksheets("Test").Range("A1:AL1492").Value
谢谢,
伊斯梅尔
浏览 3提问于2017-06-06得票数 1
回答已采纳
1回答
又一次Excel溢出错误
、、、、
我有两个简单的VBA潜艇。一个工作正常(WorksOK)。一个会产生溢出错误(DoesntWork)。它们之间的区别是WorksOK调用了一个MsgBox。通过将一个添加到CDate(“2021年1月1日”)，两者都计算日期为2021年1月2日。有人能解释一下为什么WorksOK工作正常而DoesntWork不能工作吗？
我观察到这种行为，只在：中进行：
Excel Catalina 16.44 VBA 7.1Word Catalina 16.44 VBA 7.1<code>F 211</code>
Windows中的Excel VBA似乎没有问题。
Sub Wor
浏览 4提问于2021-01-04得票数 0
我在试着找数字600851475143的最大素因数。
我在VBA中调暗了一个双精度类型，它在数字的末尾附加了一个#号，所以我认为这表明该值超过了双精度类型的限制，但我仍然可以用它运行算术，除非我想做一些像模函数这样的事情。如果我运行下面的代码，它会给我一个溢出错误：
Sub test()
Dim x As Double
x = 600851475143#
x = x - 1
x = x Mod 11
End Sub
但是，如果我更改了代码，并且没有声明我的变量并允许VBA这样做，模函数将不会出现溢出。如下图所示：
Sub test()
x = 600851475143#
x
浏览 0提问于2012-02-17得票数 0
回答已采纳
目前，我已经在工作表1 "Sheet1“中创建了VBA代码，作为
Private Sub Worksheet_Activate ()
所以每次我打开工作表时，VBA代码都会自动运行。
但我现在面临的问题是每次打开Excel工作簿时，即使我在ThisWorkbook中添加了代码，
Private Sub Workbook_Open()
Worksheets("Sheet1").Activate
End Sub
工作表将首先出现，但VBA代码不会自动运行。每次我需要转移另一个工作表，然后再移回来，然后只有VBA代码才会运行，这是非常恼人的，有什么解决方
浏览 5提问于2016-04-06得票数 2
回答已采纳
1回答
我在想，是否有可能在Excel VBA中设置主工作簿，并在所有过程和函数上访问它？ 因为我是VBA的新手，所以我不了解VBA使用的语法。 Dim MasterWB as Workbook
Set MasterWB = Workbooks.Open("Path to my Workbook") 但是，如果我想在另一个过程或函数中访问它，我会得到一个对象定义错误。 我不想在每个Sub或Function中声明对象。非常感谢!
浏览 16提问于2019-05-27得票数 0
回答已采纳
我有一个名为“需要”的变量，它被定义为整数。出现一个输入框并提示用户。如果他们输入一个整数，它会显示Msgbox“”。如果键入字符串，则会得到运行时错误“13”：类型不匹配。我想如果我用另一个语句，它会说再试一次。不过，它并没有这么做。我需要其他语句中的错误处理吗？如果是的话，底线是什么？
Sub gadgetmanuf()
Dim need As Integer
'Dim rawneed As Single
'Dim rawavailable As Single
need = InputBox("How many gadgets are needed?&
浏览 5提问于2014-02-02得票数 3
回答已采纳
2回答
我是新来的。我对MS Access也很陌生。我的问题是，当我单击MS的“关闭”按钮时，会发生以下情况：
我使用vba代码在用户ID文本框的LostFocus事件中显示消息。这是代码
私有子txtuserid_LostFocus()，如果Len(txtuserid.Value & nullvalue) =0，那么MsgBox“您不能将它留空。”txtpswd.SetFocus txtuserid.SetFocus txtuserid = txtuserid.Value End如果End Sub
这些信息出现了4次。
在此之后，出现了运行时错误，即：
运行时错误“2110
浏览 5提问于2014-07-18得票数 1
1回答
我有这样的代码来创建一个按钮并给它分配一个宏
Private Sub createButton_line(ByVal name As String, ByVal position, ByVal line As Integer)
Dim btn As Button
Dim R As Range
Set R = ActiveSheet.Range(position)
Set btn = ActiveSheet.Buttons.Add(R.Left, R.Top, R.Width, R.Height)
With btn
浏览 5提问于2022-11-24得票数 0
回答已采纳
3回答
这篇文章是关于Excel和无限值被传递回.NET 2010VBA的。
我使用了一个不受我控制的C#方法，它(显然)可以返回.NET NaN's或Neg，Pos Infinity。在VBA中的结果是奇怪的(即比平时更奇怪)，我想出的安全处理这种情况的唯一方法是一个不雅的三重字符串比较"-1.#IND“或"-1.#INF”或"1.#INF“。
有没有更好的方法？
如果你好奇的话，我在这里记录了奇怪的部分。(这些示例是针对NaN的，但对于pos或neg infinity也是如此。)
double dVal = CSharpMethodReturningDoubl
浏览 0提问于2012-02-09得票数 30
首先，这与“另存为文件名”对话框无关。
有没有办法设置一个标志来检查在VBA子过程中是否会出现“要将更改保存到'filename.xsls'？”对话框？
基本上，我有一个宏，它将一些数据复制到另一个文件中，显示一个MsgBox，然后关闭文件，Excel应该提示用户确认文件已保存。然而，我有一个遗留程序有时会锁定该文件，导致提示符不出现，看起来该文件已保存，但实际上并未保存。要“修复”它，我必须关闭Excel和该程序的所有实例，然后重新开始。这种情况并不经常发生，但如果你没有注意到，或者在这个过程中经验较少的人不知道检查以确保他们被提示保存，那么你可能会错过它。
我想知道的是，是
浏览 3提问于2016-04-19得票数 1
1回答
我正在使用VBA，首先看一下我的代码：
Sub ali()
a = [C13]
Dim b As Double
b = CDbl(a)
MsgBox b
End Sub
我的单元格C13是= 0.5在单元格中手动键入，我想要msgbox的B变量，它应该是该单元格的双倍数，但它出现类型不匹配的错误，我不知道该怎么办！
浏览 0提问于2021-11-16得票数 0
很简单，但是我在谷歌上找不到任何东西。下面是我想要实现的一个例子：
Function myFunc()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 20000
b = 15000
c = a + b
myFunc = c
End Function
我希望myFunc()返回-30536，而不是抛出溢出异常。我知道我可以写一个函数来做到这一点，但我已经为一个项目写了一堆代码，假设允许溢出，所以我希望有一个快速的修复方法。
编辑:我不需要帮助想出一个函数来解决类型转换的溢出
浏览 0提问于2016-03-16得票数 3
我正在使用2007和VBA。我有一个代码块，当数量大于股票或股票为零时触发。
Private Sub Quantity_BeforeUpdate(Cancel As Integer)
If Me.Quantity > Me.Stock Or Me.Stock = 0 Then
MsgBox "Not enough stocks left."
Me.Quantity = ""
End If
End Sub
将出现消息框，但在此之后会出现一条错误消息：
Run-time error '2147352567
浏览 3提问于2015-03-10得票数 2
回答已采纳
2回答
我在同一个工作簿中创建了许多工作表(大约30张)。我试图用VBA编程，其中一个值将出现在一个指定的倍数单元格中，但是存在一个“运行时错误9，Subscript超出范围”的问题。
Sub Invoice()
For i = 5 To 11
With Sheets("Sheet" & i)
.Range("J2") = "a"
End With
Next i
End Sub
如代码所示，值"a“必须出现在从sheet5到sheet11的每个工作表的单元格she
浏览 3提问于2019-10-13得票数 0
回答已采纳
1回答
我们在许多Excel工作簿上都有自定义功能区。有时，我们会遇到来自Excel的错误消息，指出'_getEnabled‘宏被禁用(见下图)。对于使用宏来控制enabled特性的每个功能区控件，都会显示此消息。
功能区中的xml为(某些名称已密文)：
<button id="name_btn" size="large" image="imagename" label="somelabel" getEnabled="VBA_####.######_getEnabled" onAction="V
浏览 3提问于2021-05-07得票数 1
我只是在尝试学习VBA编程，当我运行一个简单的代码时，将一个变量赋值为双精度值，然后为该变量赋值，然后为该变量创建一个消息框。如果我逐行调试代码，那么在为变量赋值时会出现溢出错误。但是，如果我简单地一次编译所有的代码，它没有问题。 我不确定现在该怎么做，因为即使简单地给变量赋值6也会导致溢出错误 Sub myVariable()
Dim blah As Double
blah = 6.4
MsgBox blah
End Sub 因此，如果我逐行调试这段代码，当"blah = 6.4“突出显示时，我会得到一个溢出错误，并且不能继续下去。如果我点击F5并编译整个代码，msgbox就会像它
浏览 25提问于2019-06-18得票数 0
2回答
我正在制作一个VBA代码来导入txt文件(ascii)，并根据这些txt文件中的数据执行计算。 这些txt文件将被写入特定的列。当其中一个文件丢失时，我希望能够用NaN之类的东西填充这些列，这样我仍然可以执行计算，但结果将是NaN。如果列是空的，它肯定会出现错误。 我尝试过xlErrNull，但它显示类型不匹配错误。
浏览 38提问于2021-05-10得票数 0
回答已采纳
我试图在VBA中为Excel传递多个参数，但每次传递时，我都会得到一个：
编译错误：
语法错误
Sub first(ByVal fOne As Integer, ByVal fTwo As Integer)
If fOne = 2 Then
MsgBox "fTwo"
End If
End Sub
Sub second()
first(2, 3)
End Sub
浏览 3提问于2016-02-12得票数 0
回答已采纳
2回答
我是VBA的新手，加入VBA是因为一个朋友告诉我这个社区很有用。我目前在VBA中遇到一个问题，如下所示：
-The用户从工作表“图书租赁”中的列表中选择代码；-This代码保存在单元格D10中，并由宏保存在另一个工作表“租借”中，表单中保存了几个数据；-Then在另一个名为“图书”的工作表中，图书代码在B列，标题在C列，可用图书数量在D中；我想要的-What是当用户租赁图书时，数量递减1(我不需要验证数字是否为零，所以只要减量就足够了)；
我试过做Sheets("Book Rent").Cells(10，"D") = Sheets("Books"
浏览 15提问于2017-06-30得票数 1
4回答
我想在我的excel文件(最好是VBA)中输入这个公式。但是由于某种原因，当我把这个函数放在我的公式栏中时，我得到了一个错误：
#NUM! - Number Error
我的功能是：
=98-mod(2000000000123456*100;97))
但是当我只输入10位数字时，它就可以工作了。我需要使用16位数字。我主要是尝试验证基于ISO 7064 Mod 97,10公式的数字，谢谢提前。
谢谢大家的努力，但我尝试了@Robyn写的代码，但我得到了溢出错误。这是我的代码(我将只写函数部分)：‘注意:输入参数是: 3259300700853850和97
Function DblMod(Di
浏览 0提问于2016-06-22得票数 1
在Worksheet_SelectionChange事件中，我有一些非常基本和简单的VBA代码，如下所示：
btnB.Top = btnA.Top + btnA.Height
它在我的电脑上运行得很好，但偶尔在我同事的电脑上工作。似乎每5次点击中就有3次会产生"Expression Too Complex"错误。另外两个没有抛出错误。我试过：
Dim D as Double:D = btnA.Top + btnA.Height
btnB.Top = D
同样的事情，有时起作用，有时会抛出错误。当错误发生时，我打破并检查了D的值，即"-1.#IND"。我在谷歌上搜
浏览 5提问于2012-04-05得票数 5
1回答
我已经编写了一个vba脚本，只要在单独的Excel窗口中打开，它就可以在Windows 7/Office 2010上运行得很好。在同一窗口中同时运行其他工作簿会导致错误。这有时有点麻烦，但并不是说人们对它有什么问题，所以我从来没有花时间去看它。
最近，我们的系统升级到了Windows 8和Office 2013，它可以自动打开单独的excel窗口，但会出现与在一个窗口中打开多个工作簿的旧系统相同的错误。出现此错误的原因是，我正在处理另一个工作簿，而活动工作簿不包含VBA工作簿所包含的多个工作表。
我可以通过在每次代码运行时(每15秒)激活VBA workbook+worksheet来解决这个问
浏览 24提问于2015-04-06得票数 0
我正在尝试编写一个自定义的DeleteRows Sub，我可以从代码中的各个点调用它，但我遇到了一个问题，我传递的工作表似乎没有任何与它关联的单元格，并且在运行它时遇到了“类型不匹配”错误。我在排序，以使某个值出现在开头，然后循环查看它出现在多少个单元格中，然后删除这些行。
Option Explicit
Public Sub DeleteRows(ByRef MySheet As Worksheet, RowsToDelete As Long, ColumnToUse As String, ValueToSearch As String, UseAsInt As Boolean)
浏览 1提问于2017-04-30得票数 1
2回答
我在尝试用vba构建查询方面是个新手。我试图弄清楚如何在VBA语法中传递一个变量。介意带我去哪里吗？
我在下面试过了，但是会弹出一个自动化错误。我从演奏中注意到，当语法出现错误时，就会出现自动化错误，所以希望它是很小的吗？
任何帮助都是非常感谢的。
Sub GetDataFromAccess()
Dim cmd As New ADODB.Command, rs As ADODB.Recordset
Dim recordNum As Integer
recordNum = 7
cmd.ActiveConnection = "Provider=Microsoft
浏览 0提问于2016-06-24得票数 0
回答已采纳
1回答
在VBA中查找列的平均值
、、、
我正在尝试找出给定列中所有数字的平均值。
'Find the Average
Dim count As Integer
Dim sum As Integer
Dim lastCol As Integer
Dim c As Integer
Dim num As Long
lastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.count).Column
For c = 2 To lastCol
sum = 0
count = 0
ActiveSheet.Cells(2, c).Select
浏览 2提问于2015-10-01得票数 0
2回答
我有一个非常奇怪的错误在excel VBA中不断出现。我用了下面的代码
Public psword, oldpsword As Integer
Public Sub Auto_Open()
psword = Sheets("Main Menu").Cells(55, 1)
oldpsword = psword
For Each ws In Worksheets
ws.Protect Password:=psword
Next ws
End Sub
每当代码转到"oldpsword = psword“行时，就会弹出一条错误消息，显示运行时'13:‘
浏览 4提问于2014-05-02得票数 2
回答已采纳
我编写了一些包含两个匹配项和索引公式的VBA代码。我需要从工作表中选择唯一的值，并将其与另一张表进行比较。然而，这是行不通的。我犯了一些错误。(无法获得工作表函数类vba的match属性-这是错误)
这是我的代码：
Sub Post_Attendance()
Sheets("DB").Activate
'On Error Resume Next
Dim myvalue As String
Dim mydate As String
Dim mypost As String
(在单元格中输入的日期值) Dim为字符串Dt = Range("C7").V
浏览 0提问于2017-12-23得票数 1
回答已采纳
让我们假设我想要运行一些很好的VBA代码，这些代码可以最好地分解成四个很好的小顺序函数。
Call Init()
Call FirstStep()
Call SecondStep()
Call CleanUp()
但是，如果前三个中的一个失败并出现错误或用户取消，那么我想整齐地退出并运行CleanUp。
我从..开始。
If Init() Then
If FirstStep() Then
If SecondStep() Then
End If
End If
End If
Call CleanUp
但那是丑陋的。
接下来是..。
Select Ca
浏览 2提问于2017-04-28得票数 3
我在Excel中遇到了一个令人费解的行为，我想知道是否有人能为我指明解释的方向？
背景-我继承了一个报告工具，用来计算每天是否有足够的剩余假期来允许额外的假期。当剩余的免税额正好是“1”时，我发现这是出乎意料的行为。
下面是已经存在的VBA (实际文件中变量的值由其他查询设置，但为了复制问题，我在这里手动设置了它们)。使用此代码，消息框将被触发，即使(总计*准备)的结果正好是1，并且“If”条件只能由小于1的值来满足。
Dim Total As Double
Dim Allowance As Double
Dim Taken As Double
Total = 20
Allowance =
浏览 3提问于2016-05-12得票数 3
1回答
在excel VBA中，如何显示以下数字，而不在单元格中生成“Number stored as text”错误？
1.0
1.1
1.2
.
.
1.99
1.100
1.101
1.102
.
.
1.20
1.21
1.22
.
.
etc...
浏览 0提问于2019-05-13得票数 0
1回答
我们的工作表中有一张短表，如：
A1中通过A3中的值是下列公式的结果：
=DATE(1999,12,15)
=DATE(1945,1,18)
=DATE(2020,2,23)
如果我试图在工作表单元格中使用VLOOKUP()：
=VLOOKUP(DATE(1945,1,18),A1:B3,2)
我得到正确的结果(Moe)
然而，在VBA中：
Sub RetrieveName()
Dim d As Date, nam As String, rng As Range
d = DateSerial(1945, 1, 18)
Set rng = Range(
浏览 2提问于2017-09-03得票数 3
回答已采纳
2回答
我有一个在Excel 2007中正确工作的VBA宏，但是在更新到2010年之后，它会抛出错误。宏基本上将原始数据从一个工作表复制到多个工作表。引发的错误是错误6:溢出。抛出错误的行是Dim。
y As Integer
y = Worksheets("Raw Data").Range("A2").End(xlDown).Row
我最初认为ok会更改为long，这样会消除溢出错误。嗯，我想它消除了错误，但它也输出了非常错误的结果，然后再次确认溢出错误甚至没有意义。只有973行。
然后我想，好的，也许我会试试这个
Cells(Rows.Count,"A"
浏览 13提问于2013-05-22得票数 0
我有一本VBA的excel手册。当一个错误被触发时，我尝试关闭整个Excel应用程序。但我发现Excel会话仍在Windows任务管理器中运行。因此，在正确重启应用程序并运行VBA程序之前，我必须终止会话。
我如何处理错误，以便即使出现错误，我仍然可以运行VBA程序，而无需终止和重新启动Excel本身？
浏览 2提问于2013-03-07得票数 2
我是新来的斯塔克溢出，所以我希望我已经张贴了这个问题在正确的地方。
我很难让代码在VBA中工作。我希望它选择D:F列，直到最后一个单元格值。通过这个选择，我想将单元格的大小写(它们目前是大写的)更改为适当的大小写。
Dim Lastrow As Integer
Dim range As Variant
With Worksheets("Overdue PO")
Lastrow = .Cells(Rows.Count, "D").End(xlUp).Row
.range("D2:F" & Lastrow).Select
浏览 0提问于2016-04-13得票数 2
回答已采纳
我尝试在VBA中为Excel2010编写程序，但错误不断
Public Sub SetClrIndex (rng as Range, ColorIndex as Integer)
rng.Cells(1,1).Interior.ColorIndex = ColorIndex 'here "Error 1004: application or object error"
End Sub
如果在rng.Cells(1,1).Interior put Set之前出现错误"Error 424: object required“
将用户指定的范围传输到过程
告诉我
浏览 3提问于2019-12-21得票数 0
嗨，我一直试图调整以前的堆叠溢出的帖子，以适应我的情况，但很快就会出现。我在父级子关系中有两个ms访问表(一对多)。我试图编写一些vba来将1条记录插入到父表中，并将多条记录插入子表中。我看到了这篇文章，它做了一些接近我想要的事情，但它是一对一的关系。有人能给我举个例子，说明如何使用子表中的多行来完成这个任务吗？
我正在使用MS 2010，并在MS 2010中将vba作为一个模块编写。
浏览 4提问于2015-04-25得票数 0
回答已采纳
1回答
Svg.js旋转动画，因为它默认使用元素的中心点，即使当元素从一个点移动到另一个点时也是如此，但现在当我向图像添加剪切路径时，我是，因为中心点仍然是原始图像的中心，即使它在剪切路径之外。我想用剪裁路径的中心点来代替。我能找到的最接近的东西是。
var rect = draw.rect(60,60)
var picture = draw.image(img.jpg).clipWith(rect)
picture.animate(1000).rotate(360)
如何让它在svg.js中工作？
浏览 2提问于2014-05-07得票数 0
1回答
您是否注意到在Excel Vba代码中划分2/ 60的问题？我正在使用Excel 2013。请测试以下代码：
Sub test1()
Dim A As Integer
Dim B As Integer
MsgBox 2 / 60
A = 2
B = 60
MsgBox A / B
End Sub
Sub test2()
Cells(1, "a") = 2
Cells(1, "b") = 60
Cells(1, "c") = Cells(1, "a") / Cells(1, "b")
MsgBox Cells(1,
浏览 2提问于2015-08-05得票数 1
在Excel2007中，当我阅读这个网站时，我想到了这个VBA代码：
主要目标是想出一个将小数转换为二进制表示的函数。
下面是我的代码：
Sub DTBfraction() ' Decimal to Binary
Dim myFraction As Double
Dim tmpDEC As Double, tmpPRO As Double, tmpREM As Double
Dim i As Long
Dim tmpSTRING As String, tmpBIT As String
myFraction = 0.8
tmpDEC = myFraction
Do
浏览 0提问于2021-10-24得票数 0
1回答
我有一个VBA脚本，当用户执行它时，它会打开新数据并将新数据写入网络共享驱动器上的另一个文件。有时，脚本无法访问此文件以向其中写入新数据，因为其他人正在同时尝试打开它(通过他们拥有的VBA脚本进行只读)。
这个特定的文件打开错误不会在错误处理代码中捕获，并且会出现一个框，要求用户结束或调试。有没有办法弹出一个替代弹出框，上面写着“无法处理请求。请稍等片刻，然后重试。”
浏览 1提问于2014-02-24得票数 0
Excel 2013。VBA:这个代码：
Sub test()
On Error GoTo Err:
Dim p As Double
p = (362 * 100) / 2005
Exit Sub
Err:
If Err.Description <> "" And Err.Source <> "" Then
MsgBox Err.Description, vbCritical, Err.Source
End If
End Sub
抛出溢出号6错误。为什么？
浏览 0提问于2018-02-02得票数 2
回答已采纳
我正在创建一个Word模板，在初始化Document_New时执行一系列操作。例如，我在一个子子中从一个XML文件中提取和应用自定义文档属性，并在第二个子子中引用它们。
我正在尝试添加一些错误处理，以使用错误消息关闭文档，并阻止其余的VBA运行，我可以达到文档关闭的程度，但其余的VBA代码将继续执行。理想情况下，我只需要关闭这个新文档(其他单词文档可能在设备上打开)，并停止对VBA的任何处理。
ThisDocument.Close SaveChanges:=wdDoNotSaveChanges
当此操作到位时，模板似乎关闭了，但是新创建的文档仍然存在，模板VBA继续运行。
有人能够建议关闭模板
浏览 9提问于2022-11-23得票数 0
回答已采纳
我的VBA代码中有一个与实际堆栈溢出有关的问题。
我正在尝试找出VBA错误处理。
我做了个测试小组来帮我解决这个问题。
我的错误是GoTo Error_Handle
我希望如果Err.Number = 13重新开始，而不是下一步继续。
如果我尝试循环GoTo Start_Over_Label:，在第二次传递时，仍然会引发错误。
如果我再次尝试循环调用sub，则会收到堆栈溢出错误。
有什么方法可以在Sub中循环，而不抛出错误，或者占用调用堆栈？
也许有一种方法可以继续下去，但是重新开始吧？
我觉得有解决办法，但我错过了。
提前谢谢你
Private My_Long As Long
Private
浏览 3提问于2020-02-17得票数 0
回答已采纳
我有一个工作表，其中包含的代码将触发一些VBA代码，这取决于选择了哪些单元格。(单元格具有按钮的功能)。由于用户可以选择包含多个单元格的范围，所以限制这个问题的方法(当单元格包含在所选的范围中时不触发vba代码，但IT并不是唯一的单元格)，所以当用户选择多个单元格(包括触发vba的单元格)时，这个工作确实很好，但是我想知道为什么当用户使用CTRL-A选择所有单元时会出现错误。
这是工作表后面的代码
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
run some code
如果
浏览 0提问于2018-12-12得票数 0
回答已采纳
2回答
我是VBA的新手。我想对我在UserForm中的输入设置一些限制。我希望我的变量是一个数字(用户应该选择行号)，如果她/他输入文本或将其留空，应该会出现一条错误消息。这是我的代码：
Public Sub AddPolicy_Click()
Dim RowNumber As Integer
RowNumber = TextBox1.Value
If RowNumber = "" Then
MsgBox "Error Row Number- enter a value!", vbOKCancel + vbCritical, "Error"
E
浏览 0提问于2020-02-05得票数 0
2回答
我是VBA的新手。最近，我输入了一些代码，下面是我的代码示例：
Dim n As Long
n = Range("A1", Range("A1").End(xlDown)).Rows.Count
For i = 3 To n
Range("P" & i).Value = WorksheetFunction.IfError(Range("N" & i).Value / Range("O" & i).Value, 0))
Next
结果是有溢出的错误。我已经在互联网上搜索并计算出我的示例代码应该
浏览 1提问于2017-04-17得票数 0
回答已采纳
我在VBA (在MS Access中)中运行一个append-query，它看起来像下面的代码。当我在VBA中使用RecordsAffected-方法来跟踪插入了多少条记录时，当记录数超过大约90.000条或更多时会导致错误？(它说是某种堆栈溢出错误)
有趣的是，当我不使用RecordsAffected method时，查询就能正常工作。而且，当受影响的行数低于90.000行时，它也可以正常工作。
会出什么问题呢？这是VBA中的错误吗？
。
。
Dim dbs As DAO.Database
sql As String
iCount As Integer
Set dbs = Cur
浏览 0提问于2011-03-01得票数 0
回答已采纳
1回答
调用VBA函数
、、
我有一个日程安排的excel宏，它将一个月中的每一天作为一个单独的excel工作表列出。在我的宏中，“周日”表汇总了每个员工的每小时工作小时数，并给出了每周的总数。我试着创建一个函数，允许我选择我需要的最大和最小范围的工作表，但我不能让它工作。问题出在哪里？目前我有：
Function SampleSum(ByVal ZZ As Integer, ByVal XX As Integer) As Integer
Application.Volatile
SampleSum = Sheets(ZZ).Range("BA5") + Sheets(XX).Range("BA5&
浏览 0提问于2014-07-11得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
