Question

我在EXCEL中用宏编写一个小程序给谋个单元格内每次加一

Answer 1

将语句改为：
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
'(当前工作表发生内樱森容改变触发宏命令)
If
Worksheets("Sheet1").Cells(5,
3).Value
=
"1"
Then
Worksheets(1).Activate
Dim
i
As
Integer
For
i
=
Sheet1.Cells(5,
4)
To
Sheet1.Cells(5,
4)
+
1
Sheet1.Cells(5,
4)
=
i
Next
i
Worksheets("Sheet1").Cells(5,
3).Value
=
"
"渣团
Else
End
If
End
Sub
就如颂橘可以了