开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

如何运行多个私有子目标(ByVal Worksheet_Change As Range)？

在VBA中，可以通过以下步骤来运行多个私有子目标：

打开Visual Basic编辑器：在Excel中按下Alt + F11，或者在开发工具栏中点击“Visual Basic”按钮。
在项目资源管理器中选择要添加私有子目标的工作表。如果项目资源管理器未显示，请按下Ctrl + R打开。
双击选定的工作表，以打开该工作表的代码窗口。
在代码窗口的顶部两个下拉框中，选择“Worksheet”和“Change”。这将创建一个名为“Worksheet_Change”的事件处理程序。
在生成的事件处理程序中，编写您想要执行的代码。这些代码将在工作表上的任何单元格发生更改时运行。
如果您想要运行多个私有子目标，可以在同一个工作表上创建多个事件处理程序。为此，请在代码窗口的顶部的下拉框中选择“Worksheet”和“Change”以创建另一个事件处理程序。
在每个事件处理程序中编写相应的代码，以满足您的需求。

以下是一个示例代码，演示如何在工作表上运行多个私有子目标：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 第一个私有子目标的代码
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        ' 在A1:A10范围内的单元格发生更改时执行的代码
    End If
    
    ' 第二个私有子目标的代码
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        ' 在B1:B10范围内的单元格发生更改时执行的代码
    End If
End Sub

在上面的示例中，第一个私有子目标的代码将在A1:A10范围内的单元格发生更改时执行，而第二个私有子目标的代码将在B1:B10范围内的单元格发生更改时执行。

请注意，上述示例中的代码仅为演示目的，您需要根据自己的需求进行修改和扩展。

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

腾讯云云服务器（CVM）：提供可扩展的计算能力，适用于各种应用场景。详情请参考：https://cloud.tencent.com/product/cvm
腾讯云函数计算（SCF）：无服务器计算服务，可按需运行代码，无需管理服务器。详情请参考：https://cloud.tencent.com/product/scf
腾讯云数据库（TencentDB）：提供多种数据库解决方案，包括关系型数据库和NoSQL数据库。详情请参考：https://cloud.tencent.com/product/cdb
腾讯云对象存储（COS）：安全、稳定、低成本的云端存储服务，适用于各种数据存储需求。详情请参考：https://cloud.tencent.com/product/cos

相关搜索:同时更改多个单元格时的私有子目标(ByVal Worksheet_Change As Range)如何使用工作表上的私有子Worksheet_Change合并两个Sub 如何使用ByVal目标作为范围，使其适用于多个单元格，而不依赖于以前的如何在Ant目标中一次运行多个Unix命令如何使用Python子进程同时运行多个.bat文件如何使用google云在一个子域上运行多个服务如何在运行多个ajax请求时杀死windows中的php/apache子进程如何使用windows CMD或批处理在所有子文件夹中递归运行多个命令？各类域名同一域名

相关搜索:

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

保存输入的值：Worksheet_Change事件应用示例

标签：VBA,Worksheet_Change事件我们可以在工作表中保存所有输入的值，而不受工作簿是否关闭的影响。...图1 代码如下： Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address "...如果代码仍在运行，则表示当前单元格为A2，且单元格A2中的内容长度不为零。...图2 代码如下： Private Sub Worksheet_Change(ByVal Target As Range) Dim nextrow As Integer Dim Savetxt...图3 代码如下： Private Sub Worksheet_Change(ByVal Target As Range) Dim nextrow As Integer Dim Savetxt

1.5K3 0

将单元格作为累加器

标签：VBA 累加器是一个或多个单元格，用于保存输入的数值的总和。它们可以是单个单元格，如果A1=6，并且用户在A1中输入2，则显示的结果为8。...构建累加器最可靠的方法是使用Worksheet_Change()事件。当一个值被输入到单元格中时，该值被加到累加值上，并被放回累加器单元格中。...下面的代码在单元格A1中输入值，单元格B1将累加这些值，代码如下： Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target...("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True End If End If...下面的代码在单元格A1中累加在其中输入的值，代码如下： Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator

1801 0

Excel事件（二）工作表事件

ByVal表示”按值传递“的意思，Target是参数名称，as Range是表示Target参数是单元格对象类型。...当Worksheet_Change事件执行时，会将操作的单元格Range对象传递到参数targe中，然后就用来对参数进行判断，来空值用户对参数的更改。...Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Value = "...其中ByVal Target As Range与上个事件相同，参数target也是单元格类型，触发事件时，选定的单元格会传递给参数target。...---- 本节主要介绍了最常用的工作表事件，了解事件的参数的使用，以及对关闭或开启事件如何使用。

3.6K1 0

Excel VBA事件——Worksheet

Target As Range) End Sub Target就是变化后选中的单元格。...2、Worksheet_Change：这个的改变是指单元格的数据变化后发生的事件，而其实这个变化是只要单元格进入了编辑状态，再退出编辑状态的时候，就是变化了： Private Sub Worksheet_Change...(ByVal Target As Range) End Sub 这个可以用来监控数据的变化，比如某个单元格数据是否改变成了某个目标，如果是就可以执行某种代码。...Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) End Sub 这个事件一个比较典型的应用场景是...，比如某列存放了一些文件的路径，希望双击的时候打开对应的文件： Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel

3K5 0

问与答70：如何记录指定单元格每次修改的时间？

打开VBE，双击工作表Sheet1对象模块，输入代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim rngInput As Range...Dim rngLog As Range '要记录其修改时间的单元格 Set rngInput = Range("B2") '确定单元格是目标单元格...'写入当前时间 rngLog.Value = Now End Sub Q：我想增加记录另一个单元格的修改时间，例如单元格D2每次修改的值大于0时，将修改的时间记录到工作表LogD2中，如何编写代码...打开VBE，双击工作表Sheet1对象模块，输入代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim rngLog As Range

1.7K1 0

Excel实战：使用VBA实现自动规划求解

如果其中一个变量发生变化（例如，如果销售价格增加到110），那么我们需要重新运行相同的目标寻求过程。这相当耗时。此外，如果正在为设计电子表格，那么这不是一个很好的用户体验。...SetCell I8: ChangeCell 在这两个单元格中输入下面的值： I4 = Profit I8 = SalesUnits 接着，在工作表代码模块，输入下面的代码： Private Sub Worksheet_Change...(ByVal Target As Range) Dim inputCells As Range '列出所有输入单元格. (1)命名单元格或 (2) 单元格引用 Set inputCells...ChangeCell") '如果输入单元格改变则运行宏 If Not Application.Intersect(Range(Target.Address),inputCells) Is...Nothing Then '使用SetCell,TargetValue和ChangeCell单元格中的值运行规划求解 Range(Range("SetCell").Value)

3.3K2 0

问与答123：如何动态更新提示信息？

Q：在《问与答122：如何根据输入数据动态添加提示信息？》...如何实现？ A：同样要使用VBA代码来实现。...在工作表DataValue的代码模块中，输入下面的代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim strVal As String...Dim strToolTipBody As String Dim strToolTipHead As String Dim rng As Range Dim ws As...Exit Sub End If With ws.Range(rng.Address).Validation .Delete .Add Type:=xlValidateInputOnly

7673 0

仿Excel的撤销功能

endRow).ClearContents End If End With End Sub 在操作的工作表相应的代码模块中输入下面的代码： Dim i As Long Private Sub Worksheet_Change...(ByVal Target As Range) Dim rngToProcess As Range Dim sNewValue Dim sOldValue Dim rCell As Range...Target.Offset(, 1).Value Application.UNDO ' 撤销最后一次输入 Target.Offset(, 1).Value = Target.Value ' 将之前的值放置到目标单元格右侧的单元格...i = i + 1 ' 增加实例, 用于UNDO过程 For Each rCell In rngToProcess ' 遍历目标区域中的单元格 With Sheets("UNDO...Application.EnableEvents = False ' 关闭事件以便下面的代码不会触发Worksheet_Change事件 Set wsU = Sheets("UNDO") '

1511 0

使用VBA创建相关联的数据有效性列表

.ShowInput = True .ShowError = True End With End Sub 在VBE中，双击Sheet2打开其代码模块，输入下面的代码： Private Sub Worksheet_Change...(ByVal Target As Range) Dim var As Variant, x As Long, CityVar() As Variant, y As Long Dim CityStr...As String If Not Intersect(Target, Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing...Then If Range("A" & Target.Row) "" Then var = Sheet1.Range("A2:G" & Sheet1.Range("A" & Rows.Count...请提供有效的输入" .ShowInput = True .ShowError = True End With End If End If End Sub 运行标准模块中的

1601 0

问与答122：如何根据输入数据动态添加提示信息？

图2 如何实现？ A：肯定要使用VBA代码来实现。...在工作表“Seatingarrangement”的代码模块中，输入下面的代码： Public sTarget As String Private Sub Worksheet_Change(ByVal Target...As Range) sTarget = Target.Address Dim MyVal As String Dim MyToolTipBody As String Dim...MyToolTipHead As String Dim Rng As Range MyVal= Range(sTarget).Value With Worksheets("DataValue...(Rng.Address).Value MyToolTipBody = "(" &.Range(Rng.Address).Offset(0, 1).Value & " ) " &.Range

8865 0

Excel实战技巧108：动态重置关联的下拉列表

本文主要讲解如何使用少量的VBA代码重置Excel中相关联的下拉列表。...下面将介绍如何在第一个下拉列表中的值发生变化时自动重置与其关联列表的值，这里使用ExcelVBA执行此操作，使用了工作表对象的Change事件过程。...在这种情况下，最好使用工作表对象的Change事件并确保它仅在特定单元格的值发生更改时运行，而不是每次更改任何单元格值时都触发该事件过程。...图3 输入如下代码： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = " Range

4.6K2 0

VBA：利用高级筛选自动筛选列表

此时，如果从单元格K2到K4的任何单元格发生变化，则需要运行相应的过程，因此需要调用工作表的Change事件。...Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [K2:K4]) Is Nothing...Then AdvFilt '当上面的单元格内容变化时运行 End If End Sub 如果单元格区域K2:K4中的任何单元发生变化，将触发上面的过程。...Sub AdvFilt() Dim rng As Range Set rng = Range("A9", Range("T" & Rows.Count).End(xlUp)) rng.AdvancedFilter

2.2K4 0

Excel VBA编程

对象用range属性引用单元格引用单个固定的单元格区域：这种方法实际上就是通过单元格地址来引用单元格引用多个不连续的单元格：将range属性的参数设置为一个用逗号分成多个单元格地址组成的字符串引用多个区域的公共区域...application对象的union方法返回参数指定的多个单元格区域的合并区域，使用该方法可以将多个range对象组合在一起，进行批量操作。...Sub Worksheet_Change(ByVal Target As Range) If Target.Column 1 Then Exit Sub End...在VBA中，可以设置application对象的EnableEvents属性为false来禁用事件 Private Sub Worksheet_Change(ByVal Target As Range)...】——>【运行子过程/窗体】命令，即可显示选中的窗体在程序中用代码显示窗体 sub showform() load inputform inputform.show end sub

45.5K3 3

VBA自动筛选完全指南（下）

图3 在数据集所在的工作表代码模块中，输入下面的事件代码： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...= "$B$2" Then If Range("B2") = "全部" Then Range("A5").AutoFilter Else...Range("A5").AutoFilter Field:=2, Criteria1:=Range("B2") End If End If End Sub 使用VBA打开/关闭自动筛选...检查是否已应用自动筛选如果有一个包含多个数据集的工作表，并且希望确保知道没有筛选已经就位，则可以使用以下代码： Sub CheckforFilters() If ActiveSheet.AutoFilterMode...由于工作表受到保护，因此不允许运行任何宏并对自动筛选进行更改。因此，需要使用代码来保护工作表，并确保在其中启用了自动筛选。这在创建动态筛选时是有用的。

3.7K3 0

Excel自定义任意图表的通用模式

以上动画中或者以下视频中，读者看到数据变化图表自动更新其实是一种错觉，因为电脑运行速度太快，本质上是将数据变化前的图片自动删除并用新的图片覆盖。以下分步骤解说。 1....自动刷新 ---- 刷新图表有两种方式，一种是指定一个按钮，点击刷新：另外可以自动刷新，新建一个新的宏，如下所示，借助Worksheet_Change事件，当工作表数据有变更自动促发VBA的运行。...Private Sub Worksheet_Change(ByVal Target As Range) 删除图片代码 Call 四象限方块图 End Sub 以上即是完整的Excel自定义图表流程

2.8K1 0

【大话设计模式】——深入浅出单例模式

然后建立button按钮，我们再创建一个窗体ChildForm，单击就创建一个子窗体。...在没有使用单例模式的时候，子窗体会显示多个(如图1)，但这并不是我们想要的结果，我们想要图2中显示的，无论单击多少次，只显示一个子窗体，此时我们就用到了单例模式。...Public Class ChildForm ' 定义一个私有变量，保存创建的实例 Private Shared instance As ChildForm '私有的构造方法，外界不能利用...sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click '单击显示子窗体...所有的设计模式都是一样的，既有优点也有缺点，我们利用它的优点的同时，不能忽略他的缺点，在多线程的程序中，多个线程同时访问，会造成创建多个实例，存在不安全问题。

6611 0

实战 | 钓鱼与社工系列之office宏

0x02 宏代码流程及免杀网上有很多项目及文章是如何实现宏免杀的效果，之所以要宏免杀大部分原因都是代码是实现运行宏的时候就直接远程上线到rat上。...而我们用的是dll劫持的方法，白名单程序肯定是安全的文件，那么就是我们的恶意dll文件如何实现静态免杀了。如何让dll文件静态免杀的方法很多，网上也有很多项目，这块内容不在该文章里，以后会详细讲解。...最后一步就是如何触发宏了，千万不要使用打开word文件就触发宏的方法，很容易被杀软拦截。我常用的方法就是弄一个很大的文本框放在第一页，然后当目标的鼠标移动到文本框时就触发宏。...这样的方法既能有效规避杀软，还能在目标不知情的情况下触发了宏！...宏代码功能读取文本框里的字符串并解码写入磁盘，然后运行白程序即可免杀上线！

1.7K2 1

一起学Excel专业开发23：使用类模块创建对象2

在《一起学Excel专业开发22：使用类模块创建对象1》中，我们使用类模块创建了自已的对象CCell，通过这个对象可以创建任意多个对象实例，用来分析工作表或者多个区域中的单元格。...创建集合当存在多个对象实例时，管理它们的最简单方法是将所有对象实例放到一个集合中。...gcolCells As Collection Public Sub CreateCellsCollection() Dim clsCell As CCell Dim rngCell As Range...End Sub Property Get Count() As Long Count = mcolCells.Count End Property Property Get Item(ByVal...clsCell.UnHighlight End If Next clsCell End Sub 在CCells类模块中，集合对象变量mcolCells声明为私有的

1.2K2 0

最完整的VBA字符串知识介绍

示例： Sub Exercise() ActiveCell = "完美Excel" End Sub 运行代码后，当前单元格中会输入字符串“完美Excel”。...其语法是： Public Sub Beep() 调用示例： Sub Exercise3() Beep End Sub 如果在程序运行时调用此函数，计算机将发出短暂的声音。...字符串的左子字符串如果有一个现有字符串，但希望使用字符串左侧字符中的多个字符创建一个新字符串，则可以使用Microsoft Excel 的LEFT函数或VBA的Left函数。...图5 字符串的右子字符串要使用现有字符串右侧的一个或多个字符创建新字符串，调用MicrosoftExcel的RIGHT函数或VBA的Right函数。...其语法是： Function Trim(ByVal str As String) As String 创建空格字符串如果要创建由一个或多个空格组成的字符串，可以调用Space函数。

2.7K2 0

暂停或延迟Excel VBA运行的3种方法

标签：VBA 在执行下一段代码之前，如果需要暂停Excel VBA代码运行，该如何做呢？本文探索在Excel VBA中添加暂停的最佳方法。...4.在批处理操作之间延迟代码运行可以有效地处理大型数据集或对多个对象执行操作，同时控制资源消耗 5.在VBA代码中引入延迟有助于创建一个更可控的操作序列，允许脚本逐步执行或以特定的间隔执行，从而增强整个脚本代码的逻辑和精确度...Range("E2:E7") ' 将数据从源区域复制到目标区域 destinationRange.Value = sourceRange.Value ' 暂停10秒 Application.Wait...) Set multiplyRange = Range("D2:D7") Set resultRange = Range("E2:E7") ' 将数据从源区域复制到目标区域 destinationRange.Value...= Range("E2:E7") ' 将数据从源区域复制到目标区域 destinationRange.Value = sourceRange.Value ' 获取开始时间 startTime

3.7K3 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭