[已解决]关于显示与隐藏的代码

文轩馨婷

以下是dsmch大神的一个代码——其地址  http://www.excelpx.com/thread-365069-1-1.html

1. Private Sub CommandButton1_Click()
   
2. If CommandButton1.Caption = "隐藏" Then
   
3.     For i = 3 To Range("a65536").End(xlUp).Row
   
4.         If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then Rows(i).Hidden = True
   
5.     Next
   
6.     CommandButton1.Caption = "显示"
   
7. Else
   
8.      Rows.Hidden = False
   
9.      CommandButton1.Caption = "隐藏"
   
10. End If
    
11. End Sub

复制代码

想借鉴此代码，但我插入控件指定宏时，没有宏，当打开dsmch大神这个代码的文档（在上面地址的6楼）时，他所设的控件是公式来的——这个怎么设？
如果把以上代码改成模块的形式又如何改呢？？

望各位大神，帮帮忙！！
{:25:}

最佳答案

月排行榜 / 总排行榜

qh8600

2015-6-1 14:52

这个不需要指定宏的啊，这个是控件

跳转到最佳答案楼层

qh8600

这个不需要指定宏的啊，这个是控件

文轩馨婷

qh8600 发表于 2015-6-1 14:52
这个不需要指定宏的啊，这个是控件

哦，知道了！
{:25:}