1、变量＝inputbox("提示内容","标题","默认值".左边框，有边框）
2、左边距是指定对话框的左边与屏幕左边的水平距离。如果省略则对话框会在水平方向居中；
右边距指定对话框的上边与屏幕上边的距离。如果省略则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。
3、Sub inpubox介绍()
Range("a1") = InputBox("输入内容", "百度经验", Date, 3000, 5000)
End Sub
4、执行结果如下图所示：
1、根据在InputBox 对话框中输入的数字，对相隔固定行的数字进行求和。
2、Sub inpubox介绍()
Dim xx, yy As Integer
yy = 0
xx = InputBox("输入间隔行数", "隔行求和", 2)
For i = 1 To 10 Step xx + 1
yy = yy + Cells(i, 1)
Next
MsgBox yy
End Sub
3、执行代码如下图所示：
4、输入行数之后，可得到隔行求和的结果，如下图所示：
