Tag: 运行时错误

运行时错误7：内存不足，加速代码: 我一直在解决这个问题已经有一段时间了，在这里的人们的帮助下，我设法提出了两个解决scheme。第一个解决scheme工作，但我不能得到msgbox显示正确的信息。下面的版本第一次工作， msgbox在msgbox中显示正确的数据，但如果我再次尝试运行代码，它会崩溃excel，并给我一个运行时错误7：内存不足。它打破了： wsNew.Name = strWS ，它看起来总是试图创build工作表，即使他们已经存在。我认为这可能与On Error Resume Next, If Len(Worksheets(strWS).Name) = 0 Then 。无论如何可以加快这个代码吗？目前它正在通过全球表格中的42行进行查看，但可能会出现数百条的情况，而此时它正在以合理的速度运行，只要我在全局表格中引入更多行，慢一点。 Private Sub CommandButton2_Click() Dim j As Long, strWS As String, rngCPY As Range, FirstAddress As String, sSheetsWithData As String Dim sSheetsWithoutData As String, lSheetRowsCopied As Long, lAllRowsCopied As Long, bFound As Boolean, sOutput As […]

运行时错误“483”“对象不支持此属性或方法”: 我试图为特定的工作表有一个自定义sorting表，但我得到运行时错误“483”“对象不支持此属性或方法”。我将工作表名称和自定义列表顺序作为来自用户的stringinput。 Option Explicit Sub SortRiskArea() Dim wk As Worksheet Dim Tb, Rb Dim shtName As String shtName = InputBox(Prompt:="Enter the Worksheet Name that you want to sort." & vbNewLine & " Ex: Risk Register ", Title:="Hello", Default:="Risk Register") shtName = Trim(shtName) Dim strName As String strName = InputBox(Prompt:="Enter the Sort Order for Risk Area" […]

Application.Ontime取消无法对对象“应用程序”的方法“ONTIME”: 我完全失去了，所以任何帮助将不胜感激。我正在尝试取消2个打开工作簿时触发的计划事件，并重复使用Application.Ontime方法。我知道要终止OnTime日程安排循环，您必须提供计划运行的确切时间，并且具有多个Application.OnTime任务需要多个variables。这就是为什么我设置了两个公共variables（选项显式下面的文档的标题）： Dim dTime as Date Dim dTime2 as Date 调度程序使用这些variables，一切运行正常，代码每分钟运行一次。 dTime的值在TaskTracker函数中设置为： dTime = Now() + TimeValue("00:01:00") Application.OnTime dTime, "TaskTracker", , True dTime2的值在Autoclear函数内设置为： dTime2 = Now() + TimeValue("00:01:00") Application.OnTime dTime, "AutoClear", , True 尽pipe如此，当试图在模块的末尾运行函数时，我得到了Object'Application方法的'ONTIME'错误消息： Function AutoDeactivate() Application.OnTime EarliestTime:=dTime, Procedure:="TaskTracker", _ Schedule:=False Application.OnTime EarliestTime:=dTime2, Procedure:="AutoClear", _ Schedule:=False End Function 这是我绝对不会得到什么问题的地方。触发debugging将我带到每个程序取消尝试的OnTime部分。下面是包含这些元素的脚本。希望这会给你们一些洞见，为什么这些事件不能被取消。请给我这个剧本是漫长的：P […]

运行时错误“438”“对象不支持此属性或方法”: 我得到'438'错误，当我debugging，下面的行高亮显示黄色 If (Sheet4.Cells(i, j).ColorIndex <> xlNone) Then 我找不到我得到这个错误的原因。它是语法错误吗？还是更大的问题？我需要在代码中多次查看或更改单元格的颜色。有任何想法吗？

Excel 2013比较不同行上的date使用macros“运行时错误13，types不匹配”: 我是vba中的新人，目前我正在工作，而我的老板需要我创build一个excelmacros。 macrosfunction是：比较数据是date，开始date和结束date。自动提醒用户员工合同过期时打开工作表。如果员工合同过时，突出员工的细节。所以现在我被卡住，直到“运行时错误13，types不匹配”。下面是我的编码部分，不匹配是>>> <<<。 Private Sub Worksheet_Activate() Dim rngA As Range Dim rngD As Range With Worksheets("Sheet1") For Each rngA In .Range(.Range("A1"), .Cells(.Rows.Count, "A").End(xlUp)) For Each rngD In .Range(.Range("D1"), .Cells(.Rows.Count, "D").End(xlUp)) >>> If rngA.Value("A1:xlUp") >= rngD.Value("D1:xlUp") Then <<< MsgBox "Sheet 1 Row " & rngA.Row & " expiring" rngC.Interior.ColorIndex = 3 […]

引用前一个调暗活动单元时出错（运行时错误“1004”）: 我目前正在重新使用一些旧的代码作为循环，而不是160个不同的macros（字面上）。有趣的是，我犯了select范围和使用活动单元格的主要罪恶（部分原因是我不知道这将如何工作，否则），我试图通过分配单元格=单元格等重build，但我不确定这将如何工作，我已经回到了我所知道的。代码如下： Sub Refined_Code() ' Turn off the usual system hogs. Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False ActiveWorkbook.ForceFullCalculation = False ' Dim some ranges for use later on. Dim BU As Range Set BU = Sheets("Control").Range("C3") Dim PorT As Range Set PorT = Sheets("Control").Range("C8") Dim BUStart As […]

VBA错误424与空: 我试图寻找错误424的问题，但我没有find任何符合我的情况。我在第三行收到了424错误： For icount = 2 To no_items If hid.Cells(icount, 1).Value > 0 Then 'If hid.Cells(icount, 1).Offset(-1).Value Is Empty Then 'hid.Cells(icount, 1).Value = 1 'Else hid.Cells(icount, 1).Value = 1 + hid.Cells(icount, 1).Value 'End If End If Next 我的声明如下： Dim hid As Worksheet Set hid = ThisWorkbook.Worksheets("Hidden") hid.Visible = True 之前，我在第2行有同样的错误： If hid.Cells(icount, 1) is not […]

VBA项目中的运行时错误: 每当我运行这个代码时，我总是收到一个错误。该错误是1004运行时错误。请帮我弄清楚我的代码出错了。我对VBA是全新的，但我知道如何使用Python和C. Option Explicit Sub Experiment() Dim m1 As Worksheet Set m1 = ThisWorkbook.Worksheets("Sheet1") Dim col As Integer Dim row As Integer Dim initial As Double Dim s1 As Double Dim s1_pos As Integer Dim s2 As Double Dim s2_pos As Integer Dim min As Double Dim candidate As Double Dim temp_swap As […]

运行时错误13 VBA Excel: 我希望你很好，我有一些代码见下文。基本上它是允许用户上传两个工作簿，并执行一个Vlookup。 macros工作正常，直到从65,000行到280,000行。我第一次得到错误'运行时间溢出'，所以我改变了 Dim intLastRow As Integer 至 Dim intLastRow As Double 那就是当我在这行代码中得到运行时错误13 .Range(.Cells(2, extraCol), .Cells(intLastRow, extraCol)).Value = Application.WorksheetFunction.VLookup(.Range(.Cells(2, 1), .Cells(intLastRow, 1)).Value, Consent.Sheets(1).Range("B:J"), 8, False) 我知道intLastRow As Double创build了一个不匹配的，但是我朦胧intLastRow As Double其他东西intLastRow As Double或我修改代码其他地方？任何帮助将不胜感激。我的代码的其余部分如下。 Sub Add_consent() 'Definition of used variables Dim Directory As String 'Directory for inputs and outputs Dim Consent_folder As String 'Directory […]

试图在另一列中填写州名: 我目前有一个电子表格，其中包含A列中所有城市的名称，如下所示： Dallas, TX New York, NY Miami, FL 我想要做的是从第一列中提取状态并将它们放在B列中。我目前的尝试是这样的： Sub StateFill() Dim x As Long For x = 1 To 65536 If InStr(1, Sheet1.Range("$A$" & x), ", AL") Then Sheet1.Range("$B$" & x) = Sheet1.Range("$B$" & x) & "AL" End If Next For x = 1 To 65536 If InStr(1, Sheet1_metro.Range("$A$" & x), ", AK") […]