我的第一个VBA代码

消息框编写

打开Excel，点击开发工具-Visual basic，出现VBE窗口，在菜单栏找到插入，点击插入模块。

在工程窗口右键点击模块-插入窗体控件

控件选择按钮，并修改按钮文字内容

双击按钮，出现代码框输入如下代码：

Private Sub CommandButton1_Click()
   If vbOK = (MsgBox("请再次确定", vbOKCancel, "提示")) Then
      MsgBox "还是不能确定^。^", vbOKOnly
   End If
End Sub

点击菜单栏运行-用户窗体，或者按F5运行代码
效果预览：