2、Application.InputBox 方法
语法:InputBox(Prompt,Title,Default,Left,Top,HelpFile,HelpContextID,Type)
Prompt:必选。要在对话框中显示的消息。可为字符串、数字、日期、或布尔值(在显示之前,Microsoft Excel 自动将其值强制转换为字符串)。
Title:可选。输入框的标题。如果省略该参数,默认标题将为“Input”。
Default:可选。指定一个初始值,该值在对话框最初显示时出现在文本框中。如果省略该参数,文本框将为空。该值可以是Range对象。
Left:可选。指定对话框相对于屏幕左上角的 X 坐标(以磅为单位)。
Top:可选。指定对话框相对于屏幕左上角的 Y 坐标(以磅为单位)。
HelpFile:可选。此输入框使用的帮助文件名。如果存在HelpFile和HelpContextID参数,对话框中将出现一个帮助按钮。
HelpContextID:可选。HelpFile中帮助主题的上下文 ID 号。
Type:可选。指定返回的数据类型。如果省略该参数,对话框将返回文本。
说明
下表列出了可以在 Type 参数中传递的值及含义。可以为下列值之一或其中几个值的组合。例如,对于一个可接受文本和数字的输入框,将Type设置为 1 + 2。
0——公式
1——数字
2——文本(字符串)
4——逻辑值(True或False)
8——单元格引用,作为一个Range对象
16——错误值,如 #N/A
64——数值数组
使用InputBox可以显示一个简单的对话框,如果选择了“确定”按钮,则返回对话框中输入的值。如果单击“取消”按钮,则返回False。
如果Type为 0,InputBox将以文本格式返回公式。例如,“=2*PI()/360”。
如果Type为 8,InputBox将返回一个Range对象。您必须用Set语句将结果指定给一个Range对象,如下例所示。
Set myRange = Application.InputBox(prompt := "Sample", type := 8)
如果不使用Set语句,此变量将被设置为这个区域的值,而不是Range这个对象本身。
如果使用InputBox方法要求用户输入公式,则必须使用FormulaLocal属性来将此公式指定给一个Range对象。输入的公式使用用户语言。
InputBox方法与InputBox函数的区别在于:它可以对用户的输入进行选择性验证,也可用于 Microsoft Excel 对象、误差值、和公式的输入。注意,Application.InputBox调用的是InputBox方法,不带对象识别符的InputBox调用的是InputBox函数。
示例:
提示用户输入数字。
myNum = Application.InputBox("Enter a number")
本示例提示用户在 Sheet1 中选取一个单元格。示例使用Type参数证实返回值是有效的单元格引用 (一个Range对象)。
Worksheets("Sheet1").Activate
Set myCell = Application.InputBox(prompt:="Select a cell", Type:=8)
3、窗口视图模式
ActiveWindow.View = xlNormalView:普通视图
ActiveWindow.View = xlPageBreakPreview:分页预览视图
ActiveWindow.View = xlPageLayoutView:页面视图