我尝试在VBA中为Excel2010编写程序,但错误不断
Public Sub SetClrIndex (rng as Range, ColorIndex as Integer)
rng.Cells(1,1).Interior.ColorIndex = ColorIndex 'here "Error 1004: application or object error"
End Sub
如果在rng.Cells(1,1).Interior put Set之前出现错误"Error 424: object required“
将用户指定的范围传输到过程
告诉我
如何从Access VBA更新Excel工作簿中的.Application属性?
我正在使用Access VBA将数据导出到Excel,打开文件,并对文件进行格式化(添加公式等)。
代码很慢。我想禁用屏幕更新并将Excel计算更改为手动。
.ScreenUpdating = false不会产生运行时错误,但是屏幕会更新,就像代码被忽略一样。
.Application.Calculation产生运行时错误1004。
Dim Xl As Excel.Application
Dim XlBook As Excel.Workbook
Set Xl = CreateObject("Excel.
在excel VBA中,我似乎找不到这么简单的工作
我有关于手机A1的数据
Sub TestBox()
ActiveSheet.Activate
MsgBox (Cells(0, 0).Value)
End Sub
我想要输出这些数据,基本上使用一个msgBox
运行时错误:“1004”应用程序-defined或对象定义错误
我在另一个答案中找到了这个
Sub UpdateQueryConnectionString(ConnectionString As String)
Dim cn As WorkbookConnection
Dim oledbCn As OLEDBConnection
Set cn = ThisWorkbook.Connections("database")
Set oledbCn = cn.OLEDBConnection
oledbCn.Connection = ConnectionString
End Sub
我似乎收到一个关于Set oledbCn =
我有一个VBA,连同许多其他东西,将一个excel工作簿保存到SharePoint (我认为是企业2010 ),它大部分时间运行良好,但在用户运行VBA时,Excel会冻结,弹出显示“获取可用内容类型和属性的列表.”。如果用户选择取消另一个弹出,则出现“运行时错误'1004':对象'_Workbook‘的方法'SaveAs’失败。如果用户选择”Debug“,则VBA的最后一行突出显示为创建错误。
Dim fileName As String
Dim excelDirName As String
fileName = [c9]
excelDirName = [c
Microsoft Excel 2013 (15.0.4675.1000) 32位
在试图移动或复制我的工作表时,无论是在同一个工作簿中还是在其他工作簿中,我都会得到名为Sheet1、Sheet2等的空白工作表。
当尝试以编程方式使用VBA执行相同的操作时,如下所示:
Sheets("Invoice").Select
Sheets("Invoice").Copy Before:=Sheets(1)
我也得到了错误的Run time Error 1004: Method Copy of class Worksheet failed,这种情况经常发生,每次在
我想使用来自Excel表的数据,使用VBA代码在AutoCAD中绘制。
我找到了一个代码并勾选了引用:
AutoCAD库
AutoCAD对象/DBX
VBA的AutoCAD焦点
下面是绘制圆圈的代码:
Sub AddCircle()
' Define the center point
Dim ptCen(0 To 2) As Double
ptCen(0) = 2: ptCen(1) = 3: ptCen(2) = 0#
' Create a Circle object in model space
Dim circ
我得到了运行时错误'1004':应用程序定义的或对象定义的错误对下面的代码(在这里,我定义lr),不能在我的生活中解决问题。
代码的目的是在定义为"ProjectDescriptionColumn“的列中搜索匹配的项目描述,并返回驻留在同一行单元格中但在定义为"ProjectCodeColumn”的列中的项目代码
任何帮助都非常感谢。
Dim ProjectDescriptionColumn As Long
Dim ProjectCodeColumn As Long
With Sheets("Completed")
If Cells(LastR
我希望在指定表的每一行中执行目标搜索。下面的VBA代码成功执行了GoalSeek。 Sub GoalSeek()
Dim lo As ListObject
Dim rw
Set lo = Sheet1.ListObjects("Table1")
For rw = lo.DataBodyRange.Rows.Count To 1 Step -1
Range("M" & rw).GoalSeek Goal:=Range("N" & rw).Value, ChangingCell:=Range("E" &
我有一个非常大的电子表格,我想做计算。为了加快速度,我想在vba中实现它们。我对vba有基本的了解,所以首先我尝试编写代码,简单地复制A列中的单元格并将它们分配到数组中,然后将所有值粘贴回另一列D。我定义了数字以获取行数,因为这将在每个月之间发生变化。我想,如果我能让它工作,我可以从那里建立起来-但不幸的是,我不能让这个工作。如果有人能告诉我我做错了什么,我会很感激的。
我尝试过很多不同的方法--目前我得到了错误运行时错误'424‘对象,所以我认为数组是空的。
Option Explicit
Option Compare Text
Option Base 1
Sub Macro1(
当我使用以下vba代码时,我得到了一个运行时错误'1004‘应用程序定义的错误或对象定义的错误:
Private Sub CommandButton1_Click()
Dim formul as String
'Run Tercih14
formul = "=vlookup($c$15;'Şube Listesi'!$B:$J;9;FALSE)"
Sheet35.Range("F12").Formula = formul
End Sub
我可以更改F12 cell.assign的值,不同的公式,如=sum(A1:A2)
我对VBA相当陌生,从上周开始就开始学习了,我想回顾一下我的发现,我知道这是你将要遇到的最愚蠢的事情。
我一直在犯这个错误:
运行时错误“424”:
对象所需
下面是代码和错误消息:
Sub Button1_Open()
Button1.OnClick MsgBox("Tester")
End Sub
有什么帮助吗?我知道这会很傻的。我尝试过添加Set,但这也不起作用。
我在Access 2010中有一些VBA,可以运行查询并将结果导出到Excel的列中。这里的目标是,当用户按下所需的按钮时,将打开一个excel工作簿,如果它不存在,则创建它。创建新工作簿时,VBA会按预期执行。我遇到的问题是工作簿何时已经存在。
因此,在我创建了一个设置我的excel应用程序对象后,我尝试打开工作簿。当它不存在时,会发生1004错误,并且我有以下错误处理程序:
Select Case Err
Case 1004 'Workbook doesn't exist, make it
xl.Workbooks.Add
Set wb
我有一份有许多表格的Word文档。
我需要数几张桌子。
我尝试了以下的VBA
Dim T as Table
Dim i as Integer
Dim Tables as Integer
For Each T In wdDoc.Tables
i = i + 1
Exit For
Next
Tables = i
End sub
不管怎么回事
“运行时错误'424':对象要求”。
我还在网上找到了密码
Tables = wdDoc.Tables.Count
使用此代码创建宏似乎什么都不做。
我有以下使用Excel2013复选框(ActiveX控件)的代码:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
Else
CheckBox2.Value = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If
E
我正在尝试通过编写用户定义的函数来使Excel工作表更具可读性,更易于使用。我正在尝试转换如下公式,
=If(IsErr(GetPivotData(Pivot Look up information here)),0,GetPivotData(Pivot Look up information here))
使用vba代码
pt.GetPivotData(Pivot Look up information here)
我在检测VBA中的查找查询时遇到问题。在上面的公式中,这是由IsErr函数处理的。我尝试过使用IsError(pt.GetPivotData(这里是透视查找信息)),但是程序崩溃
我最近写了一些代码,从用户表单文本框中获取输入,并在我的数据库中进行搜索。如果找到,我希望它返回值并将其插入到单元格A1149中;我已经编写了以下代码,但它给出了错误#424 "Object Required“。我是一个非常新的VBA,所以任何和所有的帮助非常感谢。
Private Sub CMDSearch_Click()
Dim pesquisa As Range
Set pesquisa = Worksheets("Petrobras").Activate.Range("$W:$W") _
.Find(Wh
我遇到了一个小问题。我想用VBA删除一些行,但我希望避免使用Activate或select语句。问题是,如果我不激活工作簿,我的代码在删除或复制行时会返回一个错误。
With Template.Worksheets("1").Range("A3").CurrentRegion
rCountS = .Rows(.Rows.Count).Row
.Range("A4", Cells(rCountS, 1)).EntireRow.Delete
End With
.Range部件在下面返回一个错误:
运行时错误“1004”:应用程序定义的或对象定义的
我正在尝试编写一个VBA脚本来根据两个单元格中的值更新数据透视表的筛选器,但我一直收到1004运行时错误。我已经尝试了基于对其他问题的答案的各种方法,但我仍然无法弄清楚问题是什么。 注意:我读到这个错误有时是因为数据透视表需要至少一个可见的值,但是即使我设置了visible = True,这个错误也会发生 VBA代码: Private Sub PageItemFilter()
Dim pvtF As PivotField
Dim pvtI As PivotItem
Dim startDate As Date
Dim endDate As Date
Dim filterDate As Date
我想从vba excel的另一个工作簿中复制另一个工作表中的某些值,但我遇到了错误1004。这是我的代码
Sub copiar()
Dim rng As Range
Dim cell As Range
Dim rng2 As Range
Dim cell2 As Range
Set rng2 = Range("A2:A5")
Set rng = Workbooks("perfumes.xlsx").Sheets("hoja").Range("A4:A10")
For
我试图使用VBA循环一个DATEDIF公式,但我一直收到运行时错误'1004':应用程序定义的错误或对象定义的错误。我不确定为什么代码一直踢出去。这个公式本身是有效的。 Sub DateandDaysFormula()
With ThisWorkbook.Sheets("HDT Pivot Table")
Dim lastRow As Long
lastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
.Range(.Range("L2
我知道还有很多其他的线程,但我对VBA代码不太了解,而且我似乎也不能理解提供的解决方案。我可以从网络上复制一个现有的宏,并在我的Excel 2013计算机上使用它,但一旦我在另一台计算机上使用2003,我就会弹出这个错误。(运行时错误'1004‘对象’_Workbook‘的方法'SaveAs’失败)有人能让我知道我需要在代码中修改什么吗?
Sub ConvertToXlsx()
Dim strPath As String
Dim strFile As String
Dim wbk As Workbook
' Path must end i
奇怪的是这个
我有一个枢轴表,通过power / OLAP连接到数据源。我已经创建了一个vba按钮,以添加一个字段到支点的行部分,然而,当我运行.
With ActiveSheet.PivotTables("PivotTable1")
.AddDataField ActiveSheet.PivotTables( _
"PivotTable1").CubeFields("[Measures].[Sum of Unique_Customers]"), "Unique Customers"
End With
我得到对象错误1004运
我是一个VBA初学者,我的代码显然有问题。我得到了
错误1004 -运行时错误
当代码通过cells(i,1).value= formatcell时
敬请指教?谢谢
Sub firstcode()
Dim formatcell As Integer
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
formatcell = Cells(1, 1).Value
For i = 0 To lastrow
If formatcell < 20 Then
Call SecondCode
我试图过滤掉指定范围内的空单元格,并找到了这段代码。测试结果为运行时错误1004找不到单元。我查看了“局部变量”窗口,当我查看“局部变量”窗口时,“配置范围”似乎没有正确地分配为一个范围。我通常不使用VBA,所以我不确定我是否遗漏了它的某些方面 Set ConfigRange = Worksheets("Sheet1").Range("L72:L92")
For Each cell In ConfigRange.SpecialCells(xlCellTypeFormulas)
MsgBox (cell) &
我一直在处理一个工作表,其中我需要编辑图表的公式。
当我第一次写它的时候,它工作得很好,但现在我甚至不能让VBA读取公式,尽管它仍然可以读取名称。我不知道是什么导致了这一切。
Sub test()
Dim ser As Series
[irrelevant code]
With Worksheets("sheetX")
For Each ser In .ChartObjects("Chart 2").Chart.SeriesCollection
Debug.Print s
因此,我遇到了可爱的运行时错误1004:应用程序定义或对象定义错误。
最糟糕的是,在VBA中,一半的时间代码可以正确运行而没有任何问题,而另一半的时间代码却一败涂地。第三行("Mgmt.List.....")通常在循环中运行,但在这个简单的宏中对我来说没有任何问题。
Sub whyyyy()
Dim Mgmt As Worksheet
Set Mgmt = Sheets("Mgmt MarginAnalysis")
Mgmt.ListObjects("Table4").ListRows.Add (3)
End Sub
这条
...from报告过滤器到联想字段,反之亦然,我得到一个错误.这是它在录制时创建的代码:
Sub ByPlant()
'
' ByPlant Macro
'
'
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Sociedad")
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable3").PivotF