开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

在End Sub之后再次双击触发之前

，是指在VBA（Visual Basic for Applications）编程中，当一个子程序（Sub）执行完毕后，再次双击触发该子程序之前的操作。

在VBA中，Sub是一种用于定义和执行一系列操作的程序块。当程序执行到End Sub语句时，表示该子程序的执行已经结束。如果在End Sub之后再次双击触发之前，意味着要重新执行该子程序。

这种情况通常发生在以下几种情况下：

调试：在调试过程中，可以在End Sub之后再次双击触发之前，以便重新执行子程序并进行调试操作。这对于定位和修复代码中的错误非常有用。
循环：在某些情况下，可能需要在一个循环中多次执行同一个子程序。在每次循环结束后，可以在End Sub之后再次双击触发之前，以便重新执行子程序并进行下一次循环。
用户交互：有时候，可能需要在用户进行某些操作后再次执行子程序。例如，在用户点击按钮或选择某个选项后，可以在End Sub之后再次双击触发之前，以便重新执行子程序并响应用户的操作。

需要注意的是，在VBA中，双击触发子程序并不是一种常见的操作方式。通常情况下，子程序的执行是通过调用或触发其他事件来实现的。双击触发子程序可能需要自定义代码来实现，并且需要确保在适当的时机进行触发。

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

腾讯云函数（云原生）：https://cloud.tencent.com/product/scf
腾讯云数据库（数据库）：https://cloud.tencent.com/product/cdb
腾讯云服务器（服务器运维）：https://cloud.tencent.com/product/cvm
腾讯云音视频解决方案（音视频）：https://cloud.tencent.com/solution/media
腾讯云人工智能（人工智能）：https://cloud.tencent.com/product/ai
腾讯云物联网（物联网）：https://cloud.tencent.com/product/iotexplorer
腾讯云移动开发（移动开发）：https://cloud.tencent.com/product/mobdev
腾讯云对象存储（存储）：https://cloud.tencent.com/product/cos
腾讯云区块链（区块链）：https://cloud.tencent.com/product/baas
腾讯云虚拟专用网络（网络通信）：https://cloud.tencent.com/product/vpc
腾讯云安全产品（网络安全）：https://cloud.tencent.com/product/saf
腾讯云视频处理（多媒体处理）：https://cloud.tencent.com/product/vod

相关搜索:在特定场景之前和之后触发 Firebase/React: onAuthStateChanged()是在注册函数then之前还是之后触发的？在插入匹配语句之前或之后删除值的触发器在notifyicon winforms c#上的鼠标双击事件之前触发鼠标单击事件我可以在mousedown之后，但在mouseup事件之前进行onclick触发吗？在vb.net vsto outlook加载项中，'Me.Startup‘sub完成之前触发的事件为什么微软在.net SP1之前使JavaScriptSerializer过时并在此之后再次活跃？提交时触发的Google表单是在推送到电子表格之前还是之后触发的如何在res.write()写完之后，在res.end()之前，在Express.js中将数据刷新到客户端？在模拟过程中，为什么触发器在转换之前获取值，而条件(If)语句在转换之后获取值？是否有任何插件事件可以在我登录到OctoberCMS管理之前或在框架调度应用程序之后触发

相关搜索:

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

有帮助

没帮助

相关·内容

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

在阅读本文之前，建议先阅读下面4篇文章： 1.一起学Excel专业开发22：使用类模块创建对象1 2.一起学Excel专业开发23：使用类模块创建对象2 3.一起学Excel专业开发24：使用类模块创建对象...，在CCells类模块中引发ChangeColor事件，而是创建一个触发类模块来取代其引发事件。...这里将创建4个触发类的实例，分别对应于4种不同的单元格类型，同时为每个Cell对象分配一个适当的实例，这意味着每个Cell对象只能接收一种消息。此外，在使用触发类后，可以删除对对象相互引用的管理。...(uCellType).UnHighlight End Sub '捕获双击工作表单元格事件 Private Sub mwksWorksheet_BeforeDoubleClick(ByVal Target...Sub 这样，先运行CreateCellsCollection过程后，在工作表单元格中双击鼠标将会使同类型单元格添加相同的背景色，右击鼠标取消背景色，达到与前面文章中的示例相同的效果。

7561 0

Excel事件（三）工作簿事件

（不过对系统设置进行修改的代码不应写在open事件中，而建议写在activate事件中，在执行顺序中activate事件在open事件之后发生，而且open时候是有可能不被执行的。...在工程资源管理窗口中双击thisworkbook模块，在代码窗口中选择workbook对象以及open事件。...2、activate事件 activate事件是在激活一个工作簿时触发的事件，那么工作簿激活包括两种情况，一、工作簿打开时，在open事件之后发生该操作。...二、关闭工作簿时，在workbook的beforeclose事件之后触发。一些恢复系统设置之类的代码通常会放在deactivate事件中。...& vbCrLf & _ "当前更改的单元格为" & Target.Address End Sub 首先sheetchange事件的结构代码中， ByVal Target As Range之前的事件介绍过

2.1K4 0

Excel事件示例（一）

If Application.Intersect(Target, Range("b1:c7")) Is Nothing Then Exit Sub End If 这段用于限制只有B1:C7的单元格区域选择改变时会触发...（当下次事件触发时，会再次删除所有颜色。）这是示例主要帮助大家如何去限制区域使用工作表事件，采用的方法也比较典型，希望有助于助理解。...首先在工程资源管理窗口，插入一个模块，在模块中写入两个过程代码：新建dingshi过程，通过application对象的ontime方法，设置现在起1分钟之后运行baocun过程。...新建baocun过程，设置ThisWorkbook.Save保存当前工作簿，然后通过call dingshi再次调用dingshi过程，这样又会再一分钟之后运行baocun，形成一个循环。...这样当工作簿打开之后，运行dingshi过程，在1分钟之后运行baocun过程，baocun过程保存工作簿之后会再次调用dingshi过程，形成1分钟的循环保存。

7292 0

EXCEL中简单使用VBA上

在Excel内部打开VBA 以及在运行之前需要开启一下家开发人员的安全性打开的页面可能是这样，不要慌可以在这里选择打开窗口如果还是不一样，可以这这里打开资源的管理器 F4按键会按照当前你打开的窗口...这里的属性和函数内部的参数的意思有重叠的意思有两种排列模式，按照自己的喜好来选择使用可以在后面的栏目内部打开还是开启此功能这里是又绘制了一个窗口未来后文的使用方便，可以重新定义一个文件对于每一个将来要使用的事件，都可以去双击控件进入内部去编写触发用的代码...Val(T2.Text) = Val(T3.Text) Then MsgBox "OK" Else MsgBox "NO" End If End Sub Private Sub CB2_Click...() val(T1.Text) =val(T2.Text(int(rand()*20+1) End Sub Private Sub Label2_Click() End Sub Private Sub...UserForm_Click() End Sub https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help

1.7K1 0

Excel实战技巧78：创建个人宏工作簿

(ByVal Sh As Object) WorkbookReference = Sh.Parent.Name SheetReference = Sh.Name End Sub '在关闭工作簿前保存当前工作表信息...Tab追踪和快捷键触发 Sub TabBack_Run() '启动TabTracker类 Set TabTracker.AppEvent = Application '当用户按下Alt+...`时调用ToggleBack过程 Application.OnKey "%`","ToggleBack" End Sub '返回到前一个工作表 Sub ToggleBack() With TabTracker...With End Sub 最后，双击打开ThisWorkbook模块，输入代码： '打开工作簿时运行 Private Sub Workbook_Open() Call TabBack_Run...End Sub 保存并关闭Excel文件，然后随便打开一个工作簿，发现可以使用快捷键Alt+`在当前工作表和前一个工作表之间来回切换了。

2.8K3 0

Excel事件（二）工作表事件

左侧工程资源管理窗口中双击选中的工作表。右侧会出现对应工作表的代码窗口。依次在左上角列表中选择worksheet对象，再从右上列表中选择对应的工作表事件。...所以用户修改单元格的内容时，先触发了代码运行后。要先禁止事件。让中间的代码去添加“内容已更改”标识。此时因为禁止事件而不会触发，修改完之后再恢复事件开启即可。...= 15 End Sub 代码中，当选中一个单元格时，触发selectchange事件，首先cells.Interior.ColorIndex = xlNone表示取消所有单元格（cells）的底色，...Private Sub Worksheet_Deactivate() MsgBox "不允许编辑汇总表之外的其他工作表" Worksheets("汇总表").Select End Sub 当选中其他工作表...Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

3.5K1 0

VB中的滚动条和颜色的灵活使用【VB学习笔记2020课堂版10】

(红色，绿色，蓝色)，每种颜色的数据范围在[0,255] 横/纵向滚动条相关设置：设置最小值：min属性设置最大值：max属性设置或获取当前值：value属性滚动条重要事件：change事件双击滚动条可以默认进入...change事件，这个事件的作用就是当滚动条的值发生变化后会实时触发这个事件，执行这个事件内部的代码。...源代码分享： Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Label1.BackColor...= RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll1_Change() Label1....Sub Private Sub VScroll1_Change() Label1.Width = VScroll1.Value End Sub Private Sub VScroll2_Change

1.2K1 0

Excel VBA事件——Worksheet

(ByVal Target As Range) End Sub Target就是变化后选中的单元格。...End Sub 这样设置的聚光灯只能高亮显示1行，好处是不会清除原本的单元格底色。...3、Worksheet_BeforeDoubleClick 这个就是对单元格进行双击，双击后正常是进入编辑状态，在进入编辑状态之前发生的事件。...，比如某列存放了一些文件的路径，希望双击的时候打开对应的文件： Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel...If End If End If End Sub 工作表事件的代码是放在Sheet#里面的，如果仔细看过Workbook的事件，应该会发现其实Workbook事件里也有类似上面提到的那几个事件

3K5 0

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

在阅读本文之前，建议先阅读下面3篇文章： 1.一起学Excel专业开发22：使用类模块创建对象1 2.一起学Excel专业开发23：使用类模块创建对象2 3.一起学Excel专业开发24：使用类模块创建对象...Set Worksheet(wks As Excel.Worksheet) Set mwksWorksheet = wks End Property '捕获双击工作表单元格事件 Private...If End Sub '捕获右击工作表单元格事件 Private Sub mwksWorksheet_BeforeRightClick(ByVal Target As Range, Cancel...If End Sub 然后，修改标准模块中的CreateCellsCollection过程代码如下： Public Sub CreateCellsCollection() Dim clsCell...然后，在工作表中双击某单元格，你会发现同类型的单元格都改为相同的背景色，在其中某个单元格上右击，背景色消失。 ? 图2

7373 0

微信PC端技术研究(3)-如何找到消息发送接口

通过 OD 查看到，在输入框清空后，2A1E1A8的内容确实没有变化，和发送前一样，并且在重新输入新的内容之后，该内存内容同步更新。...在 OD 的底部命令窗口输入bp 6f068437和bp 6f056d37，删掉之前CTxtEdit::OnTxInPlaceActivate的断点，然后F9跑起来。 ?...举个例子，如果sub_100DD340是消息发送接口，在我手工屏蔽其功能之后，消息肯定发不出去了，那么我就可以通过看到的结果（是否发送成功）来确认sub_100DD340是不是要找到的消息发送接口。...xx，双击输入 retn xx 即可这样sub_100DD340函数直接在入口就返回了，功能没有了，也保证了函数调用时的栈平衡。...在确认sub_100DD340并没有影响消息发送之后，通过右键撤销选择处修改恢复修改的内容。如此重复筛选其他的函数，最终确认sub_100C4450为发送消息函数。

1.6K5 0

Excel将单元格内的url批量转化为图片格式的三种方法

有个别链接为黑体格式开发工具——Visual Basic（或者ALT+F11快捷键）进入VB界面，然后双击sheet1按钮打开VB编程窗口 ?...If End With End If Next End Sub ?...If End With HLK.Parent.Value = "" '删除单元格的图片链接 End If Next End Sub 在VB界面右键sheet...执行后的结果 3、主动选择是否打开图片同方法1，但是需要选择声明为BeforeRightClick，设置为右键时触发 ?...If End With End If Next End Sub

18.8K4 1

Excel实战技巧66：创建向导样式的数据输入窗体5

在初始化用户窗体之前，必须设置cStepManager对象，因为该用户窗体使用PageSettings集合来设置它自已。初始化组合框下一步是将组合框绑定到它们各自的列表。...1.在VBE中，双击工程资源管理器窗口的用户窗体。 2.单击标准工具栏中的“运行子过程/用户窗体”按钮或者按F5键，如下图24所示。 ?...Sub 在向导中移到下一步之前首先需要做的是保留在当前用户窗体中输入的值。...无论何时改变多页控件中的页面，控件的Change事件被触发。我们使用事件去捕捉当前页面的值，并将其存储在m_oWizard对象的CurrentPage属性中。...Sub 在设置Worksheet属性之后，以便于cHRData对象知道在哪里保存数据，调用SaveEmployee方法，传递m_oEmployee对象，那里包含要保存的所有数据。

1.7K2 0

VBA: 隐藏模块中出现编译错误：的解决对策

2 更新旧版本的VBA代码对于在 Office 2010 版本之前（VBA 版本 6 和更早版本）编写的 VBA 代码，需要修改为在 64 位 Office 版本中运行，否则在 64 位平台上运行时会导致错误...hook Hook End If End Function （2）在Project界面上，右击sheet1工作表，选择查看代码，将如下代码拷贝进去。...Option Explicit Sub 破解() If Hook Then MsgBox "破解成功" End If End Sub Sub 恢复() RecoverBytes MsgBox "恢复成功..." End Sub （3）打开需要破解VBA工程密码的工作簿。...(5) 双击刚才要解密的VBA工程窗体，发现已经可以查看之前受保护的模块代码了。

12.8K1 0

VBA实战技巧32：安装Excel加载宏

If End If End If End Sub 这里的关键函数名为“CheckInstall”。...下面是添加一个空工作簿并再次删除它的代码： Option Private Module Dim moWB As Workbook Sub AddEmptyBook() '如果需要添加一个空工作簿....代码在ThisWorkbook 模块中： Private Sub Workbook_Open() CheckInstall End Sub 如果直接从Workbook_Open事件调用过程，某些Excel...使用OnTime方法使Excel有时间在启动安装过程之前执行其所有启动的一些工作： Private Sub Workbook_Open() Application.OnTimeNow, "'"...CheckInstall" End Sub

4.8K2 0

Excel VBA编程

常用的worksheet事件事件名称时间说明 activate 激活工作表时发生 beforeDelete 在删除工作表之前发生 beforeDoubleClick 双击工作表之后，默认的双击操作之前发生...beforeRightClick 右击工作表之后，默认的右击操作发生之前 calculate 重新计算工作表之后发生 change 工作表中的单元格发生更改时发生 deactivate 工作表由活动工作表变为不活动工作表时发生...AfterSave 当保存工作簿之后发生 BeforeClose 当关闭工作簿之前发生 BeforePrint 在打印指定工作簿之前发生 beforesave 在保存工作簿之前发生 Deavtivate...sheetBeforeDoubleClick 在双击任意工作表之前发生 sheetBeforeRightClick 在右击任意工作表之前发生 sheetCalculate 在重新计算工作表之后发生 SheetChange...", vbCritical, "错误" Exit Sub End If new2 = InputBox("请再次输入新密码：", "提示") If new1 =

45.5K2 2

Excel实战技巧73：使用组合框控件仿数据验证下拉列表

如下图1所示，在工作表Sheet1的列A中任意单元格上双击鼠标，将会出现一个窗体控件，单击其右侧的下拉箭头会出现列表，你可以从中选择列表项，所选项将被输入到该控件所在的单元格中，并且输入数据后该控件会消失...在工作表Sheet1的代码模块中，输入代码： Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean...AddDropList(Target) Cancel = True End If End Sub 上述代码在用户双击工作表Sheet1上列A中的单元格时，调用AddDropList...With End Sub '输入所选项后删除控件 Private Sub EnterInfo() With Sheet1.DropDowns(Application.Caller)....TopLeftCell.Value =.List(.ListIndex) .Delete End With End Sub 说明： 1.AddDropList过程使用DropDowns

2.7K3 0

Excel揭秘24：使用SpecialCells方法带来的后果

图1 将下面的代码输入到该工作表的代码模块中： Sub TestSpecialCells1() Cells.SpecialCells xlCellTypeBlanks End Sub Private...Sub Worksheet_SelectionChange(ByVal TargetAs Range) MsgBox Target.Address End Sub 如果运行TestSpecialCells1...例如： Sub TestSpecialCells2() Cells.SpecialCells xlCellTypeLastCell End Sub Cells.SpecialCells xlCellTypeLastCell...会导致Worksheet_SelectionChange事件触发2次。...在Microsoft发现并解决此事件问题之前，解决方法是在使用前将Application.EnableEvents设置为False，并在使用后再次将其设置为True。

1.1K2 0

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

注意，默认的工作表事件过程是SelectionChange事件，每次更改活动单元格时都会触发该事件。...在这种情况下，最好使用工作表对象的Change事件并确保它仅在特定单元格的值发生更改时运行，而不是每次更改任何单元格值时都触发该事件过程。...打开VBE，在左侧“工程资源管理器”中，双击数据验证所在的工作表名，在右侧代码窗口顶部，左侧下拉列表选择“Worksheet”，右侧下拉列表选择“Change”，如下图3所示。...图3 输入如下代码： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = " Range...End If End Sub 至此，当更改单元格C2中的选择项时，单元格C6中的内容将更新为“请选择…”，如下图4所示。图4

4.6K2 0

使用VBA重命名文件：5个代码示例

Sub RenameFile() Name "D:\完美Excel\date.xlsx" As _ "D:\完美Excel\我的文章\date-重命名.xlsx" End Sub...("C4") End Sub 示例3：使用Name命令移动文件注意到Name命令需要文件路径和文件名吗？...If On Error GoTo 0 End Sub 示例5：可重用函数可以创建一个可重用函数。...2.在工作表中像Excel内置函数一样调用。图2 TRUE表示以单元格C2中值命名的文件已成功重命名为单元格C4中值的文件。如果我们再次运行该函数，它将显示FALSE，因为文件已经重命名。...可能的错误如果试图重命名不存在的文件或文件夹路径，则会触发错误：运行时错误'53’:未找到文件。如果新文件名与现有文件名相同，则会触发以下错误：运行时错误’58’：文件已存在。

2.2K3 0

在 WinCC V7.5 SP1 中修改报警记录的消息文本1

例如，图 1 中报警的消息文本“设备 2故障，原因：电气故障”，这其中“电气故障”信息就是在分析报警产生的原因之后由操作人员选择相应报警并写入原因。...2 <在 WinCC 创建以下内部变量，用于触发报警并保存所选报警的时间信息。这其中，变量“alarm1”用于触发 WinCC 报警。...> 4.3 <双击报警视图控件，在“常规”栏下为打开画面是显示的列表选择“1-短期归档列表”，并取消“自动滚动”选项，如图 8 所示。...报警触发之后，需要在消息列表中选择要写入报警原因的报警，并且要获取所选报警的编号及时间信息。...Sub

3.1K1 1

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭