VBA change事件，自动删除对应单元格

myhbo

各位老师：

      需要一个自动运行的宏：当删除D3单元格内容时，希望A3,B3,G3,H3,I3 这6个单元格的内容也同时删除。希望在同一个工作簿中的其他工作表也适用。
实在编辑不出来这个宏，劳驾老师帮忙看看，非常感谢！


工作内容GPC.rar (9.06 KB, 下载次数: 1)

2024-3-20 20:51 上传

点击文件名下载附件

zjzyj

供参考。代码在 Thisworkbook 里

myhbo

zjzyj 发表于 2024-3-20 22:27
供参考。代码在 Thisworkbook 里

非常感谢！可以，请问在最左侧插入两列后，怎么修改代码？
即D3变成F3,希望C3,D3,I3,J3,K3, 这6个单元格的内容也同时删除。

myhbo

myhbo 发表于 2024-3-21 12:21
非常感谢！可以，请问在最左侧插入两列后，怎么修改代码？
即D3变成F3,希望C3,D3,I3,J3,K3, 这6个单元 ...

把代码里面的A,B,G,H,I,改成C,D, I,J,K没效果，删到别处去了，不懂位移。
还请指教，谢谢！

wcj6376tcp

myhbo 发表于 2024-3-21 12:25
把代码里面的A,B,G,H,I,改成C,D, I,J,K没效果，删到别处去了，不懂位移。
还请指教，谢谢！

试一试把d列对应的数字4改成6看看，注意一下对应关系

myhbo

wcj6376tcp 发表于 2024-3-21 13:19
试一试把d列对应的数字4改成6看看，注意一下对应关系

试了，把4改成6，删除了H,L,M,N,O,P 五列，感觉偏移了。不知道哪里不对。

gwjkkkkk

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ar, i&
   
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 6 Then Exit Sub
    If Target.Value <> "" Then Exit Sub
   
    n = Target.Row
    ar = Array("C", "D", "I", "J", "K")
    Application.EnableEvents = False
    For i = 0 To UBound(ar)
        Cells(n, ar(i)).Value = Empty
    Next i
    Application.EnableEvents = True
End Sub

gwjkkkkk

请参考附件。。。

myhbo

gwjkkkkk 发表于 2024-3-21 17:04
请参考附件。。。

谢谢，可以了，为什么感觉运行时速度不快呢? 像是在演示一样。
另外我把Application.EnableEvents = False 和 Application.EnableEvents = True删除了，感觉没影响，可以正常运行啊，可以删除吗？

gwjkkkkk

myhbo 发表于 2024-3-21 20:33
谢谢，可以了，为什么感觉运行时速度不快呢? 像是在演示一样。
另外我把Application.EnableEvents = Fal ...

可以，但速度肯定会慢一点，多了一个重新触发过程，加快速度的话可屏幕刷新关闭，结束再打开。。。