对于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-

相关推荐