Tag: 运行时错误

运行时错误：438使用macros: 我正在使用代码将Outlook电子邮件详细信息提取到使用VBA的Excel中。运行macros时会抛出一个错误：运行时错误：438 – 对象不支持此属性或方法下面是在点击debugging时抛出错误的行。 wks.Cells(oRow, 1) = Folder.Items.Item(iRow).SenderName

Excel：在行上添加上次修改的date: 我正在尝试使用以下VBA脚本将上一次修改行的date和时间添加到该行的特定列： Private Sub Worksheet_Change(ByVal Target As Excel.Range) ThisRow = Target.Row If Target.Row > 1 Then Range("K" & ThisRow).Value = Now() End Sub 但它一直抛出以下错误：运行时错误“-2147417848（80010108）”：对象“范围”的方法“值”失败任何人都可以解释为什么这是发生？

范围对象上的Excel VBA运行时错误1004: 试图计算是否存在一个网格中的东西是否存在于由它是否填充颜色（这就是我的老板想要它的格式）定义的Excel中。不是真正的VBA专家，并且在这个循环的第二行出现错误。 variables是在这之前定义的，在循环内部还有一些其他的东西，但是我不包括那个来节省空间。我很确定这个问题在这里是显而易见的。 With ThisWorkbook.Worksheets("Core List") Do While Not .Range(Cells(3, x)).Value = "" 'while current name box isn't empty name1 = .Range(Cells(3, x)).Value 'sets the name in the stat sheet ThisWorkbook.Worksheets(stat).Range(Cells(4, x – 2)) = name1 Loop End With

对象Var或With Block未设置VBA: 现在写一个VBA代码复制活动行到一个新的表。然后用文本框条目和列表条目拉起一个用户表单。 input时，会更新相应的单元格，并更新date。我目前得到运行时错误“91”：对象变化或块variables未设置。我无法弄清楚这个错误是从哪里来的，如果你能帮我解释一下，我将非常感激！有两个文件一个调用userform这是我得到的错误。 Sub NewCange() ChangeUserForm.Show End Sub 和用户表单代码 Private Sub UserForm_Initialize() Dim i As Integer, M As Integer, Result As Integer Dim N As String Dim MasterRange As Range, CopyRange As Range, NextRow As Range Dim ActiveRow As Long 'Selects active row copies it and puts in empty row in the […]

VBA运行时错误9: 我目前收到一个错误，说下标超出范围。在代码行上 If Sheets(Master).Cells(i, A).Value = AssetNum.Value Then 我试图使用for循环来增加我，所以行范围从12开始，每增加1。然后在for循环中，我想使用If语句来检查单元格（i，A）是否等于AssetNum中的值。如果循环达到EmptyRow的值，则结束循环。我不是很确定如何正确使用for循环IF-THen语句。 Public i As Integer Private Sub AssetNum_Change() End Sub Private Sub Enter_Click() Dim EmptyRow As Long 'Audit will only search Master Sheet Worksheets("Master").Activate 'Find empty row value so we can use that for limit of search With Sheets("Master") EmptyRow = .Range("A" & Rows.Count).End(xlUp).Row […]

脚本运行但不做任何事情: 该脚本运行没有错误，但它不会做它应该做的事情，实际上它不会改变文档中的任何东西。我testing一个零件，testing软件吐出保存在一个名为Location 1,2,3,4的文件夹中的4个工作簿。然后，我在脚本中打开一个模板“alpha”，它使用来自以前工作簿的数据来显示平均值并显示数据的走势。 macros然后被一个button激活，它应该粘贴在alpha工作簿到下一个空行。行是6个单元格和3个单元格。显然，我需要10代表图片之前，所以inheritance人的图片链接….在图片一个testing完成，我有一个testing（行）的macros，但我不能得到它重复粘贴到下一个空的下来。如果有更好的方法，请让我知道哈哈。 https://drive.google.com/file/d/0B9n6BtJ4Med8NlVGa2FySzEtMGM/view?usp=sharing Sub DataTransfer() 'simplified to 2 workbooks Dim w As Workbook 'Test_Location 1 Dim Alpha As Workbook 'Template Dim Emptyrow As Range Set w = Workbooks.Open("C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test\location_1.xls") Set Alpha = Workbooks("FRF_Data_Sheet_Template.xlsm") Set EmptyrowC = Range("C" & Alpha.Sheets("DataInput").UsedRange.Rows.Count + 1) w.Sheets("Data").Range("I3:K7").Copy With Alpha.Sheets("DataInput") EmptyrowC.PasteSpecial Paste:=xlValues, Transpose:=False Application.CutCopyMode = True […]

运行时错误“1004”无法设置范围的文本属性: 我试图将数据从“详细信息”表存储到不同列的string中，以线性方式将每行存储到不同的string中，然后在名为“output”的其他表的单元格中将相同的值分配给相同的值51次。 Option Explicit Sub Arrange() Dim FinalRow, FinalRow1 As Long Dim ws, wr As Worksheet Dim strCN, strAdd, strCity, strState, strZip, strPhone, strWeb As String Application.ScreenUpdating = False Dim i, j As Long Set ws = Sheets("details") FinalRow = ws.Range("A900000").End(xlUp).Row For j = 2 To FinalRow strCN = Cells(j, "A") strAdd = Cells(j, "H") strCity […]

当列没有不同的值时，运行时错误13: 以下是我的程序的一部分，它执行下面的function 它将查看列K和列L并根据组合创build选项卡。例如，如果K列的单元格值为“Apple”，而L列的单元格值为“Orange”，则将创build一个选项卡1）Apple – Orange 新选项卡将包含所有具有该组合的行因此，一旦完成了macros的运行，整个数据将根据K-L组合分成不同的选项卡我的问题是，当整列K或整列L只有一个值时，发出运行时错误。例如，如果整个K列有10行，并且所有列k个单元格都有值Apple，则会发生错误。 L列也一样。 Dim m As Integer Dim area As Range Count = Range("K:K").SpecialCells(xlLastCell).Row ActiveSheet.Range("K2:K" & Count).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("Z2"), Unique:=True Columns(26).RemoveDuplicates Columns:=Array(1) Count1 = Range("L:L").SpecialCells(xlLastCell).Row ActiveSheet.Range("L2:L" & Count1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("Y2"), Unique:=True Columns(25).RemoveDuplicates Columns:=Array(1) Dim arrayv As String Dim Text1 As String Dim arrayv1 As String last = Range("Z2").End(xlDown).Row arrayv […]

错误-2147417848（＆H80010108）：调用的对象已从其客户端断开连接: 我有一个庞大的vba项目，有10个复杂的用户表单和许多其他function和潜艇。然后我有debugging窗口打开一切正常完美，下一次我打开文件的工作也很好，但如果我打开它第二次或第三次（不打开debugging窗口）我收到以下错误：错误-2147417848（＆H80010108）：调用的对象已从其客户端断开连接。几个小时后，我发现这个错误的来源，一旦我排除下面的行它完美的作品： ws.Cells(nr + 5, 7) = Me.tb_COT_MP_SM.Value 该代码将主要大型用户窗体的文本框之一的值传递给单元格。我读了与这个错误相关的文章，并试图将这个文本框淡化为一个MSForms对象，但它并没有帮助.. 提前感谢您的支持。

重新运行代码时出错: 首先，我直接从Excel工作簿中运行代码时出错。它会导致下面提到的错误信息我们查看了所选数据旁边的所有数据，但没有看到为您填写数值的模式。要使用Flash Fill，请input您希望看到的输出的几个示例，将活动单元格保留在要填写的列中，然后再次单击Flash Fillbutton 但是，如果在开发人员选项卡下从VBA窗口播放，则可以运行代码。但是，在popup错误消息1004之前仅限于运行1次，并且在再次播放时也编码错误。请帮忙。从来没有教过或学过VBA。下面的代码是在网上研究和试错的混搭。 Sub Graph() ' ' Graph Macro ' ' Keyboard Shortcut: Ctrl+e ' 'Select values in a column from specified workbook and sheet Dim LR As Long, cell As Range, rng As Range Windows("Area3-LG").Activate With Sheets("Graph data") LR = .Range("B" & Rows.Count).End(xlUp).Row For Each cell […]