Worksheet_Change多个更改
Worksheet_Change是Excel VBA中的一个事件，它在工作表中的单元格内容发生更改时触发。它可以用于监控特定单元格的更改，并在更改发生时执行相应的操作。
在VBA中，可以通过在工作表的代码模块中编写Worksheet_Change事件的处理程序来实现对单元格更改的响应。当工作表中的单元格内容发生更改时，该处理程序将自动执行。
使用Worksheet_Change事件可以实现许多功能，例如：
- 数据验证：可以在单元格更改前进行数据验证，确保输入的数据符合特定的规则或范围。
- 数据更新：可以根据单元格的更改，自动更新其他相关单元格的数值或公式。
- 数据记录：可以将每次更改的内容记录到另一个工作表或数据库中，以便后续分析和追踪。
- 条件格式设置：可以根据单元格的更改，自动应用不同的条件格式，以突出显示特定的数据。
- 数据提醒：可以在单元格更改后，通过弹出消息框或发送电子邮件等方式提醒相关人员。
腾讯云提供了一系列与Excel相关的产品和服务，可以帮助用户在云端进行数据处理和分析。其中，腾讯云的云函数（SCF）可以与Excel VBA结合使用，实现更强大的功能。通过将Excel文件上传到腾讯云对象存储（COS），再使用云函数对文件进行处理，可以实现更高效的数据处理和计算。
腾讯云云函数（SCF）：https://cloud.tencent.com/product/scf
腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
请注意，以上答案仅针对腾讯云相关产品和服务，其他云计算品牌商的类似产品和服务请参考官方文档。
相关·内容
当目标单元格存在于特定范围内时，我正尝试使用VBA宏来更新它的值。我想通过将字符串连接到它的值来更新它的值。例如，如果有人在目标单元格中写入250，我希望将"XYZ-250“写回目标单元格中。代码如下：
Dim oldCellAddress As String
Dim oldCellValue As String
Private Sub Worksheet_Change(ByVal Target As Range)
oldCellValue = 0
If Not Intersect(Target, Range("E10:E500")) Is Nothing Then
o
浏览 2提问于2017-07-10得票数 0
回答已采纳
我想要更新的单元格的行和列，其列是"H“。我尝试了下面的代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H:H")) Is Nothing Then
MsgBox Target.Row
End If
End Sub 当我单击一个单元格时，它会给出正确的行，但当我编辑一个单元格并按enter时，消息将输出显示为下一行，而不是编辑的单元格所在的行。 如何获取编辑后单元格的行/列？
浏览 5提问于2019-02-03得票数 0
回答已采纳
通过改变单元格中的值，调用宏/模块)。当从带状或Alt + F8运行这个宏时，它工作得很好。
为什么来自第一个宏的调用不起作用？
Sheet1背后的宏观
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("E25") Then
Call GasFlow
End If
End Sub
宏在模块中的“逆”
Sub GasFlow()
' GasFlow Macro
' This macro converts all gas uni
浏览 4提问于2015-03-13得票数 0
回答已采纳
1回答
如果用户不输入任何值，我将尝试将单元格E23作为用户输入和公式单元格。对于示例:如果用户在单元格E23中输入一个值，那么请考虑该值。如果用户不输入任何值，则从单元格B23复制值。下面是我尝试过的vba代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$23" And Target.Value = "" Then
Target.Formula = "=B23"
End If
代码运行良好，直到我通过下拉组合框中的选择来更改单元格B2
浏览 0提问于2018-04-25得票数 0
回答已采纳
我有一个宏，它从剪贴板中获取数据，并将其粘贴到一个特定的单元格中，转置一些信息。
Sub UpdateData()
'~~> Change this to the relevant sheet
Set ws = ThisWorkbook.Sheets("Sheet2")
With ws
'~~> Using this as you are copying it from Notepad~~~~
.Activate
.Range("H1").Sele
浏览 0提问于2015-10-01得票数 2
首先，当涉及到Macros和VBA时，我是一个新手，所以如果我不明白，请原谅我。
我有一个Excel电子表格，它基本上是用户及其手机号码的列表和其他一些位(当前使用的是A-K列)，它是按行排序的。
如果我改变了一个单元格，我需要的是一种复制整行的方法。因此，如果我更改用户名，它会将该用户的整行复制到第二个工作表上的下一个空白行。
这样做的目的是保持审计跟踪，允许我们查看谁以前使用过数字等。
我发现：可以正常工作，但我永远不能将其设置为a，将单元格复制到下一个可用行，或者b，不覆盖现有条目。
这是我使用的代码：
Private Sub Worksheet_Change(ByVal Target
浏览 0提问于2015-12-03得票数 0
我正在自动化一些帐户详细信息，我不希望他们添加双倍。为此，我需要将按钮单击事件限制为一次，这样它们就不会添加两次或三次。我如何限制一个按钮点击事件，否则，如果我更改了任何数量，我希望按钮返回更新。有什么需要帮忙的吗？
commandbutton1.enable = true
commandbutton1.enable = false
这是工作，但我想按钮回来的时候，我的帐户值是改变在单元格。
浏览 5提问于2016-09-19得票数 0
回答已采纳
1回答
我想知道是否有可能以条件格式编写代码或规则，如果我更改了单元格中的值，该单元格将突出显示或更改颜色，从而使模型中的输入条件发生了明显的变化。
我有一个模型，其中我的某些假设是我的输入。我还有一个覆盖部分，如果他们想要改变增长率--例如，只需输入单元格就可以了。是否有可能在重写该单元格中的值之后使该单元格更改颜色？
谢谢！！
浏览 1提问于2017-04-25得票数 0
回答已采纳
我正在检查两个单元格是否有两个不同的值。我想要创建一个MsgBox，以便当单元格A1是A，而B1是B时用文本创建MsgBox。但是MsgBox只会弹出一次。
当我有一个单元格时，代码工作：
Option Explicit
Dim oldVal
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$A$1") Then
If Target.Value = "A" And Target.Value <> oldVal Then
浏览 0提问于2019-08-08得票数 0
回答已采纳
这是我第一次编写代码，我尝试编写一个代码，帮助我填充列B、C和D --当我自己填写列A时，这将自动发生。
这是我现在正在做的那张纸的图片，
我尝试用谷歌搜索代码，我找到了一个代码，但它根本不起作用。
这是第一个代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("A:A")
Set Inte = Intersect(A, Target)
If Inte Is Nothing T
浏览 0提问于2015-10-15得票数 1
我在网上搜索过，找不到代码来做我想做的事，我碰到了一个绊脚石。
我们目前正在为我们的代表在excel中实现一个类似CRM的报告系统。当帐户状态以某种方式改变时，我们的代表会连续填写客户数据，并更新相关的单元格。
报告都是构建和工作的，但是我们缺少帐户历史记录部分，所以我们想要做的是，在第一列中的数据被更新为一行时，将新行中的整行复制到不同的工作表或工作簿中，以便在单独的工作表或工作表上自动保存所有相关更改的历史记录。
我在网上搜索和查看了不同的代码和跟踪更改选项，但是找不到一个代码，它只自动复制更新中的整个相关行，我们确实需要复制整行，这样数据才能对我们保持有意义，所以跟踪更改不能满足我们的需
浏览 4提问于2017-05-01得票数 0
回答已采纳
我是Excel VBA的新手。我根据工作表上特定单元格的输入触发了几个宏。
我对前两个选项没有问题。但每次我使用第三个选项，即Delete Row，&每次我编辑或删除单元格时，我都会遇到这个错误。
代码如下：
Sub Worksheet_Change(ByVal Target As Range)
Set Target = ActiveCell
If Target.Value = "Fuel Supply" Then (<=Error At This Point)
Fuel_Heating_Value
ElseIf Target.Value =
浏览 2提问于2015-11-16得票数 0
我有以下代码，我是从这个论坛上得到的。这是工作正常，但抛出一个错误，当我删除excel文件中的记录。我得到的错误是运行时错误'13'：类型不匹配。
单击debug按钮时，将突出显示代码中的以下行：
If Target.Value <> vbNullString Then Target.Offset(, 1).Value = GetGUID
我想我知道问题出在哪里，但不知道如何解决它。
完整的代码是
Private RANGE_CELL As Range
Public Function GetGUID() As String
GetGUID = M
浏览 12提问于2017-01-18得票数 1
回答已采纳
如果我们只引用一个数字来填写一个日期，会怎样呢?这种特性将提高某些excel场景中的用户友好性。
例如:在三月工作表中，当我在给定日期列中键入"7“时，插入值的单元格将返回"07/03/19”(或03/07/19)。
如果可能的话，这意味着我需要在VBA代码中指定此表的月份和年份，并为每个工作表(2月等)更改此变量。如果工作表名称是月份名称(如“三月”)，那么甚至可以使用一个解决方案VBA代码来实现它。下面的公式利用了它的优势，所以我想VBA可以这样做。
=MONTH(DATEVALUE(MID(CELL("filename";$A$1);FIND("]
浏览 0提问于2019-03-06得票数 0
1回答
我正在尝试正确地编写代码，但在某些情况下失败了:我有一个excel表格，它根据顶部单元格中写入的值将一个单元格与下面的单元格合并，但当从合并的单元格中删除一个值时，我希望这些单元格取消合并。我尝试使用sub来保持代码的整洁(不知道正确的规则，但我会尝试)：
Public Sub LetItMerge(Target As Object)
If Target.Value = Empty Then
Call unMergeCell(Target)
Else
If (Target.Value = VV Th
浏览 1提问于2013-04-30得票数 0
回答已采纳
1回答
我试图在单个工作表中添加第二段代码，并继续获取“检测到的模糊名称”错误。意识到我需要合并这两种代码，但很难做到。下面是两个代码，一个在另一个下面(我不得不做第二个子代码，因为单元格可以手动输入)：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error Resume Next
If Target.SpecialCe
浏览 2提问于2022-02-25得票数 0
回答已采纳
1回答
我的计划是在特定的工作表(列表)上输入数据，并自动按字母顺序排序，然后在第一个工作表(TicketSheet)上创建数据验证。
当我输入任何日期并保存时，我无法再次打开该文件，因为它崩溃了。
我开发了以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A:$F")) Is Nothing Then
Dim x As Range
Set x = Cells(2, Target.Column)
Dim y As Ran
浏览 1提问于2016-02-22得票数 2
我正在尝试制作一个小的Excel宏，在单元格更新时自动执行：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "N/A" Then
Target.Interior.Color = RGB(205, 201, 201)
End If
If Target.Value = "Pass" Then
Target.Interior.Color = RGB(0, 255, 0)
End If
If Targ
浏览 3提问于2013-03-25得票数 3
我使用以下VBA脚本：
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCount As Long
Dim valueCell As Range
Dim timeStampCell As Range
Dim targetCell As Range
Dim xVal As Long
Application.EnableEvents = False
'''''EDIT''
浏览 0提问于2018-11-11得票数 0
晚上好,
我想知道如何使这段代码在从N7到N51的一系列单元上工作？
弹出框运行得很好，但仅在N7的引用单元格中，我需要这样做才能处理从N7到N51的每个单元格，以便当每个单元格值发生变化时，弹出框就会出现。因此，如果更改单元格N8，则出现框等。原因是并不是每个单元格都会改变，我只需要弹出框出现在更改的单元格上，等等。下面是我设法将代码合并在一起的代码。
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address = "$N$7" Then
MsgBox "If Date Ent
浏览 1提问于2020-04-22得票数 2
回答已采纳
1回答
我有下面的代码。我想让光标在单元格中处于活动状态，运行宏，让vba将句点字符串放到剪贴板上，然后将它们粘贴到光标处于活动状态的单元格中。这可以做到吗？
Dim obj As New DataObject
Dim txt As String
'Put some text inside a string variable
txt = ".............................."
'Make object's text equal above string variable
obj.SetText txt
'Place
浏览 0提问于2020-05-20得票数 0
1回答
我是新来的，所以我不能很好地确定规则。我目前被一个我似乎不知道问题的代码绊倒了。
Private Sub Worksheet_Change(ByVal Target As Range)
If Format(Range("H4").Value, "HH:MM:SS") = "00:15:00" Then
MsgBox "Block 3 ends in 15 mins"
End If
End Sub
代码能够处理单个单元格，但是当我将单元格"H4“更改为"H2:
浏览 0提问于2018-03-14得票数 1
回答已采纳
因此，我试图找到一个解决方案，可以将多个值从一列复制到另一列，并使其省略已经存在的重复值。
我找到了这段代码，但只有当我一次复制粘贴一个值时，它才能工作。
是否有办法使其工作，以便它将粘贴到唯一复制的值，而这并不存在于列中？
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'''''''''''''''''''''''''
浏览 0提问于2019-05-03得票数 0
回答已采纳
2回答
我有下面的代码来帮助我在一个堆叠的单元格中记录多个日期，但是我不知道第二个和更多的条目是如何使用删除线来显示日期已经更改的。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge = 1 And Target.Column = 1 Then
If Len(Target.Value) > 0 Then
Target.Offset(, 1).Value = Target.Value & _
IIf(Len(Target.Offs
浏览 3提问于2018-09-15得票数 0
1回答
我希望在每日报告类型格式内继续运行某些参数的总计。例如，在cell E9中，我有机器的运行时间，而在cell F9中，我希望运行时间为“至今”。Gary的学生(这里的成员)发布了以下解决方案：
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("E9"), Target) Is Nothing Then Exit Sub
[F9] = [F9] + [E9]
End Sub
这很好，但我在同一张纸上有其他几个参数，我想要做同样的事情，例如，在E10中，我想记录该机器使用了
浏览 1提问于2016-12-12得票数 0
当我在Excel表上运行VBA代码时，我遇到了excel崩溃的问题。
我试图在工作表更改中添加以下公式：
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("testpage").Range("A1:A8").Formula = "=B1+C1"
End Sub
当运行这段代码时，我收到一条消息："excel遇到问题，需要关闭“，excel关闭。
如果我在Worksheet_Activate()过程中运行代码，它可以正常工作，不会崩溃
Privat
浏览 3提问于2012-12-13得票数 45
回答已采纳
我正在excel中创建一个任务列表，它将根据用户在另一列中输入"x“来将当前日期、日期和时间输入到列中，以指示任务已经完成。
从联机查找某些代码开始，我在工作表代码中编写了一个宏，以便在更新单元格时包含column E中的值。column B中填充了当前的日期、日期和时间。它还清除删除单元格内容的日期。这一切都很好，很好。
现在，如果用户要在column E中选择一个范围来一次删除多个“x”，我就有问题了。宏出错，并表示行中有一个Type Mismatch：
If Target.Value = 0 Then
如果用户选择一个区域并从其中删除“x”，我如何编辑我的代码让它也考虑到呢？
如
浏览 0提问于2019-01-30得票数 0
回答已采纳
我的电子表格在表1中有几列。
A B C
1 ID Name Value
2 Test1 TestN TestV
在我的VBA代码中，有一个Worksheet_Change事件：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
Dim conn As ADODB.Connection
Dim rs As ADODB.Record
浏览 2提问于2020-11-12得票数 0
回答已采纳
我想要开发一个代码，我可以有一个下拉列表的工作表名称，我想用密码解除隐藏。我试了很多次，但没有成功。
假设，我有一个多页的名字，"A"，"B"，"C"，直到"F“。当我从下拉框中选择一个或多个工作表名时，应该提示输入密码以取消隐藏工作表。请提出最好的方法。
Private Sub Worksheet_Change(ByVal Target As String)
Dim Target As String, msg As Variant
Set Target = Sheets("Sheet1").Range("A1&
浏览 2提问于2021-02-15得票数 1
回答已采纳
我已经编写了一个宏来整理来自不同工作表中的各种来源的数据。我想在整理数据后运行track changes code 。但是，由于此代码位于Worksheet_Change函数中，因此它甚至在运行附加到按钮的宏之前就已加载。因此，当我运行宏时，它会将所有数据标记为已更改。我如何才能防止这种情况发生？
浏览 1提问于2014-11-27得票数 0
2回答
我已经用各种不同的方法修改了这个宏两天，以防止步骤重复，但是range G2步骤似乎运行了3到4次，range G3运行了2到3次。有人有什么想法吗？？
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("G2")) Is Nothing Then
Range("g4").Value = "Team"
Range("g3").Value =
浏览 3提问于2017-03-20得票数 1
我有一个简单的电子表格，如下所示
A B C
1 ID Name Type
2 124T
第1行的列名将始终是固定的。列名永远不会改变。
用户将在单元格A2中输入一个值，我要做的是，一旦用户关闭标签或按下进入单元格A2，就在门后运行宏。
我的目标是，当用户离开单元格A2时，我想运行一个宏来验证ID是否真的正确。如果是的话，我会改变字体的颜色。
编辑:宏建立到Server数据库的ADODB连接，在这里我验证单元格A2中的值实际上是否有效。如果它是有效的，我想改变字体为绿色
浏览 0提问于2020-11-12得票数 0
回答已采纳
我有一个VBA代码来大写我的工作表的大部分，但是当我删除或清除内容时，我得到调试消息。
任何帮助都将不胜感激！
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
Target.Value = UCase(Application.Substitute(Target.Value, " ", ""))
End If
Appli
浏览 20提问于2017-07-12得票数 0
2回答
我需要用Workbook_SheetChange来检测一个单元格的值是否发生了变化。
当双击任何单元格时，此事件也会触发.我想避免这种情况，因为在这样做时，直到键入一个新值时，单元格才会真正发生变化。
在那件事里有什么办法可以避免这种情况吗？
浏览 2提问于2021-10-15得票数 0
回答已采纳
1回答
我在工作表上插入了一个命令按钮，当按下该命令按钮时，会打开一个密码userform。输入密码时，这会将成本中心编号放入工作表执行摘要。
下面的代码不会自动更新透视表，因为它需要更改目标单元格。
如何在每次目标单元格更改时更改以下代码以更新？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'This line stops the worksheet updating on every change, it only updates
'when cell G1 is touched
If Not Int
浏览 0提问于2016-08-12得票数 2
1回答
不需要插入行无限环
、、、
由于某些原因，当我使用插入行代码时，它将永远继续插入一个新行！我编写了代码，在开头有一个do while循环，它遍历C列中的所有单元格，当它击中C列中的一个空单元时，一个变量保留单元格号。
然后，我编写了另一个子例程(当电子表格中的某些内容发生变化时会被调用)，如果在C列的空单元格中写入了某些内容，则插入新的行。但它会永远持续下去！
下面的代码位于模块下面
Dim a, count As Integer
Sub check()
a = 0
count = 3
Do While a = 0
count = count + 1
If Range("C" &
浏览 3提问于2014-03-18得票数 1
回答已采纳
1回答
我在一个电子表格中有一个对象(即一个叫做“Shape”的矩形)，我想根据一个单元格值(A1)来隐藏它。以下是我在互联网上搜索后尝试的方法，但不起作用。我很抱歉，我无论如何都不是VBA专家。我通常可以通过网络搜索来蒙混过关，但这一次我被难住了。
Private Sub HideShape(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then _
Me.Shapes("Shape").Visible = (Cells(1, 1).Value = 1)
End Sub
我实际上有
浏览 0提问于2020-03-27得票数 0
1回答
更改旧值和新值
、、
我有这个代码，我用它来调用旧值和新值。然而，我现在有一个问题，如果用户简单地突出显示一个，并点击删除它将运行并注意到这种变化，但它将运行一些相同的请求出于某种原因的更多实例。有没有办法让它只运行一次？谢谢
Public OldValues As New Collection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Pagination").Range("J11") <> "Yes" Then Exit Sub
'
浏览 1提问于2013-10-09得票数 1
1回答
因此，我是VBA的新手，我想通过将一堆员工工时乘以小时费率来将其转换为美元，反之亦然。然而，我不确定如何处理小时费率的变化。所以目前我的代码看起来像这样：
Sub dollarHour()
Dim hrs As Range
Set hrs = Range("D3:N33")
For Each cell In hrs
If cell.NumberFormat = "0.00" Then
cell.Value = cell * Range("P37")
ce
浏览 1提问于2019-02-01得票数 0
我正在尝试编写一个VBA代码，它基于另一个单元格更改为特定参数的事件的组合，自动增加单元格E11中的值。
我的问题是，我编写的VBA代码是半自动的，而不是完全自动的。有没有其他方法可以根据这些if语句自动实现
Private Sub Worksheet_Change(ByVal Target As Range)
Set Actus = Range("B24")
Set Def_F = Range("E11")
If Target.Address = "$E$11" And Target.Value = &
浏览 0提问于2018-03-23得票数 0
3回答
连接目标列中的值
、、、
我在VBA代码方面遇到了麻烦:有一个Excel表格(Sheet1)，其中包含两个基本列(姓氏和名字)
我想做的是，每当你向列表中添加另一个姓氏和名字时，它们都会自动连接到另一个工作表中，并形成一个新的列表(该列表的起始位置是Sheet11.Range("AB3")，在位置AB2是列表标题"Clients")。
因此，我的代码被输入到Sheet1中
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp As Range
For Each tmp In Sheet1.Range("
浏览 2提问于2015-10-05得票数 0
2回答
在对工作表进行更改后，我试图将列与数据相加。包含数据的列在第1行中包含文本。
我第一次测试它的时候
运行时错误“28”：堆栈空间外
当我第二次测试它时，我得到
运行时错误'-2147417848 (80010108)'：对象‘范围’的方法‘值’失败，然后Excel崩溃。
Sub Worksheet_Change(ByVal Target As Range)
Dim LastCol As Integer
Dim NumProjects As Integer
Dim i As Integer
With ActiveSheet
LastCol = .Cel
浏览 0提问于2016-06-09得票数 1
我有"Sheet10“，单元格"F3”根据用户输入进行一些计算和值更改。用户输入位于"Sheet10“单元格"G6”上。我想复制"F3“的最终计算值，然后将下面的"Sheet12”单元格"Q3“中的新值转换为”Sheet12“单元格”Q3“，但我不知道哪里出错了。提前感谢！
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F3").Address Then
Worksheets("
浏览 4提问于2016-06-29得票数 0
回答已采纳
1回答
我已经创建了一个条形图，它显示了一个建筑物的图形表示。
它已经有条件地格式化，当一个成本被放置在地板上时-地板在条形图上被高亮显示为红色。
然后我找到了一个VBA，当有条件格式化的单元格的颜色改变颜色时，它会将条形图系列的颜色更改为红色或灰色。(我的编码知识非常有限，是我想要开发的)
但是，当我添加成本时，它不会自动更改条形图。它要求我点击图表，然后它更新和变红。
有什么方法可以用代码来解决这个问题，这样当增加成本时，它会立即将地板改为红色吗？
我已经在网上查找了一些刷新选项/计算选项，但是我的知识不是最好的，我可能没有正确地添加它？
代码从这里开始；
Sub CellColorsToChar
浏览 0提问于2019-09-12得票数 0
回答已采纳
我有一个excel电子表格，在这里我试图检测到所选内容中的更改，并不断地在新的选择中记录值。同时，我希望在范围内检测工作表中的更改。一旦发生这种情况，我想看看在选择更改时记录的值是否为数字，如果也是数字，则将其添加到已更改的值中。本质上，如果一个单元格中有一个数字，然后输入一个新的数字，我希望将它们相加在一起，并将单元格的值设置为该和。
下面是我从一篇随机的帮助文章和其他问题的几个想法汇编而来的：
Dim stuff
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
stuff = Target.Value
End Sub
浏览 0提问于2017-11-28得票数 0
回答已采纳
我正在寻找一些关于宏的帮助，以减少基于在另一个单元格中输入的单元格的值。我有5列要输入值，还有2列已经有数据了。当我在5列中的某一列中输入一个数字时，我想要一个窗口弹出，上面写着" Blah "，如果我单击“是”，我想要从另一个单元格中减去该单元格中的值，该单元格将需要使用其他两列中的信息进行查找。
表1：
A B C D E F G
1 5 10
表2：
A B C D E F G
1 2 4 6 8 10 12
2 2
3 4
浏览 7提问于2010-11-10得票数 0
1回答
我知道如何检查列是否已更改，如下所示
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H5")) Is Nothing Then
'Pop up a message saying H5 has changed
End If
End Sub
如果我想更改同一行上的另一列，我可以这样做
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Inters
浏览 4提问于2016-06-19得票数 2
回答已采纳
我有一个电子表格，我希望A:一个范围自动格式化，以便字符将显示为红色和数字保持相同的颜色。以下宏似乎工作正常，但每次更改单元格中的值时都需要手动运行它：
Sub Red_text()
Dim i As Integer
Dim MyString As String
MyString = ActiveCell.Value
For i = 1 To Len(MyString)
If IsNumeric(Mid(MyString, i, 1)) = False Then
ActiveCell.Characters(i, 1).Font.Color = RGB(247, 6
浏览 1提问于2013-10-01得票数 0
回答已采纳
我有一个Excel Listbox (而不是ActiveX，因为这些会导致显示问题)，它有一个Excel (对话框驱动的)宏，它将它的值输出到另一个工作表上的一个命名范围单元格到列表框中。在那张表的代码中，我有以下内容
Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print "ping"
End Sub
当我单击Listbox (因此更新命名的范围单元格值)时，宏事件不会触发。我已经验证了当我直接更新该表时，宏是否会执行。
假设窗体控件宏正在环绕工作表事件触发器导航。我说的对吗？有谁知道解决这个问题
浏览 7提问于2017-04-26得票数 1
回答已采纳
1回答
我的问题是，我的代码不工作，我认为它应该工作。我在我的worksheet_change宏中有循环，在这个循环中，我希望如果语句是正确的(按下MsgBox按钮是是的)，在该单元格中写的内容将在文本末尾附加值。
但是如果我运行这个宏，然后按Yes我对VBA编程和语法很陌生。
有人能帮我解释一下我的错误吗？
代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rLockable As Range
Dim cl As Range
Set rLockable = Range("C13:J1000")
Set cl =
浏览 1提问于2019-11-20得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
