是否可以说在输入框文本中查看单元格A3的值？

Question

是否可以在A3文字中查看单元格inputbox的当前值？

这就是我正在使用的。

Dim strValue As String  
strValue = Application.InputBox("A3 <- Is the current value, Enter new value", "Value A3")  
ActiveWorkbook.Sheets("Sheet1").Range("A1") = strValue

Answer 1

Application.InputBox包含一个默认参数作为第三个参数，因此使用此参数将当前值直接放在框中

Dim strValue As String
strValue = Application.InputBox("Enter new value", "Hello World", [a3].Value, , , , , 1)
ActiveWorkbook.Sheets("Sheet1").Range("A1") = strValue

Answer 2

考虑：

Sub ytrewq()
    Dim s As String
    s = "Current value in A3 is " & Range("A3").Text & " ;enter a new value"
    Range("A3").Value = Application.InputBox(prompt:=s)
End Sub