请教，如何在表1中删除一行，表2自动删除相对应的行

zhaogang1960

或逐个菜单判断：

1. Private Sub Workbook_Open()
   
2.     Dim cmbarbtn As CommandBarButton
   
3.     For Each cmbarbtn In Application.CommandBars.FindControls(, 478)
   
4.         cmbarbtn.OnAction = "deleteRow"
   
5.     Next
   
6.     For i = 6 To Application.CommandBars("Row").Controls.Count
   
7.         If Application.CommandBars("Row").Controls(i).Caption Like "删除*" Then
   
8.             Application.CommandBars("Row").Controls(i).OnAction = "deleteRow"
   
9.             Exit For
   
10.         End If
    
11.     Next
    
12. End Sub

复制代码

zhaogang1960

请测试附件
beta2010.rar (90.3 KB, 下载次数: 48)

2014-4-21 21:38 上传

点击文件名下载附件

monster48929

zhaogang1960 发表于 2014-4-21 21:42
请测试附件

我的是2007版本的  版主大人   然后我测试了一下  还是没有用啊   就是在其他文件里面用你给的宏无效呢  就是我上一个附件里面文件名字叫做“beta”无效的那个

VBA万岁

zhaogang1960 发表于 2014-4-19 00:00
请参考：

赵老师，我模仿你的加载项的办法用动态功能区实现楼主要求（工作表同步删除行），如下图：
自定义功能区“我的工具箱”仅在“Sheet1“表被选择时才会出现，在打开其他工作表时不出现。
我现在想要实现的功能是，在打开其他工作表时也出现，但不现其中的“删除工具”组，而只出现“其他工具”组，请问这个可以实现吗？如何实现？

VBA万岁

VBA万岁 发表于 2014-4-22 09:54
赵老师，我模仿你的加载项的办法用动态功能区实现楼主要求（工作表同步删除行），如下图：
自定义功能区 ...

附件如下：
beta2222.rar (90.23 KB, 下载次数: 44)

2014-4-22 09:56 上传

点击文件名下载附件

Pthzzq2189

感谢您的指导，深入学习中！

838225419

zhaogang1960 发表于 2014-4-19 00:00
请参考：

老师您好：如果不是sheet1或sheet2，换成比如：工作表名为表二、表四同步删除行，您这个代码如何改，求老师指导


Sub deleteRow()
    Dim s$, i%
    s = Selection.Address
    For i = 1 To 2
        Sheets("sheet" & i).Range(s).EntireRow.Delete
    Next
End Sub

838225419

zhaogang1960 发表于 2014-4-19 00:00
请参考：

把工作表改了一下，就不可以了，麻烦老师看一下哪儿错了，拜托老师

excelkill

跟着学习中