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：页面视图
网友评论