怎么在vb中实现点击事件
发布网友
发布时间：2024-01-04 10:58
共1个回答
热心网友
时间：2024-03-04 09:30
首先点文件->选项
出现界面如下
首先在自定义功能区添加开发工具
activex控件第一个是按钮
然后创建一个按钮
保证设计模式是绿色底的，就是激活了设计模式，这个时候按钮只是一张图片不会触发。
双击这个图片。
Private Sub CommandButton1_Click()
If IsNumeric(Replace(ThisWorkbook.ActiveSheet.Cells(1, 1).Value, Chr(34), "")) Then
ThisWorkbook.ActiveSheet.Cells(1, 1).Value = Chr(34) & (CDbl(Replace(ThisWorkbook.ActiveSheet.Cells(1, 1).Value, Chr(34), "")) + 1) & Chr(34)
ElseIf IsNumeric(ThisWorkbook.ActiveSheet.Cells(1, 1).Value) Then
ThisWorkbook.ActiveSheet.Cells(1, 1).Value = ThisWorkbook.ActiveSheet.Cells(1, 1).Value + 1
End If
End Sub
-1同理
