Tag: 溢出

循环不会停止，导致溢出

我是VBA的新手，这看起来很简单，但是当我运行代码时，它会继续创build随机数，直到它最终给我一个溢出消息。 我可以告诉它可以读总数，但我不知道为什么它不会停止。 Dim i As Integer Dim total As Integer i = 1 total = Range("C1") Do While total < 180 Cells(i, 1).Value = Int((10 – 3 + 1) * Rnd + 3) i = i + 1 Loop 谢谢你的帮助。

Excel VBA：溢出错误

刚开始在VBA编程，我有一个问题，我不知道如何解决这个问题。 我觉得一切都好。 显示运行时错误'6'溢出当我想运行这个macros。 Sub Działaj() Dim Tablica(1 To 5000) As String Dim Dni() Dim kolumna As Integer Dim wiersz As Integer Dim licznik As Integer Dim PF As Boolean Dim tmp As Integer Dim i As Integer Dim tmp2 As String licznik = 2 tmp = 0 PF = False kolumna = 22 wiersz = […]

神秘溢出（错误6）

我有一个子例程，立即出于我无法理解的原因而出错。 例程中的第一行尝试将值加载到variables中，并且出错。 UPCTGT = CLng(Sheets("Settings").Range("C3").Value) 单元格C3中的值是3800040260 ..为什么会导致溢出错误？

运行时错误'6'OverFlow（Excel VBA）

我有这个错误，我有成千上万的csv文件被加载，它每次只能加载约一百个文件。 任何人都可以告诉我错误在哪里？ Option Explicit Function ImportData() Dim wkbCrntWorkBook As Workbook Dim wkbSourceBook As Workbook Dim rngSourceRange1 As Range Dim rngSourceRange2 As Range Dim rngDestination1 As Range Dim rngDestination2 As Range Dim intColumnCount As Integer Set wkbCrntWorkBook = ActiveWorkbook Dim SelectedItemNumber As Integer Dim YesOrNoAnswerToMessageBox As String Dim Highest As Double Highest = 0 Dim counter […]

使用双精度错误的VBA溢出（Excel）

出于某种原因，以下语句评估为零。 我认为这是由于溢出，但所有的临时值似乎都在双倍的范围内。 DiffieHellmanKey = (43 ^ 47) – (53 * Fix((43 ^ 47) / 53)) 我认为它是溢出的，因为当我用不同的数字（下面）执行它时，结果是29的正确值。 DiffieHellmanKey = (5 ^ 22) – (53 * Fix((5 ^ 22) / 53)) 是什么赋予了？ 现在，回到原来的数字，让我溢出。 所有涉及的variables是双打。 如果我将它计算为工作表公式而不是VBA，它甚至不起作用： =(43 ^ 47) – (53 * ROUNDDOWN(((43 ^ 47) / 53), 0)) 如果我使用等价的forms（如下）在VBA中实现上面的例子，我得到-1.75357E + 62的错误结果。 DiffieHellmanKey = (43 ^ 47) – (53 […]

select所有单元格时Selection.Count溢出

在Excel 2007中，我想在单击单元格（L2）时提示消息。 我有一段代码的作品，但问题是，当我select所有的单元格与Ctrl+A我得到错误号码06: overflow就行If Selection.Count = 1 Then 强制性VBA代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Count = 1 Then If Not Intersect(Target, Range("L2")) Is Nothing Then MsgBox "ACTION!" End If End If End Sub

Target.count导致溢出错误

我有Worksheet_SelectionChange函数在第一行中，我想要的条件是，如果select多个单元格，然后退出我写道： If Target.Cells.Count > 1 Then Exit Sub 但是，当我select整个工作表时，我收到一条错误消息：“运行时错误6 – 溢出” 看来Target.Count不能处理这么大的＃？ 我能做些什么来解决这个问题？ 谢谢大卫

为什么我的交叉表在Excel中被截断？

我正在尝试使用BIRT创build一个Excel电子表格。 电子表格是将两个对象映射在一起的交叉表。 根据MySQL数据库中的值，行数和列数是dynamic的。 目前我有一个PDF输出报告的工作实施。 现在，我正在尝试为Excel创build第二个报告版本。 我已经复制了报表devise，并开始调整它与Excel一起工作。 一切看起来不错，但只有前3列显示在标题后面。 所有行都显示正确。 我已经尝试了以下内容： 我试着将页面上的每个元素都设置为“可见”。 这没有效果。 我试图设置母版页的高度和宽度，以可笑的大值。 所有的信息显示正确，但我希望没有硬编码值的解决scheme。 将来数据宽度可能会超过我的任意值并被中断。 我受到以下方面的限制： 我无法切换报告引擎（我必须使用BIRT）。 我无法切换Excel发射器。 此博客条目提到我的问题： http : //www.spudsoft.co.uk/2011/10/the-spudsoft-birt-excel-emitters/但它不提供除发射器开关以外的解决scheme。 具体的引用是“这些文件也有页面布局的问题，我无法解决（特别是广泛的报告将被切断）”。 除了一个博客条目，我的googlefu已经让我失望了。 任何帮助表示赞赏！ 谢谢！