對話方塊的螢幕顯示位置是當對話方塊彈出時在當前螢幕中的相對位置。InputBox 對話方塊顯示位置是通過第4 和第5 個引數引數設定的。
工具/原料
excel 2013
一、設定對話方塊的螢幕顯示位置
變數＝inputbox("提示內容","標題","預設值".左邊框，有邊框）
左邊距是指定對話方塊的左邊與螢幕左邊的水平距離。如果省略則對話方塊會在水平方向居中；
右邊距指定對話方塊的上邊與螢幕上邊的距離。如果省略則對話方塊被放置在螢幕垂直方向距下邊大約三分之一的位置。
Sub inpubox介紹()
Range("a1") = InputBox("輸入內容", "", Date, 3000, 5000)
End Sub
執行結果如下圖所示：
二、根據輸入的數字插入空行
根據在InputBox 對話方塊中輸入的數字，對相隔固定行的數字進行求和。
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
執行程式碼如下圖所示：
輸入行數之後，可得到隔行求和的結果，如下圖所示：
