如何使用 Excel VBA 將復制的值粘貼到 InputBox 中？

Question

如何將從 Excel 單元格復制的值粘貼到 InputBox 中？

從記事本復制到 InputBox 時，我可以粘貼相同的值。

Sub input_box()

    Dim Input_value as variant

    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Input_value = InputBox(Prompt:="Please enter ID", Title:="Enter ID")
    If Input_value = "" Or Input_value = Empty Then
        msg = MsgBox("Please enter ID!", vbCritical + vbDefaultButton1, "Error")
        goto ends:
    end if
ends:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic

End sub

Answer 1

Input_Value 是否聲明為變量、字符串、整數、...？ 此外，InputBox 的完整語法包括一個類型（請參閱https://docs.microsoft.com/en-us/office/vba/api/excel.application.inputbox ）

該類型應與您聲明 Input_Value 的方式相匹配。 它還有助於編輯錯誤的輸入

Answer 2

我遇到的問題是通過禁用 Application.Calculation = xlCalculationManual 來解決的。 現在，從 excel 單元格復制的值的粘貼正在工作。