Excel VBA单元格数据自增1

最新推荐文章于 2023-07-19 17:16:09 发布

SeanLanx

最新推荐文章于 2023-07-19 17:16:09 发布

阅读量4.2k

点赞数

文章标签： excel vba

本文链接：https://blog.csdn.net/weixin_43200708/article/details/105467132

版权

本文介绍如何利用Excel的VBA功能，当在特定区域内点击单元格时，其数据能自动增加1。首先开启开发人员工具，然后进入Visual Basic环境。通过结合Row()和Column()函数确定当前选中单元格的行列位置，设定合适的条件，即可实现这一自动化操作。

摘要由CSDN通过智能技术生成

想要在指定区域内的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

关注