是一个简单的技巧，但我不能让它工作(这段代码在目标工作表中运行)。Private Sub change_View(ByVal Target As Excel.Range)
If Target.Value
浏览 10提问于2017-03-07得票数 0
回答已采纳
通常，每一行代码都可以正常工作，但是如果我尝试删除E列中至少两行的值(甚至是空单元格) (select和delete)，则会得到 Is Nothing Then
Or Range(Target.Address(Target.Address).Value = "TEXT
浏览 2提问于2020-04-02得票数 0
回答已采纳
我不知道是什么原因导致了“运行时错误'13'：类型不匹配”。在$B$1中，我创建了一个下拉列表，根据选择的值，相应的宏将被调用来运行(这些宏都是用来隐藏某些列以管理自定义视图的)。代码正在工作，但不断抛出这个错误，我必须清除这个错误。我研究并尝试将Target.Value更改为Target.Text，但没有帮助？Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$B$1") And (Target.Va
浏览 54提问于2021-09-26得票数 0
回答已采纳
1回答
我创建了这个基本的worksheet_change函数来监视B列。如果B列中的单元格被删除，它也会更新C列中的删除。唯一的问题是，由于这是一个更改事件，当一次更改两个以上的单元格时，它会抛出类型不匹配错误。这是因为它将Target.Address(s)与"“进行比较，这是类型不匹配。KeyCells As Range
If Not Application.Intersect(KeyCells, Range(Targ
浏览 13提问于2017-03-14得票数 1
回答已采纳
我有一个工作表更改事件宏，它根据给定的单元格值隐藏某些行。我的宏工作得很好，除非您必须从宏中的行中包含的单元格中删除数据。这会弹出类型不匹配错误。是否有办法防止此错误发生？Worksheet_Change(ByVal Target As Range)
浏览 2提问于2021-06-18得票数 1
回答已采纳
1回答
我正在创建一个函数，如果一个单元格具有黄色颜色，如果我在该单元格中输入0，那么它会弹出一个消息框Red，然后将单元格颜色化。然后，如果我输入1，它会将颜色恢复为黄色。
浏览 3提问于2020-02-15得票数 0
1回答
当我今天早上打开它时，宏不再工作了，继续显示当前选定的值，但忘记了旧值。它有时起作用，有时不起作用。有人能告诉我我哪里出了问题吗？Or Target.Address = "$B$203" Or Target.Address = "$B$204" Or Target.Address = "$B$205" Or Target.AddressOr Target.Address = "$B$210" _
Or <em
浏览 8提问于2022-01-05得票数 0
回答已采纳
3回答
来自用户表单的所有数据汇总在工作表的B列中(所有用户表单字段都链接在其中)。当宏运行时，会进行一些计算，用户得到一些数字。
当用户更改用户表单中的某些内容时，我希望宏自动运行。
浏览 5提问于2013-11-28得票数 3
关于如何更改此选项以允许multiselect在密码保护的工作表上运行而不必输入密码？的想法吗？= "$H$29" Or Target.Address = "$H$33" Or Target.Address = "$H$37" Or Target.Address = "$H$42" Or Target.Address= "$H$58" Or Target.Address = "$
浏览 1提问于2019-11-01得票数 0
例如："n“、"N”或"new“-> "New”谢谢大家抽出时间来Range)
Dim CorrectedText As String
Orig
浏览 0提问于2018-06-21得票数 1
我正在使用下面的代码，但问题是当我保护工作簿时，选择多个项的功能丢失了。= "$G$5" Or Target.Address = "$G$6" Or Target.Address = "$G$7" Or Target.Address = "$G$8" Or Target.Address= "$G$9" Or Target.Address = "$G$10" Or <em
浏览 3提问于2021-06-03得票数 1
回答已采纳
Set A = Range("AB121") Is Nothing Then Call Macro1
Is Nothing Then Call Macro2
If Not
浏览 5提问于2017-12-26得票数 0
1回答
几年前，我写了一些代码，根据单个工作表的条件在多个工作表中隐藏行。代码运行得很好，但我想添加几个新的工作表，并且，在我编写的相同(混乱)代码之后，宏变得太大，我得到了一个编译错误(“过程太大”)。我确信有一种更好，更干净，更小的方法可以做到这一点，但我在代码方面仍然很生疏，还不能让其他任何东西工作。下面是我的单行代码示例。对于本工作表中的以下范围，该值将乘以~60倍: B12:B31、B36:B65、B70:B79、B84:B88。如有任何建议，我们将不胜感激！If Target.Address<
浏览 0提问于2018-03-09得票数 0
2回答
我有一个单独的行，当在多个工作表的指定字段中输入任何大于0的数字时，它就会打开。本质上，当所有目标地址的和大于0时，我希望此行不隐藏，但当和=0时隐藏。我使用的一个示例代码部分是： If Target.Value > 0 Then End IfIf Target.
浏览 0提问于2018-04-24得票数 0
我只需要监视工作表中的更改，而不是整个工作表中的更改，就在指定的范围内。因此，如果在任何单元格中发生任何类型的更改，它应该检查在该命名范围内发生的更改，如果发生了更改，则必须执行某些函数。Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "change"
En
浏览 0提问于2018-05-02得票数 0
回答已采纳
我正在创建一个小程序，该程序将查找工作表“当前”列I中的变化。如果发现更改，它将剪切并将整个列粘贴到工作表“已完成”的最后一行。row after last row
MsgBox "Cell " & Target.Address
浏览 6提问于2017-06-13得票数 0
回答已采纳
2回答
为了不每次格式化表，我创建了一个宏，每当我在单元格D1中输入值时，这个宏就应该格式化pivot表。C2是格式示例单元格。看起来宏运行，但不执行。Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents
浏览 3提问于2017-09-20得票数 1
回答已采纳
我为自己创建了一个包含多个从属下拉列表的工作表。基本上，当一个范围内发生变化时，我希望清除该范围。为此，我写了下面的代码，它的目的是工作，但它远远不是整洁。Value = ""Range("D15:H15").Value = ""ElseIf Targ
浏览 20提问于2021-10-22得票数 1
回答已采纳
1回答
Range(Target.Address).Offset(0, 1).Value = "1" Range(Target.Address).Offset(0, 3).Value = "3" R
浏览 3提问于2015-09-03得票数 1
回答已采纳
我想我可以像这样运行：Select Case Target.AddressCall SheetChange.macro1我也试过了If Target.Address="cell1" Then
Call SheetChange.macro1ElseIf Target.Address="cell
浏览 2提问于2013-04-19得票数 2
回答已采纳
云服务器
ICP备案
对象存储
云点播
实时音视频
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号