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") […]