我如何把输入从InputBox到单元格?

Question

我有一个输入框，用户将以前三个字符+ Sale(例如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

使用这个方法-引用activcell时不需要Range()

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