Tag: 运行时错误

input公式时运行时错误“1004”: 虽然在excel 2011 for mac上运行这个，我得到这个错误是：运行时错误“1004”： Microsoft Excel找不到要replace的匹配数据。选区中没有任何单元格包含您input的内容，或没有logging符合条件。奇怪的是，程序运行，公式input正确的单元格，我希望它是。点击debugging时突出显示的代码行是 ActiveSheet.Range("Q" & rowNum – 1).FormulaR1C1 = "=sum(R[-" & rowsToSum & "]C[-11]:RC[-11])/abs(sum(R[-" & cellsToSum & "]C[-13]:RC[-13]))/100" 完整的循环与错误， For rowNum = 2 To lastRow + 1 'checks if cells A through O in a given row are empty If WorksheetFunction.CountA(Range(Cells(rowNum, 1), Cells(rowNum, 15))) = 0 Then rowsToSum […]

同事得到VBA Excel文件错误5，但同样的文件在我的电脑上工作正常吗？: 我们有一个Excel文件，后面有大量的VBA。 Excel文件在我的电脑上工作得很好，但是到目前为止，我的三个同事（非IT人员）都遇到了这个错误：运行时错误5：无效的过程调用或参数该错误位于这一行，我不明白为什么它会抛出一个错误，因为它只是一个简单的设置（它在我的电脑上工作得很好）： Set MyButton = Application.CommandBars("Attributions").Controls.Add(Type:=msoControlButton, Before:=10) 我们都有完全相同的Excel文件。我甚至给他们发了我的版本的文件，其中一切运行良好，没有错误发生，但即使他们打开我的版本的文件，他们仍然在上面的线路上面的错误！究竟是什么原因导致了我们都有Office 2013并自动安装更新。这个问题是在两个星期前与一位同事开始的，从本周我听到另外两位同事说他们有同样的问题。有人甚至说，他搬到另一个办公桌后突然再次工作（我怀疑是否会有影响），但不久之后，又开始出现错误。我完全不知道他们为什么会得到这个错误，或者是什么原因造成的。看到我们现在都有相同的版本，他们仍然有错误，我认为这可能与Excel本身有关，但这只是我的想法。这听起来很熟悉吗？还是有人知道什么可能会导致这种情况，以及如何解决？编辑：前一段时间，我检查了我的同事他们的电脑，看看CommandBar是否存在，它是。即使如此，错误仍然发生。

VBAsorting不会sorting，不可预知的循环: 我正在运行一个macros来从工作簿中删除格式，对列s中的值进行降序删除，其值在0.501以下。我在这里得到了一些帮助来修复部分代码但是，我发现了其他问题。代码看起来相当不可预测。根据列s降序sorting不会对所有工作表中的行进行sorting。如果我将Range更改为.Range代码中断。 Sub sort_delete_500cust() Dim WS_Count As Integer Dim i, K As Integer Dim endrow As Long Dim output_wb As Workbook ' Set WS_Count equal to the number of worksheets in the active ' workbook. Set output_wb = Workbooks("DMA_customers_5.xlsx") With output_wb WS_Count = output_wb.Worksheets.count ' Begin the loop. For i = […]

范围类错误1004select方法失败: 我不明白我在这里出了什么地方，任何帮助表示赞赏。我试图剪切和粘贴任何有“解决”字的行到另一个电子表格，但是代码在循环开始时被阻塞在cl.activate上。 Sub FindString() Dim SearchString As String Dim SearchRange As Range, cl As Range Dim FirstFound As String Dim sh As Worksheet 'Open first item to search and paste destination Workbooks.Open "G:\BS\Josh Whitfield\Credit_Chasing\NEW PROCESS\Markerstudy.xlsx" Workbooks.Open "G:\BS\Josh Whitfield\Credit_Chasing\NEW PROCESS\solved results.xlsx" Workbooks("markerstudy").Activate ' Set Search value SearchString = "solved" Application.FindFormat.Clear ' loop through all sheets For […]

货件跟踪，返回date给出运行时间错误424对象必需: 所以我正在为一个同事做一个项目，我遇到了一个问题。我以前从来没有使用过Excel VBA，而且在编码方面我几乎没有什么培训。 StackOverflow和其他几十个网站已经得到了巨大的帮助。我只是不知道该去哪里。目标。导航到网页等待页面加载将交货date返回到Excel（单元格b1）这是我的代码到目前为止 Public Function RoadRunnerTracking() Dim IE1 As Object Dim DeliveryCollection As Object Dim ProUrl As String Set IE1 = CreateObject("InternetExplorer.application") ProUrl = "https://www.rrts.com/Tools/Tracking/Pages/MultipleResults.aspx?PROS=" & Range("a1") With IE1 .Visible = True .Navigate ProUrl Do Until Not IE1.Busy And IE1.readyState = 4: DoEvents: Loop End With Set DeliveryCollection […]

代码不适用于行数> 65536的枢轴数据集: 我的目的是创build一个枢轴表，并进一步创build一个转储数据（A1：AE170000）。我在下面附上了我的代码，如果我将数据减less到60-65k行左右，则工作得很好。它引发运行时错误13：types不匹配在我设置我的数据透视表caching（PTCache）。 Private Sub OptionButton3_Click() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ThisWorkbook.Sheets("Data").Activate Dim PTCache As PivotCache Dim PT As PivotTable 'Setting range as my entire data set Dim PTRange As Range Set PTRange = Range("A1", Range("A1").End(xlToRight).End(xlDown)) 'Adding a new worksheet for Pivot Table and Chart Dim ws As Worksheet Set ws = Sheets.Add ws.Name […]

运行时错误在VBA条件格式: 所以这是工作，突出checkaddress值右侧的单元格。现在不是，我不知道为什么。它给出错误“运行时错误”5：无效的过程调用或参数“。错误是在第一个.Add语句中，但注释掉了所有的.Add语句错误。 Sub Highlight4() For i = 1 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).row Step 2 If Cells(i, 4) = "Metric" Then For j = 1 To 15 Dim r As Range Set r = Range(Cells(i, j * 4 + 2), Cells(i + 1, j * 4 + 4)) Dim checkAddress As String checkAddress = Cells(i, […]

VBA – select方法失败: 对于VBA来说，我是一个相当新的东西，所以如果对于更有经验的用户来说问题是显而易见的，那么很抱歉我尝试阅读几个类似问题的答案，并解决问题，但仍面临同样的问题。我的代码是： Workbooks("XXX.xls").Activate ' Setting column width Workbooks("XXX.xls").Worksheets("XXX").Cells.Select Selection.ColumnWidth = 10 ' Filtering XXX funds Workbooks("XXX.xls").Worksheets("XXX").Rows("1:1").Select Selection.AutoFilter Field:=3, Criteria1:="=*XXX*" ' Add new sheet and rename it Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = "XXX_F" 'Copying needed information Workbooks("XXX.xls").Worksheets("XXX").Range("A1:C1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 我得到的错误是“运行时错误”1004“：select范围类失败的方法”在底部的第三行。我试图通过添加这一行来解决它（即激活工作簿，我想先处理）： Workbooks("XXX.xls").Activate 此外，我在我的代码中使用明确的引用，如： Workbooks("XXX.xls").Worksheets("XXX").Range("A1:C1").Select 我明白，最好不要在我的代码中使用.Select方法。但这不是我第一次得到这个错误，我只是想了解VBA的逻辑。据我了解Excel只是不明白我指的是哪张表，但我不明白为什么 – 因为我已经激活了工作簿，我需要（我有几个工作簿打开），并使用明确的引用。如果你可以请详细解释为什么会发生这个错误（即Excel在哪个时间点混淆），我将不胜感激！感谢大家提前的帮助！

Excel 2010 VBA：运行时错误1004，Microsoft Excel不能粘贴数据: 我一直在运行一个剪切和粘贴图片例程一段时间，所有突然的Excel开始给我这个运行时错误。到目前为止，它一直工作正常（没有操作系统更新或重新启动，尽pipe我尝试closures并重新打开Excel以查看是否有帮助）。更奇怪的是，脚本做了一个批量复制和paste.picture，同样的范围（重新计算的值）被复制和粘贴13次，错误信息通常popup在最后一个循环或偶尔在某个随机点。我查了一下support.microsoft.com/en-us/kb/905164：“如果满足下列任一条件，可能会发生此问题： The Microsoft Visual Basic for Applications (VBA) macro copies and pastes one whole row in an Excel 2003 workbook. The Microsoft VBA macro copies and pastes a range of 2,516 rows or more rows in an Excel 2003 workbook." 不过，我正在复制一个12,12的单元格，从A1到L12确切地说，甚至不是接近整行。我曾尝试使用range.offset，xldown，rannge（单元格（1,1），单元格（12,12）），但没有一个帮助。有没有人遇到类似的东西？ Sub PutPic(ByRef FN As String) Dim fname As String […]

EXCEL VBA应用程序定义或对象定义的错误“1004”: 我曾经有一条线 Set rRng1 = Worksheets("Sheet1").Range("I2:J20") 但是，由于单元格的范围可以从文件到文件（I2是固定的），我发现了一个简单的方法来实现自动化。范围中的第一个单元总是I2，最后一个单元是J（last_pair_cell）我认为使用范围（单元格（2,9），单元格（last_pair_cell），10）将诀窍，但我得到错误1004 … 这是整个代码： Sub LoopRange2() Dim rCell1 As Range Dim rCell2 As Range Dim rRng1 As Range Dim rRng2 As Range Dim nCol As Integer 'Finds week column to insert values nCol = Worksheets("Clube").Range("P69").Value + 5 'Find number of pairs that played the tournment Dim last_pair_cell As Integer […]