为列中的值弹出 VBA 警报

Question

我正在尝试在 Excel 列中创建一个 VBA -Alert 弹出窗口。 在基于某些计算的 Excel 表中，将计算一些 Growth%（H 列），如果 Growth% > 20%，将生成一个警报弹出窗口，询问原因代码，需要将其放入 I 列。 该代码对于特定单元格（比如H7）运行良好，但是当我将它扩展到一个范围（比如H7:H700）时，它不起作用。 有人可以帮我解决这个问题。 代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("H7:H700") > 0.2 Then
        MsgBox "GR% >20%, Put the reason code"
    End If
End Sub

% 增长原因代码 34% 20% 18%

更新后的excel表格截图：

现在 ASM/RSM 可以更新他们的预测并自动在 H 列中计算增长 % ...相同的值将被复制到 I 列（作为特殊粘贴），如果增长 % > 20% ，那么会弹出警报...

我正在使用的代码（在 JC Guidicelli 的帮助下）：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
 Sheets("Sheet1").Range("H7:H700").Copy
 Sheets("Sheet1").Range("I7:I700").PasteSpecial xlPasteValues
Set Rg = Application.Intersect(Target, Range("I7:I700"))
If Not Rg Is Nothing Then
    For Each xCell In Rg
        If xCell.Value > 0.2 Then
            xCell.Select
            MsgBox "GR% >20%, Put the reason code"
            Exit Sub
        End If
    Next
End If

结束子

问题在于 Growth% 20%，它抛出了弹出窗口但卡住了.. 有人可以帮我解决这个问题吗..

Answer 1

编辑： 当您在所选范围内添加或粘贴值时，将显示消息；） 试着告诉我，它对我有用：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("H7:H700"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value > 0.2 Then
                xCell.Select
                MsgBox "GR% >20%, Put the reason code"
                Exit Sub
            End If
        Next
    End If
End Sub