Tag: 运行时错误

Excel VBA – 运行时错误“1004”

我有一些VBA代码，我想要使用R1C1将公式复制到单元格范围内。 不幸的是我在倒数第二行得到以下错误： Runtime error '1004': Application-defined or object-defined error. Dim pct As Single pct = 1 With ThisWorkbook.Sheets("Data").UsedRange Dim lastR As Long lastR = .Rows.Count Dim lastC As String lastC = col_letter(.Columns.Count) End With With ThisWorkbook.Sheets("Calculations") .Range("A1:" & lastC & 1).Value = 100 ==> .Range("A2:" & lastC & lastR + 1).FormulaR1C1 = "=R[-1]C*(1+" & pct […]

Object_Global的VBA运行时错误1004范围失败

我不确定我的代码有什么问题。 我以为我正确设置了范围，但也许没有。 我曾尝试设置多个范围。 错误发生在代码“Range（”CL_Paid“）的最后一行”Paste“ Sub test() Dim HR_Paid, HR_Unpaid, E_Paid, E_Unpaid, SE_Paid, SE_Unpaid, CL_Paid, CL_Unpaid As Range Set HR_Paid = Sheets("Data").Range("A1:L49") Set HR_Unpaid = Sheets("Data").Range("A50:L99") Set E_Paid = Sheets("Data").Range("A100:L149") Set E_Unpaid = Sheets("Data").Range("A150:L199") Set SE_Paid = Sheets("Data").Range("A200:L249") Set SE_Unpaid = Sheets("Data").Range("A250:L299") Set CL_Paid = Sheets("Data").Range("A300:L349") Set CL_Unpaid = Sheets("Data").Range("A350:L399") With Sheets("Data") .Select ViewMode = ActiveWindow.View […]

范围类的VBAsorting方法失败

我知道这个主题有几个线程，但没有答案帮助解决了这个错误。 我正在尝试使用三个键sorting表，但收到错误，“运行时错误”1004“：Range类的sorting方法失败” 我尝试将“范围（”L2“）”更改为“.Range（”L2“）”并收到错误“编译错误：无效或不合格的引用” 我试过指定实际的范围，而不是使用列，我已经删除了最后两个键，只尝试第一个，仍然收到运行时错误。 shtData.Activate shtData.Range(Range("A2"), Range("Z8000").End(xlUp)).Sort _ Key1:=Range("L2"), Order1:=xlAscending, _ Key2:=Range("M2"), Order2:=xlAscending, _ Key3:=Range("B2"), Order3:=xlAscending, _ Header:=xlYes 如果您有任何build议，我将不胜感激。 我昨天有这个工作，我的excel崩溃了，并没有恢复我所做的改变，我不明白为什么我今天不能得到它的工作。

VBA运行时错误1004两位数的范围

我的意图是select连续的其他单元格。 我的代码（我敢肯定，有一个更好的方法来完成这一步，但一次我猜）： Range("C" & row & ":C" & row + 1 & ", E" & row & ":E" & row + 1 & ", G" & row & ":G" & row + 1 & ", I" & row & ":I" & row + 1 & ", K" & row & ":K" & row + 1 […]

循环运行时错误9

我有三个练习册 所有的信息都是相同的政策，但来自不同的文件。 我试图从工作簿1和工作簿3中具有相同工作表名称的每个工作表中复制相同单元格的值。这是我拥有的代码： Sub foo() Dim wbk1 As Workbook Dim wbk2 As Workbook Dim wkb3 As Workbook Dim shtName As String Dim i As Integer Set wkb1 = Workbooks.Open("C:\Users\lliao\Documents\Trad Reconciliation.xlsx") Set wkb2 = Workbooks.Open("C:\Users\lliao\Documents\TradReconciliation.xlsx") Set wkb3 = Workbooks.Open("C:\Users\lliao\Documents\Measure Trad Recon LS.xlsx") shtName = wkb2.Worksheets(i).Name For i = 2 To wkb2.Worksheets.Count wkb2.Sheets(shtName).Range("D3").Value = wkb1.Sheets(shtName).Range("D2") wkb2.Sheets(shtName).Range("E3").Value = […]

types不匹配错误：不明白为什么

我正在尝试将一个值添加到另一个值，但它总是停在我的代码中的某处，并抛出： 错误types13：不匹配错误 即使删除代码的一部分，也会出现相同的错误。 例如： 当这个： ThisWorkbook.Worksheets(2).Cells(i, 9) = ThisWorkbook.Worksheets(2).Cells(i, 9) + Sheets(j).Cells(i, 42) 第一个错误出现了，我想通过擦除它来解决它，同样的错误会出现在这个： ThisWorkbook.Worksheets(2).Cells(i, 6) = ThisWorkbook.Worksheets(2).Cells(i, 6) + Sheets(j).Cells(i, 41) 整个代码： Do While (j < (ThisWorkbook.Worksheets(2).Cells(1, 9)) + 3) For i = 7 To 65 'Megaform ThisWorkbook.Worksheets(2).Cells(i, 6) = ThisWorkbook.Worksheets(2).Cells(i, 6) + Sheets(j).Cells(i, 41) ThisWorkbook.Worksheets(2).Cells(i, 7) = ThisWorkbook.Worksheets(2).Cells(i, 7) + Sheets(j).Cells(i, 44) ThisWorkbook.Worksheets(2).Cells(i, […]

运行时错误9在vba

美好的一天，我在VBA中已经有了很多新的东西，并且我在path指定方面遇到了问题，请考虑以下几点： x = Workbooks(ThisWorkbook.Path & "/" & "06-17.xlsx").Worksheets(1).Cells(2, 1).Value 有了这段代码，我有运行时错误9，但如果我使用下面的代码，它工作正常： Workbooks.Open (ThisWorkbook.Path & "/" & "06-17.xlsx") x = ActiveWorkbook.Worksheets(1).Cells(2, 1).Value 我发现运行时错误9意味着数组元素和集合成员只能在他们定义的范围内访问，但是与我的情况有什么关系，我不知道。 为什么会发生？

Excel文件打开macros

所以我试图创build一个macros，将更新一个单元格打开文件时。 我得到了424错误，所以我试图做更好的工作定义我的代码/对象，但它仍然没有成功。 我想我错过了/忽略了一些非常简单的东西，但我无法弄清楚，这是我的第一个项目，所以我试图学习，并获得更好的理解，然后只是使用一段代码将工作。 Private Sub Auto_Open() Dim Try1 As String Try1 = ActivateSheet.Cells(3, 2).Select Tryl = "-" ' My first attempt is shown below ' 'Sheets("Current Calc").Activate 'ActivateSheet.Cells(3, 2).Value = "-" End Sub

如何跳过运行时错误9 vba？

我做一个macros来打开许多文件，并做一些操作，如复制和粘贴在最终文件。 但是我想在没有文件的时候跳过与这个文件连接的那段代码： 'create variables' FinalFile = "order.xls" Obj1 = "order-obj1.xls" Obj1Range = "E11" …… Windows(Obj1).Activate Range(MyRange).Select Selection.Copy Windows(FinalFile).Activate Range(Obj1Range).Select ActiveSheet.Paste Windows(Obj1).Activate ActiveWindow.Close Windows(Obj2).Activate Range(MyRange).Select Selection.Copy Windows(FinalFile).Activate Range(Obj2Range).Select ActiveSheet.Paste Windows(Obj2).Activate ActiveWindow.Close 如果我不能打开一些文件，我收到运行时错误9.所以我的问题是如何跳过Obj1的代码，并继续Obj2？ 我希望你能理解我…

尝试在单独的工作表中复制粘贴单元格时出现VBA运行时错误1004

我目前在我的VBA Excel 2007年代码中出现以下错误：运行时错误“1004”：对象'_Worksheet'的方法'范围'失败。 在标题中出现了这个错误的不less问题之后，我还没有find类似的情况或解决scheme来解决我的问题。 也就是说，没有声明我的variables是公开的，我不想这样做，因为我在不同的子程序中多次使用相同的variables。 错误在线提出： AccDnn.Range(Cells(2, 71), Cells(RangéeFinAcc – 1, 87)).Copy 我的代码： Private Sub SaveRedButton_Click() Dim SaveRedMssg As String, SaveRedTitre As String, SaveRedButtons As Integer, SaveRedAns As Integer Dim RangéeFinRed As Long, DrpRed As Worksheet Dim RangéeFinAcc As Long, AccDnn As Worksheet Application.ScreenUpdating = False Set DrpRed = ThisWorkbook.Worksheets("Drapeaux Rouges") Set AccDnn = ThisWorkbook.Worksheets("Acc. […]