想要在指定区域内的excel表格内,鼠标点击一次,单元格数据自动增1。
首先找到excel的开发人员工具,然后进入Visual Basic。
通过Row()和Column()函数获取当前点击单元格的行和列,再加以限制想要的行列条件,即可实现在指定区域内鼠标点击一次单元格,数据自动加1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hang As Integer
Dim lie As Integer
hang = Target.Row
lie = Target.Column
If (hang