UC知道请问能够每点击一次单元格，里面的数据可以自动加1，累计
来源：百度知道 编辑：UC知道 时间：2024/05/17 00:41:33
比方说 我单击a1单元格，原来a1的内容是空白的，单击后，单元格的内容显示为1，再单击一次后，显示为2．依次不断累计．请教高人老师应该如何操作,也不只是只要A1,有时要一块区域.我在网上搜到了代码,但我对这东西实在太菜了,所以不知道怎么用,在这儿请各位大虾帮下小弟．谢谢!!!以下为我找到的代码.
Sub AddOne()
If Selection.Cells.Count = 1 Then
ActiveCell = ActiveCell + 1
Else
If IsEmpty(Selection.Cells(1)) Then Selection.Cells(1) = 1
If Selection.Rows.Count = 1 Then
Selection.DataSeries Rowcol:=xlRows
Else
Selection.DataSeries Rowcol:=xlColumns
End If
End If
End Sub
Sub AddOne()
If Selection.Cells.Count = 1 Then
ActiveCell = ActiveCell + 1
Else
If IsEmpty(Selection.Cells(1)) Then Selection.Cells(1) = 1
If Selection.Rows.Count = 1 Then
Selection.DataSeries Rowcol:=xlRows
Else
Selection.DataSeries Rowcol:=xlColumns
End If
End If
End Sub
Private Sub CommandButton8_Click()
a = Cells(8, 3).Value
Cells(8, 3).Value = a + 1
End Sub
你新建一个按钮,然后用以上代码,其中中间两行的中的数字8、3代表行与列，3列为C列。1列为A列。
建多个按钮时只需更改按钮所在的单元格坐标，即行数与列数，其它不用改。