在工作表的模块内，对象“”_Global“”的方法“”Intersect“”失败--无法识别ActiveSheet
在工作表的模块内，对象"_Global"的方法"Intersect"失败--无法识别ActiveSheet。
这个错误是由于在VBA代码中使用了"_Global"对象的"Intersect"方法，但是无法识别"ActiveSheet"。"ActiveSheet"是一个表示当前活动工作表的对象，它只能在工作表模块内使用。
要解决这个问题，可以尝试以下几个步骤：
- 确保代码在工作表模块内部：在VBA编辑器中，双击出现错误的代码行，确保它在工作表模块内部而不是标准模块或用户窗体模块中。
- 确保正确引用工作表对象：如果代码中引用了其他工作表对象，确保使用正确的工作表对象名称。例如，如果代码中使用了"Sheet1"而不是"ActiveSheet"，则需要确保"Sheet1"是正确的工作表对象名称。
- 确保工作表处于活动状态：在代码执行之前，确保所需的工作表是活动工作表。可以使用"Activate"方法或"Select"方法来激活或选择工作表。
- 检查代码语法和拼写错误：仔细检查代码中的语法和拼写错误，确保所有的关键字、对象和方法都正确拼写和使用。
如果以上步骤都没有解决问题，可能需要进一步检查代码逻辑和上下文，以确定是否存在其他问题导致该错误。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：提供弹性计算能力，满足不同规模业务的需求。详情请参考：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库MySQL版：提供高性能、可扩展的MySQL数据库服务。详情请参考：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云云函数（SCF）：无服务器函数计算服务，帮助开发者更轻松地构建和运行云端应用程序。详情请参考：https://cloud.tencent.com/product/scf
相关·内容
我现在用一个自制的电子表格来记录我的一天。每次我插入一个新的活动，它应该计算我花在最后一个活动上的时间。当我每天创建一个新的电子表格时，它工作得很好，但是现在我正在考虑将电子表格合并到一个每月的文件中。
我在同一个电子表格上有一个宏按钮，用于刷新总结我的任务的透视表。不幸的是，一旦我复制了工作表并尝试刷新数据透视表，它就会给我一
浏览 3提问于2017-01-18得票数 1
我想加快数据录入的速度。我在网上找到了可以工作的代码，直到我把相同的代码应用到更多的几张纸上。现在我得到了
Dim WorkRng As RangeDim xOffsetColu
浏览 0提问于2018-09-26得票数 0
因此，我有一个动态创建的工作表(通过单击单独工作表上的命令按钮生成)，并且我试图只在工作表中的特定范围内触发一个Worksheet_Change事件。我的代码如下： Dim sh As Worksheet
Set sh = ThisWorkbook.Act
浏览 3提问于2022-11-02得票数 1
回答已采纳
我正在尝试创建一个当第13列中的任何单元格发生更改时运行的子例程。我已经阅读了许多堆栈溢出问题，但没有找到我的答案。以下是我读过的一些内容：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal TargetAs Range)
If Not Intersect (Target, Activesheet.Columns(13)) Is Noth
浏览 0提问于2016-04-21得票数 0
1回答
我在Excel上创建一个用户表单，根据从1到4的数据验证列表来隐藏和取消隐藏整个行。(单元格M5中的数据验证)我非常感谢你的帮助。
谢谢你们所有人。一个
浏览 2提问于2015-07-16得票数 1
回答已采纳
单元格("A1")显示相邻单元格("B1")的值，该单元格是(Active X) ComboBox11的链接单元。(已在工作)
我意识到，可以将"A1“设置为链接单元，但在工作流布局中，这是不可取的。
浏览 4提问于2021-12-10得票数 0
回答已采纳
我刚刚在Excel中编写了这个简单的宏，用于合并一组选定的单元格：Dim Temp As StringFor，警告我在合并时丢失数据(这正是我在宏中试图避免的)。因此，由于Application是默认对象，所以我试图清理代码，如下所示：Selection.MergeDisplayA
浏览 7提问于2022-02-03得票数 3
回答已采纳
我对excel有一个问题，一个生成引用no的表单。但当我试图生成引用号时。它有一条错误消息，上面说：
它突出显示代码第4行中的错误。
浏览 0提问于2012-08-29得票数 12
1回答
我试图循环遍历表的标题行，以填充UserForm的ComboBox下拉列表。如果intersect为真，则将当前cell.value添加到ComboBox列表中。我还试图将标题行存储到数组中，但我还无法</
浏览 0提问于2020-11-09得票数 2
回答已采纳
我目前正在做一个迷宫游戏在MS Excel中，我已经设置了我的按钮‘向上’，‘向下’，‘左’，‘右’，并给它一个偏移命令(位于模块中)，我正在考虑禁用特定的按钮时，单元格的墙角(不能去左或右等)。= 1 Then b1.b4.Enabled = False
浏览 1提问于2018-10-12得票数 0
我有单元格A2通过A20，希望在该范围内的单元格值发生变化时生成一个新的工作表。我让这段代码正常工作(一个单元格)，直到用户请求范围为止。Worksheet_Change(ByVal Target As Range)Dim ws As Worksheet
Dim lastrow As
浏览 2提问于2016-12-29得票数 1
回答已采纳
1回答
如何排除跨工作表的范围？我得到的方法‘相交’的对象'_Global‘失败。ListColumns("Column").DataBodyRange For Each rRange In rExclude(idx)
If Not Intersect
浏览 3提问于2021-02-12得票数 1
回答已采纳
3回答
我可以单独使用以下两种潜艇，它们工作得很好，但我不知道如何在同一张纸上一起使用它们。当我这样做的时候，无论我如何重新安排，我都会不断地出错。第一分节：ActiveSheet.Unprotect Password:="incoming"Dim WorkRng As RangeDim xOffsetColumn As Integer
Set WorkRng = Intersec
浏览 2提问于2021-11-02得票数 1
回答已采纳
如果我不在脚本应该运行的页面上，我会收到一个运行时错误1004，我想知道原因是什么…… .AutoFilter 1, "<>Different" End With
With Intersect(wsPOD.UsedRange, Acti
浏览 1提问于2012-05-18得票数 3
回答已采纳
2回答
我正在使用Excel2010，我希望在更改单元格(Range("B7"))的值( Range("B7")是下拉列表)时，自动更新(计算) Excel表。我试图使用intersect方法，例如： If Not Intersect(target,Range("B7")) Is Nothing Then
Ac
浏览 6提问于2016-02-02得票数 0
回答已采纳
我有一个模块正在创建一个工作表。它用一系列表构建一个工作表。给定's‘是否是我们刚刚创建的当前工作表，是否有任何方法将以下代码注入到“s”的工作<em
浏览 2提问于2017-06-09得票数 0
回答已采纳
我试图在Excel2010中创建一个宏，当单击特定范围内的(而不是双击)单元格时，该宏将解除对工作表的保护。相反，如果我单击其他任何地方，我希望保护我的工作表。Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Targe
浏览 1提问于2017-11-30得票数 4
回答已采纳
4回答
我试图隐藏一个基于特定单元格值的命令按钮。我已经查找了几个代码，并将它们粘贴到excel中(在vba表单中，右键单击工作表并选择“查看代码”)。Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range("
浏览 8提问于2017-09-18得票数 1
我为一个跟踪器创建了一个activex按钮，我的任务是在工作中构建它，activex按钮工作得很好，但是当我将它发送出去时，仍然存在着无尽的兼容性和权限问题。决定将其改为启用宏的形状。而且--因为它不是activex，它不模拟按钮点击，我试图在其中编码，一切看起来都是正确的，但是当我点击它的时候不会出现抑郁。到目前为止我的情况是这样的。RectangleRoundedCorners1()
Dim vTopType As Variant
浏览 1提问于2017-02-02得票数 0
回答已采纳
Introduction
我似乎无法让ChartObjects.CopyPicture方法在Excel2007中工作。不管我怎么试，我都犯了个错误。使用此技术将在CopyPicture行上抛出“应用程序定义的或对象定义的错误”。“工作表类的PasteSpecial方法失败”在PasteSpecial行中。, Link:=False, DisplayAsIcon:=
浏览 5提问于2009-03-26得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
