求助实现按钮功能

小灏

11111.zip (9.47 KB, 下载次数: 20)

2012-12-27 16:39 上传

点击文件名下载附件
11111

期望点击按钮A-1能够只显示代号为A-1的行，其他同理，请各位大虾帮忙

小灏

怎么添加不了附件。。。。。

zhaogang1960

欢迎新会员
如果控件较多，且个数不确定，建议使用ACTIVEX控件和类模块：
工作表代码区

1. Dim Cmd() As New clsCmd
   
2. 
   
3. Sub 开始()
   
4.     Dim tb As OLEObject, i%
   
5.     For Each tb In Me.OLEObjects
   
6.         If tb.Name Like "CommandButton*" Then
   
7.             i = i + 1
   
8.             ReDim Preserve Cmd(1 To i)
   
9.             Set Cmd(i).Cmdbox = tb.Object
   
10.         End If
    
11.     Next
    
12. End Sub
    
13. Sub 结束()
    
14.     Erase Cmd
    
15. End Sub
    

复制代码

ThisWorkbook代码区

1. 
   
2. Private Sub Workbook_Activate()
   
3.     Call Sheet1.开始
   
4. End Sub
   
5. 
   
6. Private Sub Workbook_Deactivate()
   
7.     Call Sheet1.结束
   
8. End Sub
   
9. 
   

复制代码

类模块clsCmd

1. Public WithEvents Cmdbox As MSForms.CommandButton
   
2. 
   
3. Private Sub Cmdbox_Click()
   
4.     Dim c As Range
   
5.     With Sheet1
   
6.         Set c = .Range("a:a").Find(Cmdbox.Caption, , , 1)
   
7.         If Not c Is Nothing Then .Rows(c.Row & ":" & .Range("a:a").Find(Cmdbox.Caption, , , 1, , 2).Row).Select
   
8.     End With
   
9. End Sub

复制代码

zhaogang1960

请看附件
新建 Microsoft Office Excel 工作表.rar (26.06 KB, 下载次数: 14)

2012-12-27 18:49 上传

点击文件名下载附件