Question

我希望用户在单击按钮时弹出的输入框中键入文本或数字。我尝试了在Internet上找到的其他方法，并试图修改它们对我有用的代码。

首先，我尝试过此操作，但是单击“确定”后，该框消失了，什么也没发生：

Sub inputbox()

    Dim mlt As String
    Dim myString As String
    myString = ThisWorkbook.Sheets("Bericht_BOSCH").Cells(2, 6).Value
    mlt = Application.inputbox("Insert your age:")

End Sub

然后，我试图告诉我的代码“输入框”中的文本必须去哪里，并在代码中添加了2行：

Range("B6").Select
ActiveSheet.Paste

现在，在单击“确定”后，我的代码选择了单元格B6，但没有将代码粘贴到该单元格中。现在我的问题是：我做错了什么？预先谢谢你！

Answer 1

Sub inputbox()
    Dim mlt As String
    Dim myString As String

    myString = ThisWorkbook.Sheets("Bericht_BOSCH").Cells(2, 6).Value
    mlt = Application.inputbox("Insert your age:")

    ActiveSheet.range("B6").value = mlt
End Sub

Answer 2

您甚至可以一行完成它：

Sub TestMe()
   ThisWorkbook.Sheets("Bericht_BOSCH").Cells(2, 6) = Application.inputbox("Insert age:")
End Sub

VBA-将文本从输入框粘贴到单元格

2 个答案: