VBA:在计数和打印编号时出现问题。行数-错误1004
VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的宏语言。它可以用于自动化任务、数据处理、界面设计等各种应用场景。
在计数和打印编号时出现问题，行数-错误1004是指在VBA代码中发生了运行时错误1004。这个错误通常表示在操作Excel工作表时出现了问题。
解决这个问题的方法可以有多种，以下是一些常见的解决方案：
- 检查代码中的语法错误：确保代码中没有拼写错误、缺少引号或括号等常见的语法错误。
- 确保工作表存在：在操作工作表之前，可以使用
WorksheetExists函数来检查工作表是否存在。如果工作表不存在，可以使用Sheets.Add方法来创建一个新的工作表。 - 确保工作表处于活动状态：在操作工作表之前，可以使用
Activate方法将工作表设置为活动状态。例如，可以使用Sheets("Sheet1").Activate将名为"Sheet1"的工作表设置为活动状态。 - 确保单元格范围正确：在操作单元格范围时，确保指定的范围是有效的。例如，可以使用
Range("A1:B10")来指定从单元格A1到B10的范围。 - 处理特殊字符：如果在代码中使用了特殊字符，例如冒号（:）或引号（"），需要使用双引号将其括起来。例如，可以使用
Range("A1:B10").Value = "Hello World"来将字符串"Hello World"写入单元格范围。 - 使用错误处理机制：可以使用
On Error Resume Next语句来忽略错误并继续执行代码，或者使用On Error GoTo语句将错误处理程序定位到指定的行号或标签。
以上是一些常见的解决方案，具体的解决方法需要根据具体的代码和情况进行调试和处理。如果问题仍然存在，可以提供更多的代码和错误信息，以便更好地帮助解决问题。
关于VBA的更多信息和学习资源，可以参考腾讯云的VBA开发文档：VBA开发文档。
相关·内容
1回答
运行时错误1004
我正在用VBA编写Excel宏程序。发生了一些问题。
有3个Excel文件。一个是旧版本的excel文件(扩展格式: xls)，另一个是xlsx格式。
我想得到每个文件的最后一行位置。我的密码在下面。
Sub macro()
Dim testWorkBook1 As Workbook, testWorkBook2 As Workbook, testWorkBook3 As Workbook
Dim testSheet1 As Worksheet, testSheet2 As Worksheet, testSheet3 As Worksheet
Dim count1 As
浏览 5提问于2020-03-17得票数 0
我正在尝试设置一个动态打印范围，以便在从同一工作簿中的另一个工作表中填充的工作簿中打印工作表。我好像有麻烦了。我在Name Manager中设置了一个名为“横向”的命名范围，如下所示：
=偏移(‘幻灯片单张打印横向’！$A$27，0，0，COUNTA(‘幻灯片打印横向’！$A：$A)，COUNTA(‘幻灯片打印横向’！$1:1)
我被困在试图写VBA代码(我对VBA一无所知)我有这个.
Sub Printarea()
ActiveSheet.PageSetup.Printarea = "lateral"
End Sub
我得到一个错误“运行时错误'100
浏览 3提问于2012-11-25得票数 3
1回答
我是vba的新手，我正在尝试做一个代码，让每个单元格在一个1到10的列中。
我试过了，但是它给了我一个错误。
Option Explicit
Dim fila As Integer
Dim CONTADOR As Integer
Sub Count()
For CONTADOR = 0 To 10
fila = CONTADOR
ActiveSheet.Cells(fila, 1) = CONTADOR
Next
End Sub
它将返回错误编号'1004'和“由应用程序或对象定义的错误”。
浏览 0提问于2019-08-20得票数 0
回答已采纳
当我将数据从Sheet1复制到Sheet2时
运行时错误'1004'：应用程序定义的或对象定义的错误
我使用的是vba代码：
lnRow = 33
Sheets("Sheet1").Range("A3:C14").Copy Destination:=Sheets("Sheet2").Range(Cells(lnRow + 3, 1))
如何使用Sheet1编号将数据从Sheet2复制到Sheet2？
浏览 0提问于2020-01-17得票数 1
回答已采纳
1回答
使用Excel 2016，我很难将一个公式粘贴到一个带有VBA的单元格中( VBA在这里进行数据导入)。我有两张床单：Rapport SNN和Data。
Sheets("Rapport SNN").[E4].Formula = "=SUMIFS(Data!S2:Data!S2000;Data!V2:Data!V2000;""BankAxept"";Data!M2:Data!M2000;C4)/100"
只是扔给我一个：
运行时错误'1004'：应用程序定义的或对象定义的错误。
我做错什么了？
浏览 4提问于2015-10-23得票数 0
回答已采纳
我录制了一个用于排序的宏。我想替换硬编码的行数，这样这个宏就可以在任何地方使用 .SetRange ActiveCell.Offset(-1, 0).Range("A1", Range("A1").End(xlDown).End(xlToRight)) 这部分代码抛出VBA运行时错误1004“应用程序定义或对象定义的错误”
浏览 23提问于2020-12-24得票数 0
我试图引用一个具有共同名称和唯一编号的工作表范围，使用vba在每个工作表上创建一个范围。但我得到了一个1004错误。
For lngWeek = 1 To 53
strSheet = "Week" & Trim(Str(lngWeek))
strRange = strSheet & "!B5:H7"
Range(strRange).Activate
Next
纸张是Week1，Week2等，我需要清除范围B5:H7在每张纸上。从Week1一直到Week53。
为什么Range.Activate不能选择每个页面？
浏览 1提问于2021-05-25得票数 1
回答已采纳
1回答
我知道有人有一份单页的MS Word文档作为收据。其中一个标题包括RECEIPT #<number>。此时，他查找最后打印的收据上的号码，并在打印出单份文件之前手动将收据号码调整为该号码加1。
我认为这可以通过使用包含数字的表单字段来改进，然后在每次打印文档时将数字加1。我没有发现MS Word开箱即用支持的任何东西，但我认为可以使用VBA来完成。几年前，我不得不用这种语言编程，我从来没有在Word和打印事件中对表单字段做过任何事情。
有没有人能用一些可以做到这一点的示例代码给我指出正确的方向？在调整编号后自动保存文档也是受欢迎的。
浏览 1提问于2011-04-04得票数 2
2回答
我有一个大约有27,000列和40,000行的文件。我需要计算0.0s在每一列和每一行数据中的数量。我编写了以下代码来统计和打印0.0s在每一栏中的编号：
awk '{a[$1]++;} END{for(i in a) print a[i]" "i}' file_name.txt
我试图集成以下代码：
awk -F, '{ for(i=NF; i>=2; --i) printf "%s ", $i; print $1 }' file_name.txt
为了创建一个循环，所有的0.0s都被计数和打印。我没有必要为最后的数字创
浏览 0提问于2018-10-24得票数 1
回答已采纳
Excel工作表的预览是使用VBA生成的。打印预览显示3张编号为1/3、2/3和3/3的纸张。当发送到打印机时，4页打印编号为1/4、2/4、3/4和4/4。
我该怎么解决这个问题？
浏览 12提问于2015-06-30得票数 1
回答已采纳
1回答
我有一张用密码保护的工作表。当我用VBA更改工作表上的任何内容时，我会像这样解除保护：
Private Sub Worksheet_Change(ByVal target As Range)
ActiveSheet.Unprotect Password:="pass"
'do stuffs
ActiveSheet.Protect Password:="pass"
End Sub
问题是，我仍然在这一行中得到了错误消息：
For j = 13 To 12 + numberofsomething
With Range
浏览 1提问于2016-07-18得票数 2
回答已采纳
1回答
我需要在下面的VBA代码中使用一个变量将公式添加到单元格中：
Sub begin()
ActiveCell.Offset(5, 0).Select
ActiveCell = "Nombre d'appels"
ActiveCell.Offset(0, 1).Select
Myrange = ("A2" & ":" & "A" & maxrow)
ActiveCell = "=COUNTA" & "(" & (Myrange) & ")
浏览 4提问于2016-12-22得票数 0
回答已采纳
VBA新手。我只是想弄清楚为什么不能从另一个工作表的数据透视表中选择前几行数据区域。有什么想法吗？ 数据透视表的工作表名称=数据透视表名称= PivotTable3 Dim pt As PivotTable Set pt =Sheets(“透视”).PivotTables(“PivotTable3”) Worksheets("Pivot").Activate
pt.PivotFields("Row Labels").DataRange.Select
Selection.Copy 我认为这将为我选择第一行。然而，我遇到了错误"1004“
浏览 26提问于2019-02-12得票数 0
回答已采纳
1回答
我有一个工作表，其中包含单元格A1到J2中的条件列表。第1行是标题。
下面我有一个表格，里面有我所有的数据项。具有动态行数的单元格A8到J
Sheets("D0022").Range("A8:" & Sheets("D0022").Cells(Rows.Count, "J").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("D0022").Range("a1:j2"), Unique:
浏览 2提问于2020-03-15得票数 1
回答已采纳
1回答
将公式插入细胞VBA中
、、、
我试图“打印”公式到一个excel表与VBA。代码在COUNTIF前面不使用"=“号，但是当我插入它时，会得到一个运行时错误1004。
有人能帮我吗？
下面是获取错误的代码
Sub Looksie()
Dim Tru As Range
Dim i As Integer
i = 2
For Each Tru In Range("A2:A300")
Sheets("Resultat").Select
Cells(i, 2).Formula =
浏览 7提问于2022-05-02得票数 0
回答已采纳
我正在尝试让我的excel发票生成下一个发票编号，并在按下按钮时将发票副本保存到一个文件中。我使用了这个链接：和几个论坛，但它不起作用。
我将此代码分配给在excel中创建的一个按钮：
Sub NextInvoice()
Range("E5").Value = Range("E5").Value + 1
End Sub
Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
Ne
浏览 5提问于2015-12-05得票数 1
2回答
我在VBA中尝试使用以下命令将公式赋值给单元格时遇到1004错误代码：
=IF(ISERROR(LEFT(C4,FIND(" ",C4)-1)),C4,LEFT(C4,FIND(" ",C4)-1))
我的VBA代码：
Range("U4:U" & lrow).Formula = "=IF(ISERROR(LEFT(C4,FIND('" & "',C4)-
1)),C4,LEFT(C4,FIND('" & "',C4)-1))"
这将给出错误1
浏览 1提问于2015-10-19得票数 0
我有一些代码，包括更改一些.PageSetup变量。
我在使用这段代码时遇到了问题
Sub Test()
Dim ws as Worksheet
Set ws = ActiveSheet
With ws.PageSetup
.Orientation = xlLandscape
End With
End Sub
这将导致错误，但是如果我在运行.Orientation之前暂停代码，然后转到打印预览，然后尝试运行它，一切都正常。
在能够执行之前，.PageSetup特性似乎需要加载打印机设置。我不知道如何处理VBA。
我是从Ac
浏览 3提问于2018-10-03得票数 0
1回答
我有两张单张，分别是库存和发行数量，它们都有样品编号和数量。我想保持第三个股票表，将显示样本号码，它的库存数量，发行数量和股票数量。存货盘点就是存货盘点--发行盘点。
库存和发放计数表将自动更新。
在库存清点和发行清点单中，样本编号可能不会以相同的方式排列，此外，在库存清点中可能存在的一些样本在发行数量中可能不存在，因此库存单中的发行数量必须为0。
我已经将链接粘贴到类似于我的用例的参考单上。任何帮助都将不胜感激。提前感谢！
浏览 0提问于2020-04-13得票数 1
回答已采纳
我在Access 2010中有一些VBA，可以运行查询并将结果导出到Excel的列中。这里的目标是，当用户按下所需的按钮时，将打开一个excel工作簿，如果它不存在，则创建它。创建新工作簿时，VBA会按预期执行。我遇到的问题是工作簿何时已经存在。
因此，在我创建了一个设置我的excel应用程序对象后，我尝试打开工作簿。当它不存在时，会发生1004错误，并且我有以下错误处理程序：
Select Case Err
Case 1004 'Workbook doesn't exist, make it
xl.Workbooks.Add
Set wb
浏览 1提问于2012-08-10得票数 1
回答已采纳
2回答
我想拿出模型集合的文档id '1004‘。我该怎么做呢？我只知道收藏和文件编号'1004‘。
错误代码：
DocumentSnapshot _model = await carCollectionRef
.doc()
.collection(USER_CAR_COLLECTION)
.doc()
.collection(MODEL_COLLECTION)
.doc('1004')
.get();
浏览 3提问于2021-03-18得票数 0
回答已采纳
我正在编写一个VBA宏来计算sheet2文件中的行数。
Dim cnt As Integer
Dim i As Integer
cnt = Range("Sheet2").Rows.Count ' giving error at this row
For i = 2 To cnt
t1 = "A" + CStr(i)
t2 = "B" + CStr(i)
Next i
但它带来了错误：
方法对象'_global‘的’范围‘失败
浏览 3提问于2012-05-09得票数 1
我刚刚开始了一项新工作，正在尝试使用excel中的VBA在多维数组中存储值。
因此，我首先希望在列中搜索值，当它们出现时，我希望将它们存储一次，并分配一个产品编号，每当它在该列中遇到新的唯一字符串值时，该编号将递增。然后只需将数字打印到单元格，并仅在其递增时更改它。
值将是Strings (产品样式)。产品编号将是一个数字。(Int)
是否可以在VBA for excel中执行此操作。我在网上读到，你不能在同一数组中使用不同的数据类型。
抱歉，VBA的新手，任何帮助都将是伟大的。如果我想在excel中使用普通函数，请让我知道。
浏览 0提问于2020-07-03得票数 0
我有一个电子表格，上面有许多单独命名和编号的文本框。有两种文本框，大的和小的。我已经将所有大的命名为"Elevator 1“，直到12个。我将小的命名为"Riser 1”，直到20。我还将复选框链接到每个文本框，使相应的文本框在取消选中时消失。我正在尝试为每种类型的文本框设置一个计数器，用于计算电子表格中可见的文本框的数量。下面的代码给我一个错误，“运行时错误'1004‘应用程序定义的错误或对象定义的错误”。我已经将计数器出现的单元格命名为"NumberOfRisers“，我的工作表命名为"LobbyCars”。
Sub NumberOfRise
浏览 7提问于2018-07-25得票数 0
回答已采纳
目前，我想知道是否可以删除一行vba，而不会出现错误1004。我不希望用户必须进入设置和信任访问vba项目对象模型。这个是可能的吗？当前代码(如果不信任未选中，则会发生错误)：ActiveWorkbook.Application.VBE.ActiveVBProject.VBComponents("Sheet1").CodeModule.DeleteLines 170, 1
浏览 5提问于2017-04-18得票数 0
回答已采纳
是否有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
回答已采纳
当我将数据从Sheet1复制到Sheet2时
“运行时错误'1004'：应用程序定义或对象定义错误”
我使用以下vba代码：
Sheets("Sheet1").Range("D2:E14").Copy Destination:=Sheets("Sheet2").Cells(10, 2)
我没发现有什么不对劲的地方。为什么vba在此抛出错误？
浏览 2提问于2020-01-20得票数 0
回答已采纳
我是这个组和VBA的新手。
我有一个工作表'T2'，它的行数是可变的。从第3行开始，我想查找在“E”列中找到的项目编号，并搜索工作表“Support”。项目编号可以在“支持”的“A”列中的某处找到。我需要将列'B‘中的值带到Support (与该项目编号相关)中，并将其存储在工作表'T2’的列'A‘中。然后，我想对'T2‘中的每一行重复这个过程，直到最后一行。
有没有人可以帮我，因为我根本就不能让它工作。
谢谢
浏览 0提问于2015-03-01得票数 0
1回答
因此，我将结束删除，更新或插入依赖于某些情况的元组，但我无法使它工作。
首先，通过检查以下内容，了解是否有任何员工在项目编号上具有特定的ESSN：
count =cursor2.Execute(“从Works_On选择不同的ESSN =？和Pno = ?"，(SSN，ProjectNumber)).rowcount
如果选择没有找到任何结果，或者不确定它的found.In是多少元组，那么它应该返回-1，如果它返回0。
然而，当我做这些if -声明时：
if((ChangeToHours==0) and (count != -1)):
print "0"
浏览 1提问于2013-08-06得票数 0
回答已采纳
1回答
我正在尝试实现将周数字转换为月份名称的VBA代码。
我有一张工作表，其中"A“栏包含从1到52的周编号。第1周从列A3开始。我想要打印周编号对应的月份名称。
我试过这样的公式
=MONTH(DATE(YEAR(NOW()),1,1)+(B1*7))
我尝试公式fisrt的原因是为了得到这个想法，然后将公式转换为VBA。
我只是在我的单元格中打印公式。有人能帮我吗？
浏览 3提问于2017-08-10得票数 0
回答已采纳
在执行以下公式时，我一直收到Excel VBA错误"1004“。
..in VBA代码
For i = 5 To lastrow
ws2.Cells(i, lastcolumn + 1).Formula = "=DATEVALUE(INDIRECT(LEFT($F$1,1)" & i & "))+TIMEVALUE(INDIRECT(LEFT($H$1,1)" & i & "))"
ws2.Cells(i, lastcolumn + 1).NumberFormat = "d
浏览 1提问于2017-08-22得票数 1
1回答
范围删除方法失败
、、
我在excel vba中有一个‘数据库’，但是当我尝试从源代码中删除一行时，按ID号选择并按delete键，它会卡在Rows(Y).Delete Shift:=xlUp上，我不知道为什么，它以前工作过，但不知怎么我弄坏了什么？
所有数据都显示在列表框中。错误消息是Run-Time error '1004': Delete method of Range failed
Dim X As Long
Dim Y As Long
X = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For Y = 2 T
浏览 1提问于2020-10-23得票数 0
回答已采纳
提前感谢您的帮助。这涉及到一些VBA代码和三个MS访问表。
1) SR.技术干事(tblSTO)，
2) tblProjects：
3) tblDeliverables。
在其他字段中，STO表具有自动编号STO_ID (主索引)和STO_Name (文本)。
tblProject表有ProjectNo (text)和STO_ID，这两个组合是唯一的，并且使主键成为主键。
tblDeliverables表包含ProjectNo、STO_ID、ServiceName (文本)。这三种组合都是独一无二的，成为主键。
我有一个qryDeliverable查询，它包括所有三个表和每个表中的所有字段。我
浏览 1提问于2019-12-04得票数 0
2回答
我有一个工作簿，其中包含来自所有分支机构的所有发票的列表，我们称之为"Everything"，基本上我需要搜索是否在包含每个分支机构的发票的另一个文件中找到这些发票。它实际上在每个分支的文件中，每个文件都是按月划分的工作表，我需要签入每个工作表，然后在单元格中插入一个值。让我们将其命名为"0001“，对每个分支依此类推。
"everything“文件基本上包含一列，其中一列包含分行编号，一列包含发票编号，一列包含发行商代码，另一列说明是否在分支机构文件中找到它。分支文件包含除了分支编号之外的相同内容，最后一列表示发票是否在“一切”文件中。有些情况下，发票在分支文
浏览 0提问于2015-08-21得票数 0
我正在使用excel的数据库功能。见示例图像
我使用vba来选择有“是”的记录，比如A
Selection.AutoFilter Field:=2, Criteria1:="yes"
Range("B3").Select
Range(Selection, Selection.End(xlDown)).Select
然后我复制它粘贴到其他地方。例如：
Selection.Copy
Range("B12").Select
ActiveSheet.Paste
问题是，当没有“是”的记录时，我得到了错误1004。可能是因为没什么好粘贴的。我如何
浏览 1提问于2013-08-16得票数 1
回答已采纳
我有以下简单的VBA例程将CTRL+Shift+V绑定，以便在Excel中按值复制和粘贴
Sub PasteValue()
Selection.PasteSpecial _
Paste:=xlPasteValues _
, operation:=xlNone _
, SkipBlanks:=False _
, Transpose:=False
End Sub
当我试图粘贴来自剪切的值，而不是复制时，我收到以下错误，
错误1004，类范围的PasteSpecial方法失败“
我如何修改上述程序，以工作时，切割以及复
浏览 3提问于2014-12-10得票数 2
我正在尝试将excel文件(office 2010)导入到microsoft project中。当我手动执行此操作时，它工作得很好(以确认excel文件未损坏)。然而，当我在MS Project中使用宏(在启动MPP文件时)导入它时，我得到一个错误“运行时错误'1004‘。下面是我试图从MSProject执行的代码。
Private Sub Project_Open(ByVal pj As Project)
Dim strFilepath As String
'strFilepath = "C:\Temp\ExcelSrc.xlsx"
浏览 1提问于2013-07-08得票数 0
回答已采纳
2回答
VBA新手在这里，我已经寻找了2天，以找到一个脚本，我可以修改我的需要，但一直卡住或不能使任何工作，为我的特定情况。
我正在尝试编写一个简单但具体的宏来查找范围中的重复项并对其进行着色。
我的搜索条件在范围内(B5:B405)，要扫描和着色的数据位于范围内(D5:OM1004)
数据只是数字，需要与搜索条件完全匹配，如果发现数据中的单元格存在于搜索条件中，则数据单元格填充为红色。
我还需要在数据行1004处停止脚本，并在末尾显示一条总执行时间的消息。
我可以用条件格式在几秒钟内完成这一点，但我需要计算之后的彩色单元格，并且我找不到任何VBA宏可以让我计算条件格式的颜色，即使是在cpearson
浏览 1提问于2013-12-08得票数 0
回答已采纳
我需要在活动工作表中剪切并粘贴非空值的行数组。"E5“是我要剪切的行数组中的第一个非空单元格。这个数组只是从1:10开始的数列，没有空隙。想要的行为是在"F5“中剪掉序列和过去。唯一复杂的是，我需要复制的范围不是固定的。
试过：
Sub Update()
ActiveSheet.Range("E5", Range("5:5").End(xlToRight).Address).Copy
ActiveSheet.Range("F5").Select
ActiveSheet.Pas
浏览 2提问于2013-12-07得票数 1
回答已采纳
如果在Excel中的一行中给出了一个值的范围。该特定区域的每个单元格都可能有类型编号的内容，也可能是空白的。Excel中是否有函数/函数组合(非VBA)将打印该类型数字单元格的相应标题(带有逗号)。
此外，如果单元格不包含类型编号的内容，则不要打印相应的标题并移到下一个单元格。如果它是范围中的最后一个值，那么也不要在末尾打印逗号。我更希望它在一个单元格中这样做，该单元格可以查看一个单元格的范围，然后确定要打印哪个标头和忽略哪个标头。
我正在使用Excel 2013
我想在没有VBA的情况下这样做。下面是一个例子：
浏览 7提问于2017-08-18得票数 1
回答已采纳
1回答
我的雇主使用SAP生成采购订单编号。PO编号显示在弹出窗口中。我需要使用VBA脚本复制PO编号(或整个文本)，以便将其粘贴到Excel中。
我曾尝试使用脚本记录工具获取命令(它不记录要选择和复制的鼠标单击，也不记录键盘命令)，但它不允许我打印到One Note或Microsoft XPS Document Writer。
任何建议都将不胜感激。弹出窗口的图像如下：
浏览 1提问于2017-05-10得票数 0
1回答
我正在为从excel打印的一系列标签设置增量打印。每页有四个标签编号，具有重复值(每页共8个标签)。我附上了一个屏幕截图的文件。https://i.stack.imgur.com/jfSoz.png。第一个标签编号26000将在脚本中引用，其余的将通过公式更新以在该编号上加上+1。我希望每次打印任何给定数量的工作表时都要重新填充第一个数字。我已经将下面的脚本组合在一起，但每次打印时都不会显示正确的数字。它不是在顶部继续下一个系列，26005，而是显示5。如有任何帮助或建议，我们将不胜感激。 子PrintNext5() Dim xCount As Variant
Dim xScreen As
浏览 22提问于2021-04-21得票数 0
回答已采纳
我收到关于VBA “运行时错误'1004'：对象'_Application‘失败的方法'OnKey’”的报告，至少在Excel2016中，在此代码中是这样的：
Private Sub Workbook_Deactivate()
Application.OnKey "^x"
End Sub
(当启用VBA的工作簿处于活动状态时，代码会重写某些热键，并在用户切换回其他工作簿时恢复默认行为。)
可能是什么原因？
浏览 7提问于2020-07-13得票数 1
回答已采纳
我有一个名为“调查”的表格，其中包含评级编号。我想根据一定的条件对这些数字进行分组。为此，我创建了另一个名为SupportTable的表。根据这个表中的最小和最大值，我想对评分进行分组。为此，我尝试了下面的代码，但没有得到想要的结果。我想得到测量的结果(每个组的数字)。我在这里做错了什么？
反馈总数= COUNTROWs(调查)#在每个组的调查表编号中不计数行数=计算(反馈总数、过滤器(值(SurveyRating)、COUNTROWs(过滤器(‘SupportTable’，SurveyRating>=‘SupportTable’‘Min& SurveyRating<’Su
浏览 1提问于2021-01-06得票数 0
我是VBA的初学者，很难理解我下面的陈述有什么问题。为了给出我要做的事情的上下文，我有一个源表(oldViewsWbk)，它的单元格我想要复制到我的最终工作簿(finalViewsWbk)中，然后对这些复制的单元格执行一些逻辑操作。
ActiveSheet.Range(Cells(2, 2), Cells(246, 2)).Value = oldViewsWbk.Sheets(1).Range(Cells(2, 2), Cells(246, 2)).Value
我的ActiveSheet是我最后的工作簿。现在，我已经对行和列编号进行了硬编码，但是一旦我完成这项工作，它们将被变量替换。
我知道我
浏览 5提问于2015-04-13得票数 0
回答已采纳
由于运行时错误“1004”：应用程序定义或对象定义错误，我很难让下面的代码发挥作用。
通常，当我遇到这个错误是由于工作表保护，我已经确保表是不受保护的，因此在子线的开始。
我将把这里的场景和最终目标花在这里：
Sheet1 = Live Contracts
此工作表包含6列和动态行数的表。第1栏包含合同参考编号。第2-6列与此无关。
单4=合同和
此表包含所有合同、相应的部门和合同的价值。
目标
创建一个可以通过userform按钮调用的模块。
模块需要查看sheet1的A列，每个单元格-if都有一个值--在G列中创建一个vlookup，参数如下。
Lookup Value = Cell.of
浏览 1提问于2018-05-23得票数 0
回答已采纳
假设我们有一个SQL DELETE FROM sys_user WHERE id = '1001'，如果execute with MySQl得到了如下内容：
Query OK, 1 row affected...
并删除了id为1001的记录，我如何才能在不真正执行的情况下获得受影响的SQL的编号？对于前一个SQL，不删除记录并获取1 row affected。
浏览 1提问于2020-04-07得票数 0
为了记录成功导入的行，我查看了ImpExImportCronJobModel.valueCount
当作业成功时，它会记录一个正数。这样就可以了。
当作业失败时，它会在本地打印0，但在其他环境中，它会记录一个负数。
我正在尝试找出环境之间的不一致。
与此同时，人们对此有何期待？
ImpExImportCronJobModel.valueCount -这可以是负数吗？如果是，这是什么意思？
浏览 6提问于2020-03-23得票数 0
我只是开始熟悉VBA和我的代码
xxLastrow = xLastRow+1
For x = 11 To xLastRow
For y = 12 To xxLastrow
If ActiveSheet.Cells(x, 2).Value = Cells(y, 2).Value Then
For z = 4 To xLastColumn
If ActiveSheet.Cells(y, z).Value <> "" Then '(possible If Not IsEmpty(Cells(y, z).Value))
ActiveSheet.Cells(y, z
浏览 2提问于2014-03-05得票数 0
回答已采纳
2回答
我对VBA有点陌生，并且很难理解其中的一些语法。
例如，我有一个从a3:c13到vlookup的范围，我希望将它设置为一个变量，以便以后可以将它作为表数组传递给vlookup。但是，范围是根据用户输入的大小来定义的。它总是以A3开头，它总是包括列A:C，但是我不知道它会往下走多远。在这种情况下，我想我会把它设定为：
With range("a3")
table_array = range(.cells(0,0), .End(xlDown).End(xlToRight)).Select
End With
然而，这似乎不起作用。我得到一个运行时错误：
Run-time Er
浏览 0提问于2013-10-29得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
