VBA，删除行/列值作为增量函数

问题描述

每当我更改G列中的值（从数据验证列表中选择一些值）时，它都应清除下H列中的单元格。

因此，当我在G4中选择值时，H4中的值将被删除。当我在G5中选择值时，H5也会发生同样的情况。

我尝试了这个，但是没有用：

docker exec <CONTAINER> /opt/jboss/keycloak/bin/add-user-keycloak.sh -u <USERNAME> -p <PASSWORD>

解决方法

此类任务无需迭代。由于单元格值是通过从下拉验证列表中进行选择来更改的，因此无法进行多次更改。在这种情况下，代码很简单：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 7 Then
       If Target.cells.count > 1 Then Exit Sub
       Target.Offset(0,1).ClearContents
    End If
End Sub

,

可以这样做：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCell As Range
    For Each oCell In Target.Cells  ' You can change many cells at once (i.e. copy-paste or select-delete)
        If oCell.Column = 7 Then ' Is it cell in G:G or any other?
            If oCell.Text <> vbNullString Then ' Has cell any value?
                oCell.Offset(0,1).ClearContents    ' Clear cell in the next column in this row
            End If
        End If
    Next oCell
End Sub