通过窗体插入一个按钮，输入以下代码
Static i
i = i + 1
ActiveSheet.Shapes("按钮 1").Select
Selection.Characters.Text = i
例如点击第1行
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then MsgBox ("你真是一个好人！")
End Sub
sub 按钮()
[c1]=[c1]+1
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024