vue 鼠标点击事件_点击鼠标，利用VBA代码实现精准控制触发事件的第二方案

大家好，我们今日继续讲解VBA代码解决方案的第115讲内容：工作表事件中，根据Target参数不同，实现精准控制触发事件的VBA代码第二方案。在上一讲中我们讲了利用Address的属性实现控制触发事件的方案，今日讲解第二方案，就是利用Column属性和Row属性的方法，哪种方法好呢？这就要靠写代码人员的偏好了，有的人喜欢第一种，有的人喜欢第二种，我自己偏好第二种，就是今天讲的这种了。

使用单元格的Column属性和Row属性可以将触发条件限制在某一区域内，下面有一个程序供大家参考。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Columns("B:B").ClearContents

If Target.Column = 1 And Target.Row < 80 Then

Target.Offset(0, 1) = Val(Target)

End If

End Sub

代码窗口：

代码解析：当点击工作表的A1到A80单元格时，将在对应的B列显示A列的数值。

第3行代码使用Column属性将触发条件限制在第1列，使用Row属性将触发条件限制在第80行以内，也就是A1到A80的区域范围内。

运行，我们在工作表中A列和C列事先录入同样的数字，并把列的字体设置为白色隐藏，点击A列就会在B列出现A列的数字，类似于游戏效果。

二为了实现根据单元格选中范围精准的控制选择触发事件，我们需要对代码进一步优化。例如：当我们选中的是两个或两个以上连续单元格，而且是在一列时才能执行后续的代码(可以为两个连续个单格，也可以是多个连续单元格，但必须是为同一列)，其它情况时则 Exit Sub 跳出过程，该如何写代码呢？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then

If Target(1).Resize(Target.Count).Address = Target.Address Then

MsgBox "可以执行你的以下代码"

Else

Exit Sub

End If

End Sub

代码窗口：

代码解析： Target(1).Resize(Target.Count).Address 为以Target(1)扩展后的区域；如果和 Target.Address 一样就可以说明是一列的连续区域了。

备考：利用Resize属性对单元格进行扩张时，是以原单元格为起始点但包括原单元格本身的扩张。Resize属性的语法为：

Range对象.Resize(RowSize,ColumnSize)扩展特定的单元格，返回一个由参数RowSize和ColumnSize指定行列数的单元格区域。

其中：参数RowSize指定新单元格区域的行数。若省略该参数，则新单元格区域的行数与原来相同。Range('A1').Resize(1, 3).Select等价于代码(省略了第一个参数)：Range('A1').Resize(, 3).Select都将选择单元格区域A1:C1。

参数ColumnSize指定新单元格区域的列数。若省略该参数，则新单元格区域的列数与原来相同。

运行：

今日内容回向：

1 如何利用Column属性和Row属性实现精准的触发事件？

2 如何判断连续的单元格在整行或整列呢？

vue 鼠标点击事件_点击鼠标，利用VBA代码实现精准控制触发事件的第二方案相关推荐

vue 鼠标点击事件_VBA代码解决方案第115讲：点击鼠标实现精准控制触发事件的VBA代码第二方案...
大家好,我们今日继续讲解VBA代码解决方案的第115讲内容:工作表事件中,根据Target参数不同,实现精准控制触发事件的VBA代码第二方案.在上一讲中我们讲了利用Address的属性实现控制触发事件 ...
java弹窗触发事件_关于ElementUI中MessageBox弹框的取消键盘触发事件(enter,esc)关闭弹窗(执行事件)的解决方法...
好久没见了在项目中遇到一个小小的需求,总结了一下! 详细我就不介绍了,相信大家用过的话,很了解.详见文档-----------> http://element-cn.eleme.io/#/zh ...
python中tkinter鼠标事件_按下鼠标按钮（按住）的Tkinter事件？
更新:这是一个版本问题.该事件不会在单击Python3.6.1时触发,但可以在我目前测试过的2.7上运行.在更新:Bryan的回答确实解决了我的事件不能正常工作的问题,但是在我的3.6.1版本的py ...
vue 前台文本修改触发事件_利用VBA代码禁用触发事件及对工作薄修改的保存方案...
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,这些内容多是取至我的"VBA代码解决方案"教程中内容.NO.143- ...
chart控件支持鼠标滚轮放大缩小_强大的鼠标侧键功能设置工具：X-Mouse Button Control...
Update:以下内容仅适用于 Windows 系统!AutoCAD for mac 用户该怎么办,下次再细说... 作为 AutoCAD 用户,一个好的鼠标,能让工作更加高效和身心健康!所以,一定要 ...
使鼠标保持按住状态_按下鼠标就能语音打字？讯飞这款鼠标是提高工作效率的好帮手...
本文由极果体验师穷咖先森原创人工智能发展的这么迅速的今天,手机都疯狂的开发语音识别功能,就连电脑也都有了语音助手,但是使用电脑大多数时候都是需要我们用手打字的.今天跟大家分享的一个鼠标就厉害了,不用 ...
vba 判断文本框内容是否为空_校验数据一旦失败，VBA代码自动控制焦点返回的另一备选方案...
大家好,我们今日继续讲解VBA代码解决方案的第95讲内容:如果文本框的录入校验不能通过,光标仍返回文本框中的另一方案.在上一讲中我讲了利用EXIT事件中的Cancel 参数的设置来达到我们的目的(值是 ...
access子窗体的控件vba怎么写_第37讲：VBA代码中运行错误的处理方式
大家好,本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九,但之九的内容是错误的处理,为了大家能更好的掌握之九二师兄的成才内容,我们临时加入一讲专门讲解VBA中错误处理,这一讲中我重点讲一下V ...
find vba 模糊_利用VBA代码实现多重查找、模糊查找、清除值的方案
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,第NO.111-NO.113则,内容是:利用FindNext完成多重查找.利用Clear ...
vba工作表重命名_使用带有条件的VBA代码重命名工作表列表
vba工作表重命名 Renaming of worksheets can be done manually, but it will look like a massive task if there ...

vue 鼠标点击事件_点击鼠标，利用VBA代码实现精准控制触发事件的第二方案

vue 鼠标点击事件_点击鼠标，利用VBA代码实现精准控制触发事件的第二方案相关推荐

最新文章

热门文章