inputbox
 
prompt：=提示文字
 title：=最上面的那个字
 default：=默认值，如果你啥都不写，那就是这个默认值
 xpos：=左端与屏幕左端的距离
 ypos：=顶端与屏幕顶端的距离
 
 
在输入对话框在VBA中有两种形式，分别是：
 
InputBox
Expression.InputBox
 
二者在大致功能上基本相同，个人认为二者重点差异为：
 
后者有 Type 参数，可以限制输入类型，同时可以引用单元格 ；
二者输入时， 空值、取消 的返回值不同。
 
也就是多了一个type参数，这也就代表了后者的东西更多一点东西，前面的input输出的也就是一个str罢了，但是后面的东西输出的东西可以限制，也可以直接用在单元格上，也就是升级版吧。
 
MSGBOX函数
 
prompt：=“中午妈的”
 buttons：=图标和按钮
 title：=“就是弹出框上面的那个“
 
 按钮
 
 
 
 图标
 
 
 
 两个都要设置的时候，就用+把这两个代码链接在一起
 
默认值
 
 依然的buttons属性，只要和上面一样，在后面弄个+号就行了
 
选择不同的值，处理不同的结果
 

 
 
今天主要讲讲自定义对话框这一章，中间鸽了一小部分的函数过程，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：可选的参数，返回数据类型的代号
 
type和之前的函数比是多出来的，参数可以直接写数字，也可以写公式（例如4+4），有以下几种：
 
 
 
值
 
 
说明
 
 
0
 
 
公式
 
 
1
 
 
数字
 
 
2
 
 
文本（字符串）
 
 
4
 
 
逻辑值（True 或 False）
 
 
8
 
 
Range 对象形式的单元格引用
 
 
16
 
 
错误值，如 #N/A
 
 
64
 
 
数值数组
 
 
例如需要用户输入单元格区域，可以这样操作：
 
str = Application.InputBox(prompt:="请输入单元格区域", Type:=8)
 
type的好处是会自动判断用户输入的数据类型。
 
 
 
 
 
 
二、VBA中的Msgbox
 
MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])
 
prompt：必填，也就是要显示的提示信息，最多1024个字符，回车(chr(13))、换行(chr(10))
 
buttons ：可选。 数值表达式，用于指定要显示按钮的类型。
 
title：可选，输入框的标题。不写的话就是上图的“Microsoft Excel”。
 
HelpFile：帮助文件
 
Context：帮助主题
 
buttons 参数设置如下：
 
 
 
二、VBA中的Msgbox
 
 
值
 
 
说明
 
 
MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])
 
 
0
 
 
仅显示“确定”按钮。
 
 
prompt：必填，也就是要显示的提示信息，最多1024个字符，回车(chr(13))、换行(chr(10))
 
 
1
 
 
显示“确定”和“取消”按钮。
 
 
buttons ：可选。 数值表达式，用于指定要显示按钮的类型。
 
 
2
 
 
显示“中止”、“重试”和“忽略”按钮。
 
 
title：可选，输入框的标题。不写的话就是上图的“Microsoft Excel”。
 
 
3
 
 
显示“是”、“否”和“取消”按钮。
 
 
HelpFile：帮助文件
 
 
4
 
 
显示“是”和“否”按钮。
 
 
Context：帮助主题
 
 
5
 
 
显示“重试”和“取消”按钮。
 
 
buttons 参数设置如下：
 
 
16
 
 
显示“关键消息”图标。
 
 
vbQuestion
 
 
32
 
 
显示“警告查询”图标。
 
 
vbExclamation
 
 
48
 
 
显示“警告消息”图标。
 
 
vbInformation
 
 
64
 
 
显示“信息消息”图标。
 
 
vbDefaultButton1
 
 
0
 
 
第一个按钮是默认按钮。
 
 
vbDefaultButton2
 
 
256
 
 
第二个按钮是默认按钮。
 
 
vbDefaultButton3
 
 
512
 
 
第三个按钮是默认按钮。
 
 
vbDefaultButton4
 
 
768
 
 
第四个按钮是默认按钮。
 
 
vbApplicationModal
 
 
0
 
 
应用程序模式；用户在继续在当前应用程序中工作前必须响应消息框。
 
 
vbSystemModal
 
 
4096
 
 
系统模式；在用户响应消息框前，所有应用程序都挂起。
 
 
vbMsgBoxHelpButton
 
 
16384
 
 
在消息框中添加“帮助”按钮。
 
 
vbMsgBoxSetForeground
 
 
65536
 
 
将消息框窗口指定为前景窗口。
 
 
vbMsgBoxRight
 
 
524288
 
 
文本右对齐。
 
 
vbMsgBoxRtlReading
 
 
1048576
 
 
指定文本在希伯来语和阿拉伯语系统中应从右到左显示。
 
 
下面两句意思一样
 
 
    str = MsgBox("请进行选择", 4)
    str = MsgBox("请进行选择", vbYesNo)
 
根据上面的各种Msgbox的按钮类型，可以得到以下几种用户点击的返回结果：
 
 
 
常量
 
 
值
 
 
说明
 
 
vbOK
 
 
1
 
 
确定
 
 
vbCancel
 
 
2
 
 
Cancel
 
 
vbAbort
 
 
3
 
 
中止
 
 
vbRetry
 
 
4
 
 
重试
 
 
vbIgnore
 
 
5
 
 
忽略
 
 
vbYes
 
 
6
 
 
是
 
 
vbNo
 
 
7
 
 
否
 
 
三、Excel文件和文件名获取方法
 
①GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
 
显示标准的 “打开” 对话框，并获取用户文件名，而不必真正打开任何文件。
 
FileFilter：可选，指定文件筛选条件的字符串。
 
FilterIndex：可选，指定默认文件筛选条件的索引号，编号从 1 直到 FileFilter 中指定的筛选器编号。 如果此参数被省略或大于存在的筛选器数，使用的是第一个文件筛选器。
 
Title:可选，指定对话框的标题。 如果此参数被省略，标题为“打开”。
 
ButtonText：可选，仅限 Macintosh。
 
MultiSelect：可选，允许选择多个文件名。 若为 False，仅允许选择一个文件名。
 
不写参数用法：
 
Sub demo()
    Dim fileName As String
    fileName = Application.GetOpenFilename
    MsgBox fileName
End Sub
 
此时只能选择一个文件，输出文件路径和名称
 
 
 
指定文件类型用法（比如指定EXCEL和WORD文件），默认选定为word文件，可以多选：
 
 
Sub demo()
    Dim fileName As Variant
    Dim filt As String
    Dim msg As String
    Dim i As Integer 
    msg = ""
    filt = "excel文件,*.xls*,word文件,*.doc*,所有文件,*.*"
    fileName = Application.GetOpenFilename(filt, 2, , , True)
    If IsArray(fileName) Then
        For i = LBound(fileName) To UBound(fileName)
            msg = msg + fileName(i)
        Next
    Else
        msg = fileName
    End If
    MsgBox msg
End Sub
 
需要注意的是，文件类型的选择上每一个类型要写两个内容，一个是文本提示，一个是后缀名。例如"excel文件,*.xls*，只写了后缀是会报错的。
 
LBound 函数：返回包含指定的数组维度的最小可用下标的Long数据类型。
 
UBound 函数：返回包含指定的数组维度的最大可用下标的Long数据类型。
 
 
 
② GetSaveAsFilename (InitialFilename, FileFilter, FilterIndex, Title, ButtonText)
 
显示标准的“另存为”**** 对话框，获取用户文件名，而无须真正保存任何文件
 
InitialFilename：指定建议的文件名。 如果省略该参数，Microsoft Excel 使用活动工作簿的名称。
 
FileFilter：指定文件筛选条件的字符串。 最大长度为 255 个字符，否则该方法返回错误 2015。
 
FilterIndex：指定默认文件筛选条件的索引号，范围为 1 到 FileFilter 指定的筛选条件数。 如果此参数被省略或大于存在的筛选器数，使用的是第一个文件筛选器。
 
Title：指定对话框的标题。 如果省略该参数，则使用默认标题。
 
ButtonText：仅限 Macintosh。
 
 
 
③FileDialog (fileDialogType)：获得目录的名称可以使用这个
 
返回一个 FileDialog 对象，它表示文件对话框的实例。 提示输入目录名称
 
fileDialogType：必需，文件对话框的类型。共以下几种：
 
msoFileDialogFilePicker。 允许用户选择文件。
 
msoFileDialogFolderPicker。 允许用户选择文件夹。
 
msoFileDialogOpen。 允许用户打开文件。
 
msoFileDialogSaveAs。 允许用户保存文件。
 
用法如下：
 
Sub demo2()
    Dim str As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "C:\"
        .Title = "选择一个文件夹"
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "啥也没选"
        Else
            MsgBox .SelectedItems(1)
        End If
    End With
End Sub
 
 
 
 
 
 
 

Sub XXX()
    Dim arr()
    arr = Application.GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , True)
    For i = LBound(arr) To UBound(arr)
        Cells(i, 1).Value = arr(i)
    Next
End Sub
 
以上例子为文件多选
 
 
以下是MICROSOFT的原文
 
Application.GetOpenFilename 方法
 显示标准的
“打开”对话框，并获取用户文件名，而不必真正打开任何文件。 
语法
 
表达式.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
 
表达式   一个代表 Application 对象的变量。
 
参数
 
 
 
名称
必选/可选
数据类型
描述
FileFilter
可选
Variant
一个指定文件筛选条件的字符串。
FilterIndex
可选
Variant
指定默认文件筛选条件的索引号，取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略该参数，或者该参数的值大于可用筛选条件数，则使用第一个文件筛选条件。
Title
可选
Variant
指定对话框的标题。如果省略该参数，则标题为“打开”。
ButtonText
可选
Variant
仅限 Macintosh。
MultiSelect
可选
Variant
如果为 True，则允许选择多个文件名。如果为 False，则只允许选择一个文件名。默认值为 False。
 
 
返回值
 Variant
 
说明
 
 
在 FileFilter 参数中传递的该字符串由文件筛选字符串对以及后跟的 MS-DOS 通配符文件筛选规范组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选 - 文本和加载宏：“文本文件 (*.txt),*.txt,加载宏文件 (*.xla),*.xla”。
 
要为单个文件筛选类型使用多个 MS-DOS 通配符表达式，需用分号将通配符表达式分开。例如：“Visual Basic 文件 (*.bas; *.txt),*.bas; *.txt”。
 
如果省略 FileFilter，则此参数默认为“所有文件 (*.*),*.*”。
 
本方法返回选定的文件名或用户输入的名称。返回的名称可能包含路径说明。如果 MultiSelect 为 True，则返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框，则该值为 False。
 
本方法可能更改当前驱动器或文件夹。

1、输入指定类型的数据
 
在前面已经将结果VBA中inputbox函数的使用，但是当输入的数据类型不匹配时，运行过程中会出现错误，为了避免这种错误，这里可以使用inputbox方法获取用户的输入。
 
该方法的格式为：expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)
 
prompt：必选项，作为对话框消息显示的字符串表达式
title：可选项，作为显示在对话框标题栏中的字符串表达式
default：可选项，在对话框显示时出现在文本框中的初始值
left：可选项，指定对话框相对于屏幕左上角的 x 坐标
top：可选项，指定对话框相对于屏幕左上角的 y 坐标
helpfile、HelpContextId：可选项， 为对话框提供上下文相关的帮助和编号，如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可
type：可选项，指定返回的数据类型。如果省略 Type 参数，对话框将返回文本
 
inputbox方法和函数的最大区别就在于最后一个参数type，通过该参数可以指定返回的数据类型，以及如何对内置的出错处理如下：
 
数值
期望的返回值
0
公式
1
数字
2
文本(字符串)
4
逻辑值
8
单元格引用
16
错误值
64
数组
Sub test()
    Dim a As Integer
    a = Application.InputBox("请您输入一个整数", Type:=1)
    If a <> False Then
        Sheet1.Range("a1").Value = a
    Else
        MsgBox "你已取消了输入!"
    End If
End Sub
 
2、获得单元格区域的地址
 
该方法相对于函数的第二个优点是可以获取单元格的位置，如下代码：
 
Sub test1()
    Dim rng As Range
    On Error GoTo line
    Set rng = Application.InputBox("请使用鼠标选择单元格区域：", Type:=8)
    rng.Interior.ColorIndex = 10
line:
End Sub