Excel VBA:尝试将值设置为范围时出现错误1004
Excel VBA是一种用于自动化Excel操作的编程语言。当尝试将值设置为范围时出现错误1004时，通常表示代码中存在问题，可能是以下几个原因之一：
- 范围错误：请确保代码中指定的范围是有效的。检查范围的名称、地址或引用是否正确，并确保该范围存在于工作表中。
- 工作表保护：如果工作表受到保护，尝试修改受保护的单元格可能会引发错误1004。在修改范围之前，需要先解除工作表的保护。
- 对象属性错误：请确保代码中使用的对象属性是正确的，并且具有适当的访问权限。例如，如果尝试将值设置为只读单元格，将会引发错误1004。
- 数据类型不匹配：尝试将不兼容的数据类型赋值给范围可能会导致错误1004。确保将正确的数据类型分配给范围，例如将数字赋值给数值单元格，将文本赋值给文本单元格等。
- 其他错误：错误1004可能还有其他原因，例如内存不足、文件损坏等。在排除上述问题后，如果错误仍然存在，可以尝试重新启动Excel或检查文件的完整性。
对于Excel VBA中出现错误1004的解决方案，可以参考腾讯云的Excel VBA开发文档，其中包含了详细的教程、示例代码和常见问题解答，帮助开发者更好地理解和解决这类问题。
腾讯云Excel VBA开发文档链接：https://cloud.tencent.com/document/product/1040
相关·内容
1回答
错误1004由应用程序或对象定义的错误
excel、vba
我正在尝试使用VBA更改单元格的字体颜色。我不能在excel中直接更改它的原因是因为工作表是受保护的，而我没有密码。我想要更改的单元格未被阻止(我可以在其中键入)。
在工作表代码中，我尝试使用更改颜色，但当它要激活代码时，总是弹出错误1004。
Private Sub Worksheet_Change(ByVal Target as Range)
Range("B25").Font.Color = vbWhite
End Sub
我想让代码正常工作，这样无论键入什么内容，单元格字体都是白色的
浏览 0提问于2019-07-12得票数 0
我有一个设置工作表的vba代码，其中一个功能是列"Y“的条件格式。当我尝试更改FormatCondition对象的Formula1时，我得到运行时'1004‘。 高尔夫球场使用的Excel模板，用于帮助对大群球员进行的比赛进行评分。我使用突出显示的单元格填充来提醒人们注意重要的值-在本例中-到"Total Game“中排名前三的玩家。范围为"Y8:Y127“的FormatConditions集合中存在三个FormatCondition对象。我已经编写了一些代码来部分枚举现有的FormatCondition对象，因此我知道它们就在那里，并且包含了预期的内容。这些
浏览 22提问于2019-05-29得票数 0
3回答
VBA Excel:在受保护的工作表上移动数据宏错误
vba、excel
我在VBA的一个模块中有以下示例代码：
Sub My_Code()
ThisWorkbook.Sheets("Main").Range("A1") = "Main Data"
ThisWorkbook.Sheets("Secondary").Range("A2").Copy Sheets("Main").Range("B2")
End Sub
为了保护主表和次页，我在VBA的工作簿中放置了以下代码：
Private Sub Workbook_Open()
Sheets("
浏览 9提问于2017-03-21得票数 0
回答已采纳
2回答
Excel列表-对象VBA性能缺陷？
performance、excel、vba、listobject
我对使用列表对象(AKA excel表)的Excel应用程序的性能有问题。我怀疑这可能是一个bug，但尽管我在谷歌上搜索，但我找不到它的任何参考资料。我已经为我的应用程序开发了一个解决方案，但我感兴趣的是，是否有人能深入了解为什么会发生这种情况。
注意:我在Windows上使用Excel 2007。设置如下:我有一个电子表格，它在List对象中保存数据，VBA代码可以通过命令按钮启动；此代码可以对工作表上任意数量的单元格进行多次编辑，因此Excel的计算模式在任何编辑之前设置为手动。
我遇到的问题是，如果当前活动的单元格在列表对象中，那么将计算模式设置为手动似乎没有任何效果。因此，如果用户碰巧
浏览 0提问于2012-01-14得票数 5
1回答
受保护工作簿的VBA Excel拼写检查
excel、vba
我想为我的Excel工作簿运行一个自动拼写检查。
在此之前，我使用了这个查询中解释的方法：
一切似乎都很好，尽管在最后我遇到了一个错误：
运行时错误‘1004’：Range类的 CheckSpelling方法失败
但是，我的拼写检查看起来已经完成了，因为我已经没有同样的错误了。不幸的是，这是相当尴尬的，因为我不能在我的工作簿上运行另一个VBA代码，因为调试器显示了错误。
我在这里找到了与检查受保护的工作表拼写相关的代码：
最后，我准备了我自己的代码，包括它们两个：
Sub Spellcheck3()
For Each sh In Worksheets
Sheets(sh.Name).
浏览 5提问于2020-02-26得票数 1
回答已采纳
1回答
EXCEL vba |其他工作表的铁路超高集范围
excel、vba
在特定工作表上定义范围时，Excel抛出错误1004 我在Excel vba中得到了两个工作表：-Sheet A -Sheet B 作用域Sheet_A： Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng as Range
Set Rng = Sheets("Sheet_B").Range("A1")
Set Rng = Range(Rng, Rng.offset(0,1))
End Sub 也许我保护了我的工作表或类似的东西，因为我得到了错误：-> 1004“应用程
浏览 23提问于2021-10-01得票数 0
2回答
Vba Excel Vlookup搜索值是字符串
vba、excel
下面的代码不工作
运行时错误1004
VlookSrc (在VBA中作为字符串)是我们在Range("KV5:KW105673")中查找的值。它是依赖于c和d的不同单元格的组合，以及中间的字符串/DIR/。在本地窗口中，可以看到Excel识别正确的字符串。我们使用IfError函数，因为不会总是找到值。运行错误1004附带工作表函数。
If Cells(3, d) = Cells(c, 33) Then
VlookSrc = Cells(c, 48).Value & "/DIR/" & Cells(4, d).Va
浏览 1提问于2017-11-08得票数 0
回答已采纳
2回答
如何在VBA中锁定Excel单元格？
vba、excel、protected、office-2007
我有一个Excel工作表，它的行为就像一个应用程序，带有表单控件按钮，允许用户在记录之间“导航”。First，Previous，Next & Last循环通过其中一个工作表记录，在我的'form‘工作表中显示这些值。
当用户未处于编辑或添加模式时，我希望锁定单元格以防止用户修改内容。
我尝试了Range("A1:O24").Locked = True，但我仍然可以在单元格中键入新值。
有人知道怎么做到这一点吗？我需要我的vba代码能够分配新值给单元格作为用户‘导航’，但防止用户输入新值，除非在添加或编辑模式。
浏览 6提问于2013-06-14得票数 1
回答已采纳
1回答
MS Word VBA:从word对象要求的错误控制excel工作簿
vba、excel、ms-word
我在MS Word中创建了一个宏，它需要能够(基本上)将word中的表内容复制并粘贴到excel中。
免责声明:这可能看起来过于复杂；但是，这种方法是必需的，因为它是为更复杂的处理设置的。
长话短说，我循环遍历文档中的每个表，然后遍历表中的每个单元格，并将文本放入excel工作表中的相应单元格中。
对于excel对象，我有以下声明：
'Objects
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlRange As Excel.Range
在循环的底部，我有以下代码：
xlBook.Worksh
浏览 0提问于2014-06-11得票数 0
回答已采纳
1回答
运行时错误'1004'：应用程序定义或对象定义的错误vba Excel
vba、excel
我正在执行一个vba宏来从excel文档的工作表中获取数据，我这样做的方式是：
Worksheets("EN").Range("5A").value
但是由于某种原因，运行时错误1004被输出。如果我尝试循环工作表元素并查看名称或索引值，则可以正确获取所有工作表，但当我尝试获取.Range("5A").value 1004时，会输出错误。由于某些原因，value命令是带负"v“的，如果我尝试放置Value键，IDE会自动将键"value”改为"Value“。
什么可以解释这种行为？
谢谢。
浏览 4提问于2017-10-31得票数 0
5回答
保护Excel中的单元格，但允许VBA脚本修改这些单元格
vba、excel
我正在使用Excel，其中某些字段允许用户输入，而其他单元格则受到保护。我已经使用了保护工作表的工具，但是在这样做之后，我无法更改VBA脚本中的值。我需要限制工作表停止用户输入，同时允许VBA代码根据某些计算更改单元格值。
浏览 1提问于2008-09-24得票数 63
回答已采纳
1回答
在vba access操作excel工作表中设置非连续范围的问题
excel、vba、ms-access
我正在从Access创建Excel工作表，并且需要从Access VBA格式化该工作表，但当我尝试这段代码时，它返回错误1004：
Set rng = .Range("A2:E" & LastRow & "," & "J2:M" & LastRow)
With rng
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlVAlignCenter
End With
如果我在每个范围内尝试它，它是有效的：
Set rng = .Range(
浏览 0提问于2019-10-31得票数 0
2回答
使用vba解锁/锁定表单对象
vba、combobox、scrollbar
我有一个带有2个组合框和3个滚动条的excel工作表。我想保护除此表单对象(和一个单元格)之外的所有工作表。当我试图保护工作表时，我不能使用滚动条和组合框。如何使用vba解锁它们，并保持对工作表其余部分的保护？我试图解锁链接到表单对象的单元格，但仍然不起作用。
谢谢你
AB
浏览 0提问于2009-10-19得票数 0
回答已采纳
1回答
运行时错误1004:对象的OnKey方法_Application失败
excel、vba
我收到关于VBA “运行时错误'1004'：对象'_Application‘失败的方法'OnKey’”的报告，至少在Excel2016中，在此代码中是这样的：
Private Sub Workbook_Deactivate()
Application.OnKey "^x"
End Sub
(当启用VBA的工作簿处于活动状态时，代码会重写某些热键，并在用户切换回其他工作簿时恢复默认行为。)
可能是什么原因？
浏览 7提问于2020-07-13得票数 1
回答已采纳
3回答
我使用vba代码保护了一个工作簿。我还想让用户在特定的单元格(n4, p7:p10)中输入一些值。
我试过使用下面的代码，但它不起作用。弹出错误消息提到了"Error 1004"。
Range ("n4,p7:p10").select
Selection.locked=false
浏览 7提问于2015-02-13得票数 1
回答已采纳
1回答
查看隐藏的工作表，无法设置工作表类错误的visible属性
excel、vba、office365、protected
我有一个包含4个选项卡的excel文件，工作表1只有几个单元格受到保护，工作表2被隐藏，工作表3完全受密码保护。我需要查看和编辑图纸2，但无法做到这一点。 我尝试了一个我在网上看到的解决方案，转到视图，自定义视图，然后添加然后显示。这不管用。 我会注意到，我看到我的底部栏是灰色的，我也不能“插入”工作表从顶部的主页功能区。 ? ______ ? 然后，我尝试了以下VBA宏解决方案，Sheet2名称=状态。 ActiveWorkbook.Worksheets("States").Unprotect Password:="password"
ActiveW
浏览 281提问于2021-10-15得票数 0
2回答
必须使用VBA复制Excel2010中的单元格格式
excel、vba
我正在尝试编写代码，将一个很长的电子表格解析为多个工作表。我让解析代码工作了，复制和粘贴也工作了。但是粘贴只创建默认宽度的单元格。我需要复制所有单元格格式。即单元格高度、宽度、背景颜色、前景颜色、边框等。该部件正在生成运行时1004错误。下面是我的代码：
Sub SplitData()
mycount = 0
myrow = 0
Do
mycount = mycount + 1
oldrow = myrow + 1
Sheets("Master").Select
Do
myrow = myrow + 1
Loop Until Le
浏览 1提问于2012-03-03得票数 2
2回答
从先打开CSV文件的CSV文件粘贴时出现VBA错误1004
vba、excel
我是Excel VBA的初学者，正在工作中使用一个小工具。我们使用一个工具来衡量我们的NPS-score，因此我可以下载我们所有的评论作为CSV文件。我创建了一个VBA，将所有这些注释粘贴到一个工作表中，并将其转换为列并进行计算。
如果我首先打开我的Excel文件，然后下载注释，手动复制注释并运行脚本，它会工作得很好。但是如果我首先下载注释，然后打开我的Excel文件并运行脚本，它会抛出一个1004错误，类工作表的方法粘贴失败。
我在这里尝试了很多答案，但似乎都不起作用。这是脚本开头粘贴注释的部分：
Application.ScreenUpdating = False
Dim wb As Wo
浏览 0提问于2016-04-04得票数 0
1回答
将数据从单元格复制到数组的VBA循环
arrays、excel、vba
我是excel中的VBA新手，我编写代码将单元格从工作表复制到数组中。当我运行时，会出现运行时错误。我不知道出了什么问题。
Sub DistSystem()
Dim count As Integer
Dim i As Integer
Dim array_rank() As Variant
Dim array_city() As Variant
Dim array_assign() As Variant
count = Sheets("111").Range("Y2").Value
For i = 0 To c
浏览 0提问于2014-06-04得票数 1
回答已采纳
1回答
是否有Excel函数来检查另一个Excel文件是否正在积极保存？
excel、vba
是否有VBA代码可用于检查Excel文件是否正在积极保存？
我使用Excel文件(文件A)中的VBA宏来打开另一个Excel文件(文件B)。
DummyDirectory="C:\DummyFolder1\DummyFolder2\"
Workbooks.Open filename:=DummyDirectory & "DummyFile.xlsb", ReadOnly:=True
如果B文件是由其他人主动保存的，当我在文件A中运行宏时，我会收到一个运行时错误(1004)。在尝试用文件A中的宏打开文件B之前，我想检查B文件是否被其他人主动保存。
我倾向
浏览 1提问于2019-01-10得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
