如何解决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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。