学习资料 https://www.yiibai.com/vba/vba_input_box.html
输入框 InputBox
函数说明
提示用户输入值。当输入值后,如果用户单击确定 按钮或按下键盘上的ENTER 键,InputBox函数将返回文本框中的文本。如果用户单击“取消” 按钮,该函数将返回一个空字符串("")。
函数用法
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
参数
参数 | 选项 | 类型 | 说明 | 默认值 |
---|---|---|---|---|
Prompt | 必需 | 字符串 | 提示的最大长度大约为1024个字符。 如果消息扩展为多行,则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行 | |
title | 可选 | 字符串 | 如果标题留空,应用程序名称将被放置在标题栏中 | |
default | 可选 | 字符串 | 用户希望显示的文本框中的默认文本 | |
xpos | 可选 | 数字 | X轴的位置表示水平从屏幕左侧的提示距离 | 如果留空,则输入框水平居中 |
ypos | 可选 | 数字 | Y轴的位置表示竖直方向从屏幕左侧的提示距离 | 如果留空,则输入框垂直居中 |
helpfile | 可选 | 字符串表 | 标识用于为对话框提供上下文相关帮助的帮助文件 | |
context | 可选 | 数字 | 用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。如果提供上下文,则还必须提供helpfile。 |
示例
Function CountArea()
Dim Length As Double
Dim Width As Double
Length = InputBox("输入一个长度值: ", "输入长度")
Width = InputBox("输入一个宽度值:", "输入宽度")
findArea = Length * Width
CountArea = findArea
MsgBox(CountArea)
End Function
丸子笔记
昨天学了个写法是 Const A As String = "abc"
今天又学了个写法是 Dim A As Double
与 Lua 相比,VBA 语言的基础语法有点啰嗦。
常量和变量还要分别用 Const 和 Dim 来区分,在 Lua 里直接用双引号和等号赋值、区分变量类型就好了。
除此之外,VBA 还有一个特点就是判断语句 If 必须要用 End If 来结束。
另外还有关键字首字母大写的问题……
不得不说,这个语言倒是真的挺严谨的,就是有点不够简洁啊!