首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

为什么range(..).End()在非活动工作表中不起作用?

range(..).End()是Excel VBA中的一个方法,用于确定一个区域的结束位置。然而,它在非活动工作表中可能不起作用的原因是因为该方法只能在活动工作表上使用。

活动工作表是指当前用户正在查看和操作的工作表。当用户切换到其他工作表时,该工作表将成为非活动工作表。在非活动工作表上使用range(..).End()方法将导致错误或不可预测的结果。

为了解决这个问题,可以使用以下方法之一:

  1. 在使用range(..).End()方法之前,先将非活动工作表切换为活动工作表。可以使用Activate方法将工作表设置为活动工作表,然后再使用range(..).End()方法。
  2. 直接引用非活动工作表的范围,而不使用range(..).End()方法。可以使用Cells属性来引用整个工作表的范围,例如:Worksheets("Sheet1").Cells。

需要注意的是,以上方法只适用于Excel VBA编程环境。如果在其他编程环境中使用range(..).End()方法,可能会有不同的行为和限制。

腾讯云相关产品和产品介绍链接地址:

  • 腾讯云云服务器(CVM):https://cloud.tencent.com/product/cvm
  • 腾讯云云数据库 MySQL 版:https://cloud.tencent.com/product/cdb_mysql
  • 腾讯云对象存储(COS):https://cloud.tencent.com/product/cos
  • 腾讯云人工智能:https://cloud.tencent.com/product/ai
  • 腾讯云物联网通信(IoT Hub):https://cloud.tencent.com/product/iothub
  • 腾讯云移动推送(TPNS):https://cloud.tencent.com/product/tpns
页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

VBA自动筛选完全指南(下)

Set wks = Worksheets.Add rng.Copy Range("A1") End Sub 上面的代码检查工作Sheet1是否有筛选。...如果有筛选行,则复制筛选的数据,插入新工作,然后粘贴这些数据到新插入的工作。...受保护的工作中使用自动筛选 默认情况下,当工作受保护时,不能应用筛选。然而,如果已经设置了筛选,则可以启用自动筛选,以确保即使受保护的工作上也可以使用。...要执行此操作,选中“保护工作时使用自动筛选”选项,如下图4所示。 图4 虽然这在已设置了筛选时有效,但如果尝试使用VBA代码添加自动筛选,它将不起作用。...With End Sub 注意,这段代码放置ThisWorkbook代码模块,因此当工作簿打开时就会自动执行。

3.6K30

Excel VBA编程

隐藏活动工作外的所有工作 批量新建指定名称的工作 批量对数据进行分离,并保存到不同的工作 将多张工作的数据合并到一张工作工作簿的每张工作都保存为单独的工作簿文件 将多个工作簿的数据合并到同一张工作...ActiveChart 当前活动工作簿活动图表 Activesheet 当前活动工作簿活动工作 ActiveWindow 当前活动窗口 ActiveWorkbook 当前活动工作簿 Charts...当前活动工作簿的所有的图表工作 selection 当前活动工作簿中所有选中的对象 sheets 当前活动工作簿的所有sheet对象,包括普通工作,图表工作,Excel4.0宏工作和5.0...保存工作簿之前发生 Deavtivate 工作簿状态作为活动状态时发生 NewChart 工作簿新建一个图表时发生 Newsheet 工作簿新建一个工作时发生 open 打开工作簿时发生...重新计算工作之后发生 SheetChange 当更改了任意工作的单元格之后发生 sheetDeactivate 当任意工作转为活动状态时发生 sheetFollowHyperLink 当单击工作簿的任意超链接时发生

45.3K22

Excel事件(二)工作事件

所以首先要明确需要编写的代码工作。左侧工程资源管理窗口中双击选中的工作。右侧会出现对应工作的代码窗口。 依次左上角列表中选择worksheet对象,再从右上列表中选择对应的工作事件。...还是要再提醒由于一个工作簿通常有多个工作,一定要在选中的工作编写事件代码。比如在“sheet1”编写了事件代码,“sheet2”操作是不会触发该事件的。...(这点后面不再强调) 选中的工作的代码窗口中,选择worksheet对象change事件,后代码窗口会自动生成事件的过程如下图: 过程代码ByVal Target As Range是过程的参数,...(代码为什么要先禁止事件再开启事件呢?假设不禁止事件。...与activate事件想对应的还有deactivate事件,即工作活动状态变为不活动状态时触发的事件。

3.5K10

Excel事件(三)工作簿事件

一、工作簿事件基础 当发生工作簿更改,工作簿的任何工作更改,加载宏更改或数据透视更改时,都可能引发对应的工作簿事件,合理地使用各个事件可以避免一些意料不到的错误,提高代码的可读性和执行效率。...(不过对系统设置进行修改的代码不应写在open事件,而建议写在activate事件执行顺序activate事件open事件之后发生,而且open时候是有可能不被执行的。...3、deactivate事件 deactivate事件activate事件正相反,是当工作簿从活动状态转为活动状态时触发的事件。包括以下两种情况:一、工作簿从活动状态转为活动状态。...Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MsgBox "当前更改的工作为" & Sh.Name...& vbCrLf & _ "当前更改的单元格为" & Target.Address End Sub 首先sheetchange事件的结构代码, ByVal Target As Range之前的事件介绍过

2.1K40

VBA实战技巧13: 同步多工作指定区域的数据

很多情形下,我们希望同时几个工作输入同样的数据。我们知道,将工作组合能够方便地实现数据的同时输入。然而,如果忘记解除工作组合,则可能误输入不想在所有工作中都输入的数据。...Not Intersect(Range("SameData"), Target) Is Nothing Then '用于输入数据的活动工作必须放置第一个位置 Sheets(...注意,Array函数,第一个工作应该是用于输入数据的活动工作。 代码的运行效果如下图1所示。 ?...图1 可以看到,工作Sheet2的单元格区域B2:E7输入的数据将同步输入到工作Sheet1和Sheet3相应的单元格区域,而在此区域以外输入的数据则只存在于工作Sheet2。...").Range("D5") End With End IfEnd Sub

1.6K30

VBA专题10-3:使用VBA操控Excel界面之设置工作(续)

本文继续讲解操控工作中一些界面元素的VBA代码。 工作的行列 隐藏和取消隐藏行标题 不能够分别单独隐藏行标题和列标题,只能同时隐藏或者显示这两个标题。...= True 隐藏和取消隐藏工作行 可以使用下列任一VBA语句隐藏活动工作的所有行: '隐藏工作簿的活动工作中所有行 ActiveSheet.Rows.Hidden= True ActiveSheet.Rows.EntireRow.Hidden...隐藏所有行后,行标题几乎被隐藏,但列标题仍然工作。...隐藏和取消隐藏工作表列 可以使用下列任一VBA语句隐藏活动工作的所有列: '隐藏工作簿的活动工作中所有列 ActiveSheet.Columns.Hidden= True ActiveSheet.Columns.EntireColumn.Hidden...隐藏所有列后,列标题几乎被隐藏,但行标题仍然工作

1.7K20

一起学Excel专业开发18:Excel工时报表与分析系统开发(2)——创建特定应用加载宏(续)

If End Sub PostTimeEntriesToNetwork过程,首先判断接口工作簿是否处于活动状态,这样可以防止用户单击工具栏的按钮时,接口工作簿不是当前工作簿而导致的运行时错误。...If End Function 确认工作簿激活后,检查工时输入工作隐藏列的错误标识,确定工作是否存在输入错误。...如果存在输入错误,则向用户显示出错信息并退出过程,否则就为工作簿创建一个唯一的名称,然后注册查询合并区的路径。如果合并区的路径并未保存到注册,则会给出提示信息并要求用户指定其路径。...允许用户向“工时输入”工作添加更多的数据输入行 图1所示的自定义工具栏的第二个按钮可用来增加数据输入区的行数,代码如下: '允许用户工时输入数据区底部插入空的数据输入行 Public Sub...注意,插入新行之前先删除工作滚动区域设置,插入新行后再重新添加滚动区域设置。如果不这么操作,那么插入新行时工作滚动区无法进行正确调整。

1.3K20

Excel VBA解读(146): 使用隐式交集处理整列

同样,如果将单元格区域A1:A15命名为myCells,那么单元格B13输入: =myCells 并不会返回A1:A15的全部值,而是返回myCells与第13行的交叉单元格A13的值m。...但是,如果在工作前15行之外输入 =myCells 例如,第18行输入该公式,由于没有交叉区域,则会返回错误值#Value,如下图2所示。 ?...例如,公式: =VLOOKUP(A4,$A:$C,3,false) 列A至列C组成的区域中精确查找单元格A4的内容,并返回列C相应的值。...VBA用户自定义函数(UDF)运用隐式交集技术 有2种方式可以让隐式交集技术UDF自动工作: 1.函数参数前面放置+号 2.使用VBA来处理隐式交集 例如,下面的简单UDF: Function...图7 如果使用在参数前添加+号的技巧,那么UDF参数必须是与数据类型匹配的Variant、Double、String或Boolean类型,而Range和Object不起作用,因为Excel总是传递结果值而不是引用

4.8K30

Excel宏教程 (宏的介绍与基本使用)

工作索引号表明该工作工作标签的位置:第一个(最左边的)工作的索引号为1,最后一个(最右边 的)为Worksheets.Count。...需要注意的是:使用过程excel会自动重排工作索引号,保持按照其工作标签的从左至右排列,工作的索引号递增。因此,由于可能进行的工作添加或删除,工作索引号不一定始终保持不变。...Charts代表指定工作簿或活动工作簿中所有图表工作的集合,但不包括嵌入式工作或对话框编辑的图表。...ActiveCell代表活动工作活动单元格,或指定工作活动单元格。...5、 行与列:Rows、Columns、Row、Column Rows、Columns分别代表活动工作、单元格区域范围Range、指定工作的所有行数、列数。

6.4K10

EXCEL VBA语句集300

‘保存工作簿 (11) ThisWorkbook.close ‘关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count ‘获取活动工作工作数 (13) ActiveWorkbook.name...ActiveSheet.PageSetup.LeftFooter=Application.UserName ‘将用户名放置活动工作的页脚  单元格/单元格区域 (32) ActiveCell.CurrentRegion.Select...或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select ’选择当前活动单元格所包含的范围,上下左右无空行 (33) Cells.Select...‘选定当前工作的所有单元格 (34) Range(“A1”).ClearContents ‘清除活动工作上单元格A1的内容 Selection.ClearContents ‘清除选定区域内容...Rng.Column ‘获取单元格区域Rng左上角单元格所在列编号 (57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) ‘活动工作返回所有符合条件格式设置的区域

1.8K40

VBA实用小程序:将Excel的内容输入到Word

因此,下面的这段代码很简单,对其进行设置,只需为Excel的文本、区域和图表命名,并按照代码的说明Word书签创建匹配的名称。 注意,我不能保证它在所有情况下都能工作。...完整的代码: '这里的代码使用书签将图表和复制到Word文档 'Word文档必须打开并处于活动状态,即当前可见的Word文档 '要复制一个,给它一个以tbl开头的区域名称 '然后Word文档插入一个使用该名称的书签...&Err.Message Exit Sub End If On Error GoTo 0 '处理和图表 'Word查找所有相关标签并处理它们...If On Error GoTo 0 End Sub '粘贴 '标签必须作为Excel的区域存在才能使其工作 Private Sub PasteTableToWord(B As Object...Error GoTo 0 End Sub '复制图表 '图表名称必须与 Word 标签相同才能工作 '图表必须在当前工作 'Method可以是下面Select Case子句中列出的任何值 Private

2K20

超详细Python处理Excel表格

目录 一个Excel电子表格文档称为一个工作簿- 一个工作簿保存在一个扩展名为.xlsx的文件- 一个工作簿可以包含多个- 用户当前查看的(或关闭Excel前最后查看的)称为「活动」- 特定行和列的方格称为...print('当前活动是:' + str(sheet)) sheet.move_range('D11:F12',rows=0,cols=-3) # 移动D11到F12构成的矩形格子 workbook.save...=结束行号,end_column=结束列号) sheet 创建新的sheet(create_sheet) create_sheet(“新的sheet名”):创建一个新的sheet import os...sheet(copy_worksheet) “操作”>“修改单元格、excel另存为”中提到了另存为,其实复制sheet就是一个另存为的过程,你要是12行代码保存的时候使用第7行的文件名,那么复制的...('A1', headings) # 使用write方法,【2018年销售量】工作插入一条数据; # write语法格式:worksheet.write(行,列,数据) data = ["苹果"

3.1K40

VBA实用小程序75:选择所有的合并单元格

学习Excel技术,关注微信公众号: excelperfect 使用VBA操作单元格时,合并的单元格可能会导致问题,甚至工作中进行一些操作时,合并的单元格也可能会导致错误。...下面的代码可以选择工作的合并单元格。...Sub SelectAllMergedCells() Dim c As Range Dim mergedCells As Range Dim fullRange As Range..." End If '遍历当前工作所选区域中每个单元格 For Each c In fullRange If c.MergeCells = True Then...End If End Sub 如果在工作仅选择了一个单元格,则查找并选择工作中所有已用单元格的合并单元格;如果在工作中选择了多个单元格,则在所选单元格区域中查找并选择合并单元格。

1.1K40

常见的复制粘贴,VBA是怎么做的

预备 下面的所有示例都假设示例工作簿处于活动状态,并且整个操作都发生在活动工作簿上。此外,它们被设计为从特定的源工作复制到该示例工作簿的另一个目标工作。...更准确地说,它假定复制和粘贴操作发生在活动工作簿。....xlsm是活动工作簿。...因此,无论哪个Excel工作簿处于活动状态,引用都能正常工作。 Excel功能区的复制命令 使用VBA代码复制单元格区域之前,看看Excel功能区的“复制”按钮命令。...下面的简单过程示例1的基础上添加了Destination参数,将工作“Sample Data”的单元格区域B5:M107复制到工作“Example 2 - Destination”的列B至列

11.6K20

VBA专题10-20:使用VBA操控Excel界面之隐藏和取消隐藏控件、组和选项卡

Sub HideAlignmentGroup过程,如果活动工作是标准工作,那么returnedVal参数设置为True,结果是“文本对齐”组可见。...如果活动工作不是标准工作,就隐藏该组,否则该组可见。 注意,当打开工作簿时,创建ribbon对象。编辑VBA代码可能销毁这个新创建的对象。..., ByRef returnedVal) returnedVal = TypeName(ActiveSheet) ="Worksheet" End Sub 当调用HideHomeTab过程时,如果活动工作不是标准工作...Excel 2007,Invalidate方法使功能区中所有的控件无效。随后,调用HideHomeTab过程。如果活动工作不是标准工作,就隐藏“开始”选项卡,否则该选项卡可见。...下面展示了一个示例,当活动工作不是标准工作时隐藏自定义选项卡。 示例XML代码: ?

7.9K20

Excel 宏编程的常用代码

给指定单元格赋值 例如:A1单元格内容设为”HELLO” Range(“a1″).value=”hello” 又如:你现在的工作簿sheet1上,你要往sheet2的A1单元格插入”HELLO” 1...Sheets(“sheet1”).Range(“a1”).Value = “hello” 说明: 1.sheet2被选中,然后将“HELLO”赋到A1单元格。...隐藏工作 ‘隐藏SHEET1这张工作   sheets(“sheet1”).Visible=False ‘显示SHEET1这张工作   sheets(“sheet1”).Visible=True...ActiveSheet.Protect 取消保护工作簿 ActiveSheet.Unprotect 给活动工作改名为 “liu” ActiveSheet.Name = “liu” 打开一个应用程序...AppActivate (Shell(“C:/WINDOWS/CALC.EXE”)) 增加一个工作 Worksheets.Add 删除活动工作 activesheet.delete 打开一个工作簿文件

2.6K10
领券