vba - 当特定列的单元格更改时显示消息

Question

我是 Excel VBA 新手。我想在 K 列中的任何单元格发生更改时显示警告消息。
我写了这段代码:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim row As Integer
    Dim lrow As Long
    With ActiveSheet
        lrow = .Range("K" & .Rows.Count).End(xlUp).row

        For satir = 5 To lrow
            If Cells(row, 11).Value > 400 And Cells(row, 12).Value = "" Then
                MsgBox _
                ("Risk Point of your operation is still high, Please Identify Contingency Plan")
            End If
        Next row

        For row = 5 To lrow
            If Cells(row, 22).Value > 200 And Cells(row, 24).Value = "" Then
                MsgBox ("Risk Point is very high, Please Identify your Mitigation Plan")
            End If
        Next row
    End With

End Sub

此代码可以正常工作，但会显示有关工作表中所做的所有更改的警告消息。

Answer 1

将其写入您的 Worksheet_Change Sub:

 If Target.Column = 11 Then
    MsgBox "warning"
 End If

一旦用户更改 k 列中的值，就会发送“警告”