对于Excel VBA来说,用户与应用程序的交互主要是通过工作表的数据区来进行的,除此之外,交互的方式还有:
I Excel内置对话框,可以通过VBA代码调用;
II 可以在VBE中编写用户窗体,用户与应用程序的输入、输出交互可以在自定义窗体中进行;
III 调用专门的输入、输出对话框;
1 在VBA中,可以通过VBA函数、或对象方法调用对话框输入数据。
1.1 通过VBA函数InputBox输入
Sub 使用InputBox函数()
Dim sPrompt As String
Dim sTitle As String
Dim sDefault As String
Dim sReturn As String
sPrompt = "请输入用户姓名:"
sTitle = "输入姓名"
sDefault = "伍远高"
sReturn = InputBox(sPrompt, sTitle, sDefault)
Debug.Print sReturn
End Sub
1.2 通过对象的InputBox方法调用对话框输入
Sub 使用InputBox方法()
Worksheets("Sheet1").Activate
Set myCell = A( _
prompt:="选择一个单元格", Type:=8)
End Sub
2 使用msgbox函数显示信息对话框
Sub 使用msgbox函数退出系统()
Dim intReturn As Integer
intReturn = MsgBox("真的退出系统码?", vbYesNo + vbQuestion, "提示")
If intReturn = vbYes Then A
End Sub
-End-