输入分数时新VBA宏报错，需实现Excel Q列自动计算起始价格

我之前碰到过完全一样的需求——在Excel里输入投注类的分数（比如5/2、15/8）时，需要自动算出包含初始投注额的起始价格，也就是输入的分数值加1（比如输入5/2要得到3.50，而不是Excel默认转成的2.50）。

经过测试，这段Worksheet_Change事件VBA代码已经完美解决了问题，目前运行完全正常：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err_handler
Application.EnableEvents = False
If Target = Empty Then GoTo exit_handler
If Not Intersect(Target, Columns("Q")) Is Nothing Then
    With Target
        .Formula = Evaluate(.Formula & "+1")
    End With
End If
exit_handler:
Application.EnableEvents = True
Exit Sub
err_handler:
MsgBox Err.Number & ": " & Err.Description
Resume exit_handler
End Sub

代码关键点说明： #

• 仅监听Q列的单元格变化，不会干扰其他列的正常输入操作
• 当输入分数（比如15/8）时，通过Evaluate(.Formula & "+1")自动计算分数值加1的结果并写入单元格
• 加入了错误捕获和事件开关，既避免循环触发Change事件，也能在出错时给出明确的错误提示

使用方法很简单：右键对应的工作表标签→选择「查看代码」，把这段代码粘贴到弹出的代码模块里就可以用了。

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