VBA将InputBox输入值写入Excel单元格及运行报错修复

第一版编译错误（Method or data member not found） #

• 报错行：ws.pastmthsale = currentmthsale
• 原因：pastmthsale是你定义的字符串变量，存储的是单元格内的旧值（比如MaySale），不是Worksheet对象ws的内置成员。VBA访问工作表对象的属性、方法时，点号后面必须是对象本身存在的成员名，不能直接放自定义字符串变量，因此直接触发编译错误。你的逻辑是要往存旧值的单元格写入新内容，不是给ws对象添加自定义属性，写法逻辑完全错误。

第二版运行时错误（Application-defined or object-defined error） #

• 报错行：Range(ActiveCell) = Application.InputBox("Enter the Latest Month with Actual Sales Data")
• 原因：Range()方法的合法参数是单元格地址字符串、或者合规的单元格区域引用，你直接把ActiveCell这个Range对象作为参数传入属于非法调用。就算要给当前选中单元格赋值，直接写ActiveCell.Value = 输入内容即可，不需要额外套一层Range。
• 额外隐患：整段代码全程依赖Select、ActiveCell做操作，只要工作表未激活、选中位置被其他操作改动、或者Find方法没找到目标文本，代码都会直接报错，稳定性极差。另外你写Find逻辑时没有填写LookAt参数，Excel会沿用上次用户操作的查找设置，很容易出现找不全、找错位置的问题。

不需要选中单元格，直接通过对象定位后写入即可，同时兼容各类异常场景：

Sub UpdateActualSalesMonth()
    Dim ws As Worksheet
    Dim flagCell As Range
    Dim targetCell As Range
    Dim inputVal As Variant
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Worksheets("Sales Calc")
    
    ' 查找目标标识
    Set flagCell = ws.Cells.Find( _
        What:="Forecast Sales -->>", _
        After:=ws.Range("DH173"), _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False
    )
    
    ' 找不到标识直接退出并提示
    If flagCell Is Nothing Then
        MsgBox "未找到「Forecast Sales -->>」标识，请检查工作表内容", vbExclamation
        Exit Sub
    End If
    
    ' 定位到标识左侧的目标单元格，无需选中操作
    Set targetCell = flagCell.Offset(0, -1)
    
    ' 弹出输入框，强制接收文本类型输入
    inputVal = Application.InputBox( _
        Prompt:="Enter the Latest Month with Actual Sales Data", _
        Title:="输入当月标识", _
        Type:=2
    )
    
    ' 用户点击取消直接退出流程
    If inputVal = False Then Exit Sub
    
    ' 覆盖写入目标单元格
    targetCell.Value = inputVal
End Sub

• 全程直接操作Range对象，不使用Select、ActiveCell这类依赖界面选中状态的写法，代码在后台运行即可，不需要激活对应工作表
• 补全Find方法的LookAt等参数，固定查找规则，不受用户之前的查找操作设置影响
• 增加了找不到目标标识、用户取消输入的分支处理，不会无响应直接报错
• 输入框指定返回文本类型，避免用户输入类似JunSale的内容被Excel自动识别成日期格式导致值错误

内容的提问来源于stack exchange，提问作者min