Question

我想在G1:G500范围内更改单元格（其值等于或大于＆＃34; 1＆＃34;）时自动运行宏。

我部分成功但是;

它仅适用于一个特定的细胞。
我无法写出它是否等于或大于1.只有在单元格值等于1时才有效。

我真的很抱歉，因为我是VBA的初学者。帮助赞赏。

请参阅下面的完整代码;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G12")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
With Application
  .EnableEvents = False
  .ScreenUpdating = False
    If UCase(Me.Range("G12").Value) = "1" Then

      Call K999

    End If
  .ScreenUpdating = True
  .EnableEvents = True
End With
End Sub

Answer 1

尝试：

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1:G500")) Is Nothing Then
    If Target = "" Then Exit Sub
    On Error GoTo GetOut
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        If Target.Value >= 1 Then
            Call K999
        End If
    End With
End If
GetOut:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
    '[1]
    If Intersect(Target, Range("G1:G500")) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    '[2]
    If Not IsNumeric(Target.Value) Then Exit Sub
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        '[3]
        If Target.Value >= 1 Then
            Call K999
        End If
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

Intersect(Target, Range("G12"))检查目标是否为G12，根据您的说法，它应该是Range（“G1：G500”）
由于您无法强制用户在单元格中键入数字，因此首先检查值是否为数字会更安全。
“1”是一个字符串，1是一个数字。无需转换为字符串然后比较两个字符串。

将特定单元格条件更改为范围条件

2 个答案: