小编mit*_*air的帖子

我们是否有任何解决方案可以使此代码正常工作

 Sub FindSum()
    Dim Euro1 As String
    Euro1 = InputBox("", "")
        ActiveCell.FormulaR1C1 = "=RC[-1]*" & Euro1.Value
End Sub

预期:此代码将从字段中选择值,并将其与Inputbox中提供的值相乘.