Excel 输入框公式

在下面的代码中，我希望看到求和公式，这样我就可以看到哪些单元格正在添加，但代码只是反射结果而不是公式

[像这样”=SUM（B2:F2）]。

希望你能理解我的问题，并在这方面给予帮助

Sub Macro6()
Dim UserResponse As Range
Dim Result As Range
Set Result = Application.InputBox("Select cell where you want result", Default:=Selection.Address, Type:=8)
Set UserResponse = Application.InputBox("select a range with the mouse", Default:=Selection.Address, Type:=8)
Result.Value = Application.WorksheetFunction.Sum(UserResponse)
End Sub

---

我可能会被否决这个答案，但这是值得的

---

MsgBox”=SUM（&Replace（UserResponse.Address，Chr（36），vbNullString）和“

试试下面的代码。应该可以

Sub Macro6()
Dim UserResponse As Range
Dim Result As Range

Set Result = Application.InputBox("Select cell where you want result", Default:=Selection.Address, Type:=8)
Set UserResponse = Application.InputBox("select a range with the mouse", Default:=Selection.Address, Type:=8)
Result.Formula = "=SUM(" & UserResponse.Address & ")"
End Sub

---

或者在最后一行中，您可以使用

“=SUM（&UserResponse.Address（False，False）&”）”

，因此公式不是绝对引用。

请格式化您的代码。