VBA 自定义对话框_vba 自定义application.inputbox

今天主要讲讲自定义对话框这一章，中间鸽了一小部分的函数过程，WindowsAPI、连接数据库的内容还没学，后续再更新。

一、inputbox

inputbox输入框之前已经用过了，但是除了之前VBA中用的inputbox之外，还有Application对象中的方法，这两个是不一样的。

①VBA中的inputbox函数用法：

    Dim str As String
    str = InputBox("请随便输入一串字符串")

VBA中的inputbox函数完整方法：

InputBox(prompt、[ title ]、[ default ]、[ xpos ]、[ ypos ]、[HelpFile、Context])

prompt：必填，也就是要显示的提示信息，最多1024个字符，回车(chr(13))、换行(chr(10))

title：可选，输入框的标题。不写的话就是上图的“Microsoft Excel”。

default：可选，指定一个初始值，用户输入前就会有个内容

xpos：可选，提示框距离屏幕左侧位置（单位缇：1缇相当于1/15像素，按照现在的屏幕分辨率，起码上千才能到屏幕中间）

ypos：可选，提示框距离屏幕上侧位置（单位缇）

HelpFile：帮助文件

Context：帮助主题

也可以这样操作：

str = InputBox(prompt:="请输入", Title:="提示框", Default:="默认内容")

② EXCEL中inputbox方法用法：

InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId,Type)

Prompt：必填，也就是要显示的提示信息，可以是字符串、数字、日期、布尔值，当然了，显示的时候都会被强制转换为String类型。

Title：可选，输入框的标题。不写的话就是上图的“Microsoft Excel”。

Default：可选，指定一个初始值，用户输入前就会有个内容

Left：可选，提示框距离屏幕左侧位置（单位磅：1磅相当于1/72 英寸,约等于1/2.8mm，总之按照现在的屏幕分辨率，起码上千才能到屏幕中间）

Top：可选，提示框距离屏幕上侧位置（单位磅）

HelpFile：帮助文件

HelpContextId：帮助主题

Type：可选的参数，返回数据