用 VBA 实现鼠标点击输入数据

本文分享内容：用VBA代码实现鼠标点击输入数据。主要分享ActiveWindow.RangeSelection 在VBA中的运用

实现功能：当鼠标点击指定区域时，指定输入框自动获取鼠标点击的单元格内容，从而实现用鼠标进行数据的快速输入。

本文最后会附教程下载地址和代码解释。

1、清除按钮的制作：

1.1如下图，点击开发工具，在表格中制作一个按钮。

1.2 弹出的对话框点击取消

1.3 选择按钮，更改名字为“清除”。

1.4 点击开发工具—Visual Basic 打开VBA窗口。

1.5 鼠标右击空白处，插入模块

1.6 在模块内输入代码。Range("D6:I6")表示要清空D6到I6单元格的数据。

1.7 选择按钮，右键选择“指定宏”

1.8 选择“清除”后确定，清除按钮制作完毕。

2 鼠标点击事件

2.1 鼠标右键点击该工作表，选择查看代码。

2.2 然后按下图所示选择“worksheet”和“selectionchange”

2.3 代码输入：然后输入如下代码。（括号内为代码解释）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

i = ActiveWindow.RangeSelection.Row（获取鼠标点击的行号）

k = ActiveWindow.RangeSelection.Colum（获取鼠标点击的列号）n

If i >= 8 And i <= 12 And k >= 4 And k <= 9 Then （锁定鼠标点击区域。鼠标在单元格8至12行，4至9列内点击）

If Sheet1.Range("d6") = "" Then （当第一个输入框是空值时，将鼠标点击单元格的值赋值给输入框）

Sheet1.Range("d6") = ActiveWindow.RangeSelection

Exit Sub

End If

If Sheet1.Range("d6") <> "" And Sheet1.Range("E6") = "" Then（当第一个输入框不是空值，第二个输入框是空值时，将将鼠标点击单元格的值赋值给第二个输入框）

Sheet1.Range("E6") = ActiveWindow.RangeSelection

Exit Sub

End If

以下代码同上，依次判定输入框是否有内容，依次赋值。

If Sheet1.Range("d6") <> "" And Sheet1.Range("E6") <> "" And Sheet1.Range("F6") = "" Then

Sheet1.Range("F6") = ActiveWindow.RangeSelection

Exit Sub

End If

If Sheet1.Range("d6") <> "" And Sheet1.Range("E6") <> "" And Sheet1.Range("F6") <> "" And Sheet1.Range("g6") = "" Then

Sheet1.Range("g6") = ActiveWindow.RangeSelection

Exit Sub

End If

If Sheet1.Range("d6") <> "" And Sheet1.Range("E6") <> "" And Sheet1.Range("F6") <> "" And Sheet1.Range("g6") <> "" And Sheet1.Range("h6") = "" Then

Sheet1.Range("h6") = ActiveWindow.RangeSelection

Exit Sub

End If

If Sheet1.Range("d6") <> "" And Sheet1.Range("E6") <> "" And Sheet1.Range("F6") <> "" And Sheet1.Range("g6") <> "" And Sheet1.Range("h6") <> "" And Sheet1.Range("i6") = "" Then

Sheet1.Range("i6") = ActiveWindow.RangeSelection

Exit Sub

End If

End If

End Sub

教程下载地址：https://pan.baidu.com/s/1a7L64MgSWcvx167eYRZf0w?pwd=oi78

提取码：oi78

有喜欢本文的可点赞、转发、评论支持哦。希望大家多多支持！