界面交互
控件
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 |