VBA---界面交互

界面交互

控件

 

box

Dim str As String str = InputBox(prompt:="  "[,Title:="  ",Default:="  ",xpos:=20,ypos:=25]) As String屏幕默认1/2和1/3] str = Application.InputBox(prompt:="  "[,Title:="  ",Default:="  ",Left:=20,Top:=25],Type=  ) 窗体 0公式1数字2文本4Boolean 8Range 16错误值 64数值数组 多种类型数值相加

Sub msgbut()                 MsgBox prompt:="  ",Buttons:=   End Sub 0vbOkonely 1vbOkCancel 2vbAbortRetryIgnore 3vbYesNoCancel 4vbYesNo 5vbRetryCanel 16vbCritical 32vbQuestion 48vbExclamation 64vbInformation   两类型用+链接 0vbDefaultButton1 256vbDefaultButton2 512vbDefaultButton3 768vbDefaultButton4 0vbApplicationModel 4096vbSystemModel 1vbOk 2vbCancel 3vbAbort 4vbRetry 5vbIgnore 6vbYes 7vbNo

窗体

	Sub xianshi()                 [Load 窗体名称]                 窗体名称.Show vbModal/vbModeless可操作                 窗体名称.hide                 Unload 窗体名称 End Sub
复选框	Private Sub UserForm_Initialize()                 性别.List = Array("男","女") EndSub
Button	Private Sub 确定_Click()                 …… End sub Private Sub退出_Click()                 Unload Me End Sub
Tab键设置 快捷键设置