Tag: 溢出

VBA：溢出错误: 我有一个错误，我不明白为什么我有一个function，我没有碰（没有错误），现在它没有工作…我的function刚上线我试过函数CDbl（）并使用doubletypes的variables 我得到一个溢出错误号码= 1341.0937961001 NbDecimal = 2 Function Truncate(Number As Double, NbDecimal As Integer) As Double Truncate = Int(Number * 10 ^ NbDecimal) / (10 ^ NbDecimal) End Function 'Error here : Overflow 我需要帮助

单元溢出行值: Sub InsertRow() Call BlankColumns 'Call DeleteZeros 'normalizes the data extracted from QM QSRs 'If Columns included in QSR Change, THe column references will have to be adjusted Dim lastcol As Integer 'Idenfies How many Questions are in Dataset Dim r2a As Long 'Row to copy Dim nr As Integer '# of people to copy Dim […]

溢出号码到Excel中的另一个单元格: 这是怎么回事。我需要简化我的工资单工作表。我想为列D做的是input的实际工作小时数与D15总计40个小时的总和。经过40个小时的课程，我们的员工支付了加class费，那么在D15达到40时，我input小时的时候，我们可以说在D10中，差额会自动stream到E10吗？ E列仍然会自动加总到E15。请不要编辑我的问题。

Excel VBA“溢出”错误设置Range.Value: 我有一个在Excel工作簿打开时运行的macros，基本上从名为“当前date”的选项卡中获取数据并将其移动到“前一天”，然后从另一个工作簿获取数据并将其粘贴到当前date（实际使用范围。值不复制/粘贴）。一切都工作好几天的多个testing。但是，现在它在代码的Range.Value部分引发溢出错误。这绝对不是一个大小问题，因为代码是： PrevDay.Range("A1:Q" & ScoreCurRows).Value = CurrDay.Range("A1:Q" & ScoreCurRows).Value 其中ScoreCurRows被声明为Long，并从“当前date”工作表拉取UsedRange，PrevDay被定义为工作表（“前一天”），CurrDay被定义为工作表（“当前date”）。它通常也是20行以下的数据，所以即使它是一个整数，这仍然不应该引起问题。有没有人有一个想法，为什么这突然抛出一个溢出错误，如果有什么我应该找的？

VBA – 运行时错误6.溢出: 这是我正在尝试修复的代码。这是从Excel电子表格macros。防爆。当我运行Tally检查器macros并键入检查器的名称时，macros将假定在每周的每一天都接收数据表格，然后填充我所做的表格。但是当我运行它，我得到运行时错误6.溢出错误。代码： Sub Tally Inspector() Dim personName As String personName = InputBox("Enter Name Of Inspector") Dim counter As Integer Dim endOfTable endOfTable = 130 Dim witnessSum As Integer: witnessSum = 0 'number witness by CCI Dim ICbyCrew As Integer: ICbyCrew = 0 'number done by crew Dim columnLetter As Integer: columnLetter […]

Excel 2010中VBA的行和列偏移的最大值是多less？: 我知道类似的问题已经在这里得到解答：在VBA / Excel中，行和列的偏移量的最大值是多less？但是，该错误似乎与Excel 2003中的工作表中的行数有关。由于我正在运行Excel 2010（具有65,536行），因此我不认为我的错误与我的工作表大小有关。这是给我的代码行运行时错误'6'溢出： Range("OutputStart").Offset(1 + (iCounter1 – 1) * iDataPoints * 26 + iCounter2 * iDataPoints, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True iCounter1是一个整数，它的值是13 iDataPoints是一个整数，它的值是103 icounter2是一个整数，它的值是7 行偏移计算的结果是32,858，这表示整数数据types问题。行偏移是否限于整数数据types？如果是这样，是否有任何方法将该限制更改为Long（或其他数据types）？感谢您的任何帮助，您可以提供！将

Excel组合发生器: 我有一个代码，根据8列的input生成一个排列，并连接在一起的列。它迄今为止工作很好，但我想出了一个问题。它在超过2行被填充时工作。所以如果只有一行AH中的任何一列的第10行崩溃。如果第8列只有A，则所有行都填满了A，B，C，那么它就会崩溃我也试过了 Set col1 = Range(Range("A10"), Range("A" & Rows.Count).End(xlUp)) 代替 Set col1 = Range("A10", Range("A10").End(xlDown)) 但是那里有一个types不匹配的错误。任何帮助将是伟大的。这是整个代码： Sub combinations() Dim out() As Variant Dim f, g, h, i, j, k, l, m As Long Dim col1 As Range Dim col2 As Range Dim col3 As Range Dim col4 As Range […]

评估包含无效数据的格式化单元格时出现Excel vba溢出错误: 我正在input数据，并在“采购订单date”单元格中错误地input了我的“采购订单号”。这导致在下面的行上发生溢出错误。 If Target.Column > 1 And Target <> "" Then Target.Column评估为2，所以我很确定它是目标<>“”上的失败。目标单元格设置为date格式，我在其中键入“4502554236”（不计算到正确的date）。现在看在工作表上我看到单元格填充###########。我确定单元格不是空的，但我想我也需要检查单元格中的数据是否不是错误？什么是正确的方法来做到这一点？谢谢

VBA代码中的溢出错误: 下面是我为我正在做的项目的代码，由于某种原因，我一直在线上得到溢出错误： totalAmountWeight = (ActiveWorkbook.Worksheets("Product Info").Cells(p, 8).Value) / (ActiveWorkbook.Worksheets("Product Info").Cells(p, 7).Value) 我不知道为什么这个错误发生或如何解决它。 Private Sub Worksheet_Calculate() Dim target As Range Set target = Range("Q1") Dim p As Long Dim o As Long Dim r As Long Dim Length As Single Dim Width As Single Dim Height As Single Dim totalAmountWeight As Double Dim i As Integer, intValueToFind […]