如何将输入箱输入到单元格中？

Question

我有一个输入箱，用户将在本月以前三个字符 +销售的格式（例如Junsale）输入。

我想将其返回到一个特定的单元格中。该单元已经有东西（例如Maysale）。一旦用户键入输入，该单元格现在将读取Junsale而不是Maysale。

我的代码给我一个错误消息：

编译错误：未找到方法或数据成员

编译错误：未在代码的最后一行中

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sales Calc")
Dim ActSales As Range
Dim pastmthsale As String
Dim currentmthsale As String

With Worksheets("Sales Calc").Cells
    Set ActSales = .Find("Forecast Sales -->>", After:=Range("DH173"), LookIn:=xlValues)
    If Not ActSales Is Nothing Then
        ActSales.Select
    End If
End With
ActiveCell.Offset(rowOffset:=0, ColumnOffset:=-1).Select

pastmthsale = Selection.Value
currentmthsale= Application.InputBox("Enter the Latest Month with Actual Sales Data")
ws.pastmthsale = currentmthsale

---

。这是我现在拥有的代码。我收到的错误消息是

应用程序定义或对象定义的错误。

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sales Calc")
Dim ActSales As Range

With Worksheets("Sales Calc").Cells
    Set ActSales = .Find("Forecast Sales -->>", After:=Range("DH173"), LookIn:=xlValues)
    If Not ActSales Is Nothing Then
        ActSales.Select
    End If
End With

ActiveCell.Offset(rowOffset:=0, ColumnOffset:=-1).Select

Range(ActiveCell) = Application.InputBox("Enter the Latest Month with Actual Sales Data")

Answer 1

只需使用此方法 - 引用ActiveCell时不需要范围（）即可。

ActiveCell = Application.InputBox("Enter the Latest Month with Actual Sales Data")