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

monster48929

表1和表2的部分内容是相同的，都引用（sheet1！xx）自同一处的数据，然后想实现这样的功能，删除表一中的某一行，比如第一行，我吃了一碗饭，然后表2对应的我吃了一碗饭，那一行也自动删除，注意是行啊
跪这里求哪个大哥给个解决办法了 beta2222压缩.zip (42.16 KB, 下载次数: 28)

2014-4-18 23:39 上传

点击文件名下载附件
这个表1表2

zhaogang1960

请参考：

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim cmbarbtn As CommandBarButton
   
3.     For Each cmbarbtn In Application.CommandBars.FindControls(, 478)
   
4.         cmbarbtn.OnAction = ""
   
5.     Next
   
6.     Application.CommandBars("Row").Controls(6).OnAction = ""
   
7. End Sub
   
8. 
   
9. Private Sub Workbook_Open()
   
10.     Dim cmbarbtn As CommandBarButton
    
11.     For Each cmbarbtn In Application.CommandBars.FindControls(, 478)
    
12.         cmbarbtn.OnAction = "deleteRow"
    
13.     Next
    
14.     Application.CommandBars("Row").Controls(6).OnAction = "deleteRow"
    
15. End Sub
    

复制代码

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

复制代码

zhaogang1960

请注意，仅在行号列表中的删除菜单使用
请测试附件
beta2222.rar (41.59 KB, 下载次数: 133)

2014-4-19 00:00 上传

点击文件名下载附件

monster48929

zhaogang1960 发表于 2014-4-19 00:01
请注意，仅在行号列表中的删除菜单使用
请测试附件

老师  您好  我是初学者   请问这个功能是通过VB实现 还是 宏   不好意思 问这么简单的问题。。。。

monster48929

zhaogang1960 发表于 2014-4-19 00:01
请注意，仅在行号列表中的删除菜单使用
请测试附件

不好意思啊   老师  这个打开之后无法使用     提示“编译错误，未找到方法或数据成员”  这个是什么原因呢

zhaogang1960

monster48929 发表于 2014-4-19 12:16
不好意思啊   老师  这个打开之后无法使用     提示“编译错误，未找到方法或数据成员”  这个是什么原因 ...

请看使用方法：

monster48929

大神   太崇拜了   可惜我长了小丁丁！！！

monster48929

zhaogang1960 发表于 2014-4-19 13:46
请看使用方法：

一个有效 一个无效.7z (169.74 KB, 下载次数: 10)

2014-4-21 19:34 上传

点击文件名下载附件

大神，亲测可用，不过我后来在另一张表里用这个宏，咋失效了？

跪求解答，麻烦了

mmwwdd

佩服，如此详细解读，一般人做不到，版主威武

zhaogang1960

monster48929 发表于 2014-4-21 19:34
大神，亲测可用，不过我后来在另一张表里用这个宏，咋失效了？

跪求解答，麻烦了

2010版本和2003不同：

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.     If Application.Version <= 11 Then
   
7.         Application.CommandBars("Row").Controls(6).OnAction = "deleteRow"
   
8.     Else
   
9.         Application.CommandBars("Row").Controls(7).OnAction = "deleteRow"
   
10.     End If
    
11. End Sub
    

复制代码