Tag: 运行时错误

如何知道单元格的数据types: 我一直卡在这里一会儿，并得到运行时错误13 – types不匹配。 Dim Qty, ItemCost, Tot Qty = wi.Range("C" & i).Value2 'Qty ItemCost = wi.Range("K" & i).Value2 'Item Cost Tot = CInt(Qty) * CInt(ItemCost) 当我在C和K列单元格上尝试IsNumeric时，它们是正确的，但仍然出现这个错误。我也试过： Tot = Qty * ItemCost 和 Tot = CDbl(Qty) * CDbl(ItemCost) 和 Tot = Qty * CInt(ItemCost) 以及将其转换为整数或双数据types的其他不同组合。我也手动格式化Col C和K作为数字。仍然错误仍然存在。我不知道该怎么做我错了？

运行时错误'1004'：对象'_Global'的方法'相交'失败: 我仍然是相当新的，并试图find一个答案。也许它没有正确定义或根本没有定义。也许这不是指向正确的工作表。我不太确定…任何帮助将不胜感激！谢谢！在这一行上得到错误： Set Inte = Intersect(A, Target) 错误代码是： Run-time error '1004': Method 'Intersect' of object'_Global' failed 完整代码： Private Sub Worksheet_Change(ByVal Target As Range) 'Determine Target Colunm If Target.Column = 10 Then 'Check for "TD", Copy/Delete Row if found If Target = "TD" Then Application.EnableEvents = False nxtRow = Sheets("TD Locks").Range("J" & […]

VBA运行时错误13: 我创build了一个简单的代码，但它不断出现运行时错误13.有谁知道这是为什么发生？ Dim x As Integer x = ActiveSheet.Range("ALL_PROJECTS").row Rows("x:1048576").EntireRow.Delete Range("A3").ClearContents End If

运行时错误的types: 下面的代码给我这个错误： Class does not support automation or does not support expected interface 任何人都可以请解释为什么我得到这个错误 Sub typeofcheck() Dim wks As New Worksheet If TypeOf wks Is Worksheet Then MsgBox "This is Worksheet" Else MsgBox "This is not" End If End Sub

Excel VBA运行时错误1004'表不能重叠另一个表': 这个运行时错误，“一个表不能重叠另一个表”，每当我打开我的xlsm文件。点击debugging窗口后，下面一行VBA代码被突出显示。 Set tbl = Sheets("DataSheet").ListObjects.Add(xlSrcRange, rng, , xlYes) 下面附上完整版本供您参考。 Private Sub Workbook_Open() Dim tbl As ListObject Dim rng As Range 'Ungroup worksheets ThisWorkbook.Sheets("DataSheet").Select Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)) Set tbl = Sheets("DataSheet").ListObjects.Add(xlSrcRange, rng, , xlYes) tbl.Name = "ReportTable" tbl.TableStyle = "TableStyleMedium7" End Sub 那么我该怎么办才能解决这个问题呢？为什么在那里给出一个错误？

Excel VBA – 简化logging代码时的运行时错误1004: 我有一个录制的macros，我尝试通过在一行中获取一些激活和select语句来简化，但这会导致运行时错误。这不是一个严重的问题，但我只是好奇，想知道发生了什么事情。这是我最初的代码片段（它在过程中的前面是一个复制代码片段）： ThisWorkbook.Activate Sheets("MS Act Report").Select Range("G1").Select ActiveSheet.Paste 这是我的简化代码： ThisWorkbook.Activate Sheets("MS Act Report").Range("G1").Select ActiveSheet.Paste 当运行这个我得到一个 runtime error '1004': Select method of Range class failed

select列中的最后一个单元格 – 错误424？: 我正在尝试select列中的最后一个单元格，将其值复制并粘贴到另一个工作簿中。在第一个工作簿中，我在空间中创build了一个button。一旦你点击那个button，我希望它消失，从其他工作簿（NCR日志）的值，添加1的值，并将其粘贴到第一个工作簿中的button曾经是。我认为这将是很容易的，但是当我运行macros，我得到一个运行时错误424：对象需要。这里有什么奇怪的东西吗？日志只是在Excel中的一组列和行…没有什么独特的。对于参考：NCR日志是我试图从中获取价值的工作簿。 NCRDONE是我试图把价值的工作簿。日志中的列B是我想要的最后一个单元格的位置。 I4是我希望在NCRDONE中进入的单元格。 Sub tryingtoaDD() With ActiveSheet For Each Sh In .Shapes If Not Application.Intersect(Sh.TopLeftCell, .Range("H3:J5")) Is Nothing Then Sh.Delete End If Next Sh End With ScreenUpdating = False Workbooks.Open ("R:\Quality\NCR's\NCR Log\NCR Log.xlsm") ActiveSheet.Range("B" & Cells.Rows.Count).End(xlUp).Select.Copy Workbooks.Open ("R:\Quality\NCR's\NCR Log\NCRDONE.xlsm") Range("I4").Select.Paste.Select ActiveCell.Value = ActiveCell.Value + 1 ScreenUpdating = True […]

运行时错误1004与vba添加超链接: 有人可以帮助我在我需要的时间。我创build了一个用户userform ，它依赖于列表listbox下拉列表input一个hyperlink 。尽pipe超链接实际上在按下提交button时，我仍然收到错误信息运行时错误1004.应用程序定义的或对象定义的错误。当我debuggingws.cells(iRow, 4)是突出显示的行 Private Sub Comm1_Click() Dim iRow As Long Dim ws As Worksheet Dim ws2 As Worksheet Dim rng As Range Set ws = Worksheets("QttOutlay") Set ws2 = Worksheets("LookupVals") iRow = ws.Cells.Find(what:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 Set rng = ws.Cells(iRow) ws.Cells(iRow, 2).Value = RmRef.Value ws.Cells(iRow, 3).Value = […]

VBA Excel错误运行时错误'53': 我希望你能帮上忙。我有一个macros，它是广泛的。它基本上是它有一个用户的forms见图1 这个用户表单允许用户导航到存储数据的模板（见图2）并select这个完成的模板。在图1中的用户表单上。用户然后单击单选buttonDTOV（没有会议信息），然后单击buttonPre-Validate。点击此预validationbutton后，Excel模板上的数据将从此Excel文件复制到使用|转换为文本文件（pipe道）分隔符，并且要求用户确认这个新创build的文本文件将去的目录path。见图3 应该发生的是，这个新创build的文本文件被放置到文本文件被再次拾取并被发送到另一个数据库的文件夹中我遇到的问题是新创build的文本文件不会将其提交到其他数据库拾取的文件夹。我得到一个错误运行时错误'53'这是发生在线上 ' create the file on the network folder Name DTOV_Directory & newfilename & "txt" As network_path & Replace(newfilename, "EFPIA", "EFPIA_PVLDTN") & "txt" 它位于Private Sub Private Sub Pre_validate_Click() 在这个macros中有很多其他的代码，你可以在图4中看到很多模块。其他代码可以在必要时提供，但是错误出现在EFPIA_Macro用户表单上所以我只在下面提供了这个用户表单代码，见代码 ' create the file on the network folder Name DTOV_Directory & newfilename & "txt" […]

If语句上的VBA运行时错误1004: 祝大家好日子，我一直执行我的代码时遇到相同的运行时错误。我没有正式的VBA培训（主要是一些VB在高中）。代码是这样的 Sub Lavaggi2(): Dim i, j, k, lavaggio, x, daymax As Integer Dim day As Date Dim Ore(10) As Single Dim column_len, row_len As Integer Dim totale_ore As Integer 'Determining variable for row and columns column_len = Sheets("Foglio7").Cells.CurrentRegion.Columns.Count row_len = Sheets("Foglio7").Cells.CurrentRegion.Rows.Count k = 1 For j = 1 To row_len For i = […]