大家好，上节介绍了application主程序对象的ontime方法，本节介绍onkey方法和inputbox方法。onkey方法是用于为程序设置快捷键，inputbox方法可以创建弹窗输入信息。
一、Onkey方法
使用OnKey方法即设置快捷键，可以将程序赋给单个键或键组合，通过按下赋给的键或键组合来运行该程序。
1、基础知识
OnKey方法的语法为：
Application.OnKey(Key,Procedure)
1、参数Key，必需，指定代表所按键的字符串。
2、参数Procedure，可选，指定当按下指定键时要运行的过程名。
忽略第2个参数将使指定键恢复正常功能；而将空字符串作为第2个参数并不会恢复快捷键的原有功能，而是忽略按键，即当使用指定键时不会有任何操作。
OnKey方法设置的快捷键对所有打开的工作簿都有效
onkey方法中常用的快捷键代码如下：
也可指定与 Shift 和/或 Ctrl 和/或 Alt 组合使用的键。要指定与其他键组合使用的键，需要组合的键 在键代码之前添加
2、示例
通过onkey方法就是给vba程序过程设置快捷键，下面示例首先设置一个简单的sub过程，通过msgbox弹窗显示“新年快乐”
设置application主程序对象的onkey方法，设置快捷键Ctrl和Up键。
Sub onkey1()
Application.OnKey "^{up}", "test"
End Sub
第二个过程设设置快捷键“^{up}”代表Ctrl键加Up键，两个键的代码依次写就可以。第二个参数为test过程的字符串形式。注意两个参数是都是加英文双引号的。
同样如果快捷键写为“ ^{right}”则表示Shift键加Ctrl键加Right向右键。当按组合的快捷键时，就可以调用对应的vba过程。
二、inputbox方法
InputBox方法，可以是显示对话框，接受用户输入的信息并可以在代码中使用这些信息。
前面曾介绍过vba输入inputbox函数来获取输入的信息。本节要说明的Application主程序的inputbox方法则，它是函数的功能加强版。Application主程序的inputbox方法强化了三个功能：
1、可以指定返回的数据类型，而inputbox函数只能返回字符型。
2、可以对输入的数据进行有效性验
3、支持在单元格中以拖放的方式来指定单元格区域。
1、基础知识
Inputbox方法的语法格式和参数：
application.inputbox(prompt [,title] [,default] [,left] [,top] [,helpfile] [,helpcontextID] [,type])
其主要参数和inputbox函数类似，相比inputbox函数增加了type参数。首先是雷同的参数：
参数Prompt，必需，用于指定显示在对话框中提示用户输入的文本。
参数Title，可选，提供显示在对话框标题栏的文本。如果忽略，则默认为“输入”。
参数Default，可选，当对话框初始化时，指定对话框中显示在文本输入框中的值。如果忽略，则文本框中为空。
参数Left，可选，指定对话框相对于屏幕左上角的x位置，以磅为单位。
参数Top，可选，指定对话框相对于屏幕左上解的y位置，以磅为单位。
参数HelpFile，可选，为对话框提供帮助文件的名字。如果参数HelpFile和参数HelpContextID都被设置，则对话框中显示帮助按钮。
参数HelpContextID，可选，在参数HelpFile中的帮助主题的上下文ID编号。
参数Type，为可选，指定返回的数据类型。如果忽略该参数，则对话框返回文本。下面列出了可以传递到参数Type中的值
type参数值，可以是一个值或者多个值之和（即任意组合）。例如，如果想要输入框同时接受文本和数字，则可以设置参数Type为1 2。如果type参数值为8，inputbox方法将返回一个range对象，此时注意需要用set赋值语句，将结果赋值给一个range对象变量。（如果不适用set语句，赋值的结果不是range对象本身，而是这个区域的值。）
2、示例
通过inputbox方来，将选中单元格并标记为蓝色，插入按钮运行程序，演示图如下：
Sub test()
Dim rng As Range
Set rng = Application.InputBox("选择单元格设置背景色", _
"测试", Selection.Address, , , , , 8)
rng.Interior.ColorIndex = 5
End Sub
代码中首先定义了rng变量为单元格对象，然后用application对象的inputbox方法获得选中的单元格的地址。Selection.Address表示鼠标选中的单元格的地址，最后tpye=8为限制返回的数据类型是8，不同参数用英文逗号间隔，其中不需要设置的参数略过即可。）
由于返回的是单元格对象，需要用set语句将inputbox方法返回的单元格赋值给rng，然后将rng的背景颜色设置为蓝色。
这个示例比较全的体现inputbox方法的优势，可以返回range单元格对象，可以进行有效性验证，并支持以拖放方式指定单元格区域。
注意在代码中application.inputbox调用的是inputbox方法，不带对象标识符application的是调用inputbox函数。
今天下雨
本节主要介绍application主程序对象的onkey方法和inputbox方法，其中onkey方法也是一种excel事件，后期介绍事件时会再说明。后面将继续介绍其他方法，祝大家学习快乐。
