VBA运行时错误'1004'：对象'_Worksheet‘的方法'Range’

文章/答案/技术大牛

发布

1回答

excel、vba

我知道这个问题和Stack上发布的许多其他问题类似，但他们的解决方案都没有对我起作用。我是VBA新手，所以请尽量使您的解决方案易于理解。下面的代码本质上是有条件地锁定和解锁单元格(还没有完成；仍在尝试关闭框架)： Option Explicit End Select End Sub 问题是，每当我更改工作表上的任

浏览 104提问于2020-04-11得票数 0

2回答

Outlook Vba代码出现错误1004

excel、vba

Set wks = wkb.Worksheets("Calendar") 'active worksheet我随身带着这两行代码这里，当我将combobox值赋给工作表的第一个单元格时，它会给我一个error number 1004。让我知道一些解决方案... 预告谢谢....

浏览 5提问于2013-04-17得票数 1

1回答

VBA运行时错误“1004”：对象“_Workbook”的方法“SaveAs”失败

excel、vba

当我将宏文件与另一台pc一起使用并运行宏代码时，我试图保存拆分的excel文件。“运行时错误'1004'：对象‘_Workbook’的方法'SaveAs‘失败Option Explicit Dim wsSource As Worksheet, wsHelper As

浏览 0提问于2020-11-17得票数 0

回答已采纳

1回答

如何解决VBA* Excel中的运行时错误？*

excel、vba

当我在VBA Excel中运行代码时。我得到运行时错误'1004‘方法’范围‘的对象’_工作表失败。这是密码。Private Sub Worksheet_Change(ByVal Target As Range)

浏览 0提问于2021-06-29得票数 0

回答已采纳

4回答

运行时错误1004。对象'_Worksheet‘的方法'Range’失败

vba、excel

我有下面2000行代码，因为这个过程是重载的，所以会出现编译错误： Sheet7.Range("H2").Value = Sheet7.Range("H2").Value + Sheet7.Range(Sheet7.Range("H2001").Value = Sheet7.Range("H2001").Value + Sheet7.Range("K2001&qu

浏览 0提问于2013-08-02得票数 0

2回答

运行时错误'1004'：对象'_worksheet‘的方法'Range’失败

vba、excel

复选框已使用此sub标记If ws1.Shapes("Check Box 7").OLEFormat.Object.Value = 1 ThenDim ws

浏览 0提问于2014-05-13得票数 1

回答已采纳

1回答

错误1004，对象'_Worksheet‘的方法'Range’失败

vba、excel

对每一列执行如下操作:取该列中第一行的值，然后从该列中的所有行中减去该值。我已经把这段代码放在一起了(可能不是最好的方法，但我是VBA新手，所以：)Dim Header As Range, Coldata As RangeDim cell As Range, cell2 As Range S

浏览 0提问于2016-05-02得票数 0

1回答

错误'1004‘对象'_Worksheet’的方法'Range‘失败

excel、vba、range、sumifs

我正在尝试为我的变量Arg1分配一个范围。dim wkb2 as workbookdim ws2 as worksheetArg3, Arg4, Arg5) 当我设置Arg1 = ...时，我得到错误我正在尝试做的是从Cells(i+2，6)中为Arg1分配

浏览 4提问于2017-10-12得票数 0

3回答

VBA:获取运行时1004:使用单元格时对象'_Worksheet‘的方法’范围‘失败

vba、excel、runtime-error

Public Function GetLastNonEmptyCellOnWorkSheet(Ws As Worksheet, Optional sName As String = "A1") As RangerngStartCell = Ws.Range(sName)在工作表概述中，我调用： Set RngAssets

浏览 2提问于2015-01-06得票数 10

回答已采纳

1回答

从工作表转到另一个工作表，而不是使用select

excel、vba

我正在尝试让代码“复制粘贴”工作表"X“中的值设置为VBA。然而，它给我一个1004错误。Sub Probabilities() Set VBA = Sheets("X")Set Overview= Sheets("Overview") Overview.Range(Cells(27,

浏览 0提问于2018-11-27得票数 1

1回答

使用vba自动筛选一列，并将另一列中的值放在不同的工作表中

excel、vba

我需要VBA从"Final_Sheet“中的A列获取值，并根据"SIS_Case_Contacts”表的A列中的值进行过滤。Sub filter()Dim lastRowFinalSheet As LongSetws = Sheets("SIS_Case_Contacts") With Sheets("SIS_Case_Contacts&qu

浏览 29提问于2020-04-14得票数 0

1回答

Excel VBA* Goalseek*

vba、excel

我正在尝试在excel电子表格中利用VBA中的goalseek命令。我在F3、F7和F18中有一个值。当我更改F3中的值时，我得到以下错误：以下是代码With Worksheets("Mdl") If Target = Range(&qu

浏览 0提问于2016-02-06得票数 0

2回答

引用单元格使用范围(“单元内容”)给出错误1004。

vba、excel

你好，我是这里的新手，我在VBA编码和fried方面的新手告诉我，如果我的代码有问题，StackOverflow是最好的帮助站点。我得到了我认为我可以通过它们包含的</

浏览 0提问于2018-02-01得票数 2

1回答

只将可见单元格复制和粘贴到可变行

excel、filter、copy、paste、vba

我正在编写一个VBA宏，它复制一组数据，应用一些筛选，然后将过滤后的数据复制到下一个可用的行。“这有时有效，有时不会引发错误:运行时错误'1004'：对象‘_Worksheet’的方法‘范围’失败。如果然后将对GAR070 sheet对象的引用更改为sheet(“GAR070”)，则最终会出现运行时错误&#x

浏览 0提问于2015-05-15得票数 0

回答已采纳

1回答

根据每个工作表的单元格值命名w orkbook中的所有工作表

vba、excel

我以前使用过此代码，但只是将其更改为另一个单元格，现在收到运行时错误'1004‘，对象'_Worksheet’的方法'Name‘失败。不确定是什么导致了这种情况 For Each ws In ActiveWorkbook.Worksheets ws.Name = ws.Range("FW1

浏览 0提问于2017-06-07得票数 0

1回答

打印宏-运行时错误1004。对象'_Worksheet‘的方法'Range’失败

excel、vba

我想要做的是，如果A*列中有一个"1“，那么我希望宏将B列*：l*中的行复制到一个新的工作表中，然后在该工作表已完成整个范围时打印该工作表。 Dim oldAlerts As Boolean Dim destSheet As WorksheetDim srcSheet As Worksheet Dim

浏览 2提问于2015-04-11得票数 0

1回答

如果未选择工作表，则范围失败

excel、vba

我有这段代码，应该可以很好地工作Set ws = ThisWorkbook.Sheets("Auswertung")ws.Range(Cells(2,错误1004，对象的方法范围失败。如果我将其更改为ws.Range(Cells(2, 2), Cells(lastRow, lastCol)).NumberFormat = "0" 它起作用了

浏览 2提问于2019-12-12得票数 0

2回答

产品状态栏VBA

excel、vba、statusbar

这里的新手，Option ExplicitPublic rng As Range Application.StatusBar = "SumProduct: " &a

浏览 0提问于2018-06-22得票数 1

1回答

VBA:搜索数据库并将行复制到另一个工作表

vba、excel

我是VBA的新手，请原谅。我很难根据表格"4c.CustomerP“中单元格C14中的条件搜索数据库表"1b.Search数据库”，并将这些匹配条目复制到工作表“1b.Search Client”中。但是，当我试图执行代码时，我会收到一个错误：调试行将我带到purchases.<

浏览 2提问于2014-11-11得票数 1

1回答

金字塔代码问题:未定义对象

excel、vba

当我运行这个代码块时，它会生成py.Range(py.Cells(row, coloum + level),Dim wantnum As IntegerDim inputs As IntegerDim coloum As IntegerEnter

浏览 1提问于2020-02-29得票数 1

点击加载更多