第1个回答 2020-10-26
您好,方法
在Excel中按下Alt+F11,打开VBE界面,
点击“插入”,“用户窗体”,
然后点击“命令按钮”,并在用户窗体上拖动,创建一个命令按钮,如下图所示:
如何用Excel制作一个简单又有意思的程序?
按下F4,在Caption属性中,更改命令按钮显示内容,如下图所示:
如何用Excel制作一个简单又有意思的程序?
然后双击用户窗体,用下面代码替换原来的代码
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X > 0 Then
Me.Left = Application.RandBetween(0, 800)
Me.Top = Application.RandBetween(0, 350)
End If
End Sub
如下图所示:
如何用Excel制作一个简单又有意思的程序?
双击右侧的“Thisworkbook”,复制下面的代码,如下图所示:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
如何用Excel制作一个简单又有意思的程序?
将Excel文件保存为“Excel启用宏的工作簿”,如下图所示:
如何用Excel制作一个简单又有意思的程序?
关闭,再打开这个Excel文件,就可以看到编写的程序了。