Tag: debugging

debugging一个QueryTables.Add脚本: Sub FindData() Dim accountNumber As Range Set accountNumber = Range(Range("A2"), Range("A2").End(xlDown)) Dim dataSet As QueryTable For Each Value In accountNumber Set dataSet = .QueryTables.Add( _ Connection:="URL;http://www.prad.org/CamaDisplay.aspx?OutputMode=Display&SearchType=RealEstate&ParcelID=" & Value, _ Destination:=ThisWorkbook.Worksheets(2).Range("A1")) Next Value With dataSet .RefreshOnFileOpen = False .WebFormatting = xlWebFormattingNone .BackgroundQuery = True .WebSelectionType = xlSpecifiedTables .WebTables = "3" End With With Application dataSet.Refresh BackgroundQuery:=False […]

VBA对象需要Range函数的错误: 我有一个VBA代码，从另一个Excel查找值创build一个真/假标志，并根据该标志，我已经设置了两个不同的字符值。我在下面的代码中得到'object required'错误。有人可以解释为什么吗？ Sub test() Dim part1 As String Dim part2 As String Dim a As Range part1 = "=ifna(INDEX('DRG and Zip Summaries'!$A$10:$A$58,MATCH('DRG Summary Target'!F2 ""x_x_x""" part2 = ",'DRG and Zip Summaries'!$C$10:$C$58,0)),'FALSE')" With Range("A2:A183").FormulaArray = part1 .Replace """x_x_x""", part2 End With For Each a In Range("A2:A183") If a.Value = "FALSE" Then Range("B" & a.rownum) […]

debuggingJava Eclipse中的Unshowvariables添加jar文件时: 我使用jxl-2.6.9.jar通过eclipse读取java中的excel。但是当我debugging时： 1）显示“找不到来源”。而当我使用任何* .jar文件，它仍然显示“源找不到”，并没有显示任何variables。它debugging时间太长，看到variables。 2）它只是显示了许多“Launcher，Event Dispath …”的行，不使用jar文件时，不会像在普通的dubug上那样逐行显示。 3）我search谷歌的一些方式为：“编辑源查找path”，但它不起作用。 4）控制台：没有东西。 5）项目运行良好，但不能debugging。

VBA：在文本框中查找string并将其更改为某个string: 我想创build一个macros，每个月在文本框中改变为在对话框中input的某个月份。这是我写的。没有错误，但也没有做任何工作。你能帮忙find问题吗？谢谢。 Sub ChangeMonth() Dim xWs As Worksheet Dim shp As Shape Dim xFindStr As String Dim xReplace As String Dim z As Integer Set xWs = Application.Sheets("Mail") xReplace = Application.InputBox("Replace to :", "Replacement", "", Type:=2) 'On Error Resume Next For Each shp In xWs.Shapes xValue = shp.TextFrame.Characters.Text For x = 1 […]

Excel VBA：“excel vba运行时错误1004”应用程序定义或对象定义的错误: 我在一个模块中有这条线，当我尝试运行它时，它不断吐出一个运行时错误1004。谁能帮忙？我猜这是关于如何引用范围，但我不知道。这对我来说是全新的。 rngFirst = ThisWorkbook.Worksheets("Still In Progress").Range("G" & 1 & ":G" & lw) 提前谢谢了

当打开另一个工作簿时进入: 我试图使用“步入”来debugging代码，但我的代码的第一部分需要另一个工作簿由TextBox打开。因此，“进入”只是当文本框出现（我的意思是没有机会通过buttonselect文件或填写键盘）停止。有没有另一种方法来逐步debugging代码或避免这种情况？提前致谢！

围绕2列或更多列的文字与其他文字: 我正在debugging一些ColdFusion代码（尽pipe这个问题实际上是与语言无关的），并且在debugging输出中有两列文本。这些列是字段名称 <tab> 价值，并希望能够迅速转换成testing代码。我开始的文字是： a 1 b 2 c 3 etc 我想要结束的代码： structInsert(myStruct, "a", 1); structInsert(myStruct, "b", 2); structInsert(myStruct, "c", 3); etc 通常情况下，我会使用Excel，将两列数据粘贴到列A和B中，然后在列C中创build一个连接A和B的公式 ="structInsert(myStruct, """ & A1 & """, " & B1 & ");" 这工作正常（并且是我爱Excel的主要原因之一）。但是我想知道…因为整个世界都没有Excel，所以其他人怎么做呢？谢谢！

错误的参数数量或无效的属性分配: 我在debugging代码中的错误450时遇到了麻烦。有17个范围，代码运行良好，但是当更多的范围被添加时，它显示错误450错误数量的参数或无效的属性分配。请看代码。第一行是突出显示的，当出现错误时也是“联合”。 Sub Set_PrintArea() Dim rng1 As Range Dim rng2 As Range Dim rng3 As Range Dim rng4 As Range Dim rng5 As Range Dim rng6 As Range Dim rng7 As Range Dim rng8 As Range Dim rng9 As Range Dim rng10 As Range Dim rng11 As Range Dim rng12 As Range Dim […]

为什么我的excel停止响应，当我尝试运行我的VBA代码？: 更新我的问题。我把我的床单的stream程图和屏幕截图，让你们可以更好地理解。图表片当我开始运行这个，Excel停止响应。我似乎无法find错误的地方。我希望有人能帮帮忙！我研究了VBA代码，但是我认为还有一些东西还不够用？ Sub F110Loop() Dim x As Integer 'current amount Dim y As Integer Dim d As Double 'delta between Disbursement date and Cheque Release date Dim Current As Integer Dim Least As Integer Dim Dis As Worksheet Dim Cheque As Worksheet Dim wb As Workbook Set wb = […]

Excel VBA返回行为怪异，跳回来: Private Function GetLastSameRow(ByVal row, initialValue) As Integer . . . If (nextCell.Value = initialValue) Then GetLastSameRow = GetLastSameRow(row + 1, initialValue) End If MsgBox ("returning : " & row) GetLastSameRow = row End Function 在完成if语句后，行为真的很奇怪。我运行它的debugging器，这是如何跳转： 1. End If ' 2. MsgBox ("returning : " & row) ' row value is 3 3. GetLastSameRow = […]