在工作表的SelectionChange事件中

在工作表的SelectionChange事件中,参数Target代表新选定的区域,在工作表的Change事件中参数Target代表更改的区域。在实际应用中可以使用Target参数将触发工作表事件的区域限制在一定的范围内,有以下几种方法:1111、、、、使用单元格的使用单元格的使用单元格的使用单元格的AddressAddressAddressAddress属性属性属性属性使用单元格的Address属性可以将触发条件限制在某一个单元格中,如下面的代码所示。1.PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)2.IfTarget.Address(0,0)="A1"Then3.MsgBox"你选择了A1单元格"4.EndIf5.EndSub代码解析:当选择工作表A1单元格时显示一个消息框。第2行代码使用Address属性返回所选单元格的区域引用,当返回的区域引用是“A1”时触发SelectionChange事件,显示一个消息框。此方法只适用于单个单元格或者加上OR运算符可以适用于几个单元格,多则不方便。2222、、、、使用使用使用使用ColumnColumnColumnColumn属性和属性和属性和属性和RowRowRowRow属性属性属性属性使用单元格的Column属性和Row属性可以将触发条件限制在某一区域内,如下面的代码所示。1.PrivateSubWorksheet_Change(ByValTargetAsRange)2.IfTarget.Column=1AndTarget.Row<11Then3.Target.Offset(,1)=Val(Target)*34.EndIf5.EndSub代码解析:当改变工作表的A1到A10单元格时,如果输入的是数值则将在对应的B列单元格写入乘以3的数值。第2行代码使用Column属性将触发条件限制在第1列,使用Row属性将触发条件限制在第10行以内,也就是A1到A10的区域范围内。3使用Intersect方法使用Intersect方法可以很方便的指定一个或多个区域范围,如下面的代码所示。1.PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)2.IfNotApplication.Intersect(Target,Union(Range("A1:A10"),Range("C1:C10")))IsNothingThen3.MsgBox"你选择了"Target.Address(0,0)"单元格"4.EndIf5.EndSub代码解析:当选择工作表A1到A10,C1到C10单元格时将所选的单元格地址显示在消息框中。第2行代码使用Intersect方法判断所选单元格是否与A1到A10,C1到C10单元格重叠,如果重叠说明所选单元格在A1到A10,C1到C10单元格区域内。Intersect方法返回一个Range对象,此对象代表两个或多个范围重叠的矩形区域,语法如下:expression.Intersect(Arg1,Arg2,...)参数expression是可选的,返回一个Application对象。参数Arg1,Arg2,...是必需的,重叠的区域。必须指定至少两个Range对象原文地址:学用ExcelVBA对象的事件编程作者:无知者无畏前面几期,我们已经和大家一起学过了Excel中VBA对象的属性和方法以及它们的简单应用,相信大家通过学习已经有了不小的收获。Excel中的各类VBA方案都是建立在工作薄和工作表事件的基础上的,熟练地运用Excel事件编程可以灵活地控制工作薄和工作表。如何为工作薄和工作表对象指定事件在VBE编辑器窗口左侧的工程资源管理器中,双击其中的Thisworkbook(当前工作薄)或Sheet1、Sheet2(工作表)等对象,打开相应的代码窗口(如图1),在代码窗口中单击“对象框”右侧的下拉按钮,从对象列表中可找到当前的工作薄(Workbook)或工作表(Worksheet)对象。当用户选择相应对象时,代码窗口中会自动出现工作薄或工作表对象---本文来源于网络,仅供参考,勿照抄,如有侵权请联系删除---的默认事件程序,这些代码均以“Privatesub”开头,以“EndSub”结尾。其中工作薄默认的事件为“Open”事件,工作表默认的事件为“SelectionChange”事件,如果用户需要对当前对象的其它事件进行编程,可单击“过程/事件框”列表右侧的下拉按钮,从事件列表框中找到需要编写的事件,如选择工作薄的“BeforeClose”事件,此时系统会自动列出“PrivateSubWorkbook_BeforeClose(CancelAsBoolean)”和“EndSub”,然后就可以在这两行语句间编写有关的程序代码了,最后将不需要的事件程序删除即可。工作薄事件编程应用当我们每次打开、保存工作薄、更改工作薄中的任何工作表,加载宏等等操作的时候,在不经意间已经触发了工作薄的各种事件,只不过是因为用户没有为这些事件...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供参考,付费前请自行鉴别。
3、如文档内容存在侵犯商业秘密、侵犯著作权等,请点击“举报”。

常见问题具体如下:

1、问:已经付过费的文档可以多次下载吗?

      答:可以。登陆您已经付过费的账号,付过费的文档可以免费进行多次下载。

2、问:已经付过费的文档不知下载到什么地方去了?

     答:电脑端-浏览器下载列表里可以找到;手机端-文件管理或下载里可以找到。

            如以上两种方式都没有找到,请提供您的交易单号或截图及接收文档的邮箱等有效信息,发送到客服邮箱,客服经核实后,会将您已经付过费的文档即时发到您邮箱。

注:微信交易号是以“420000”开头的28位数字;

       支付宝交易号是以“2024XXXX”交易日期开头的28位数字。

客服邮箱:

biganzikefu@outlook.com

所有的文档都被视为“模板”,用于写作参考,下载前须认真查看,确认无误后再购买;

文档大部份都是可以预览的,笔杆子文库无法对文档的真实性、完整性、准确性以及专业性等问题提供审核和保证,请慎重购买;

文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为依据;

如果您还有什么不清楚的或需要我们协助,可以联系客服邮箱:

biganzikefu@outlook.com

常见问题具体如下:

1、问:已经付过费的文档可以多次下载吗?

      答:可以。登陆您已经付过费的账号,付过费的文档可以免费进行多次下载。

2、问:已经付过费的文档不知下载到什么地方去了?

     答:电脑端-浏览器下载列表里可以找到;手机端-文件管理或下载里可以找到。

            如以上两种方式都没有找到,请提供您的交易单号或截图及接收文档的邮箱等有效信息,发送到客服邮箱,客服经核实后,会将您已经付过费的文档即时发到您邮箱。

注:微信交易号是以“420000”开头的28位数字;

       支付宝交易号是以“2024XXXX”交易日期开头的28位数字。

笔杆子文秘
机构认证
内容提供者

为您提供优质文档,供您参考!

确认删除?