如何在电子表格中插入a下面带一个小1

发布网友发布时间：2022-02-27 15:12

共1个回答

热心网友时间：2022-02-27 16:41

使用VBA函数实现：PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)OnErrorResumeNext IfTarget.Address="$A$3"OrTarget.Address="$B$3"_ OrTarget.Address="$C$3"OrTarget.Address="$D$3"Then Target.Value=Target.Value+1 EndIfEndSub说明：1.打开VBA后，选择下图中左下方列表中你要实现此功能的表；在右边选择“SelectionChange”函数，此函数为相应表变化时（如点击不同的单元格），触发。2.函数中Target.Address="$A$3"语句中的“$A$3”，即你想实现此功能的单元格，只有点击该单元格时，单元格内的数据才会自动加1。3.该函数点击计数单元格后，需点击一次其他单元格后，再次点击，才会加1，为了防止误点。截图：