主题：请教取消隐藏列

大师：请教如何按一下添加按钮，就取消3列隐藏？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目64.zip

Tables("表A").SetColVisibleWidth("第一列|98|第二列|98|第三列|98|第四列|98|第五列|98|第六列|98|第七列|98|第八列|98|第九列|98|第十列|98")

我说的是按一下取消3列，再按一下在取消3列？也就是说条件显示与隐藏。

Dim count As Integer = 3
Dim i As Integer = 1
For Each c As Col In Tables("表A").cols
    If c.visible Then
        c.visible = False
        i += 1
    End If
    If i > count  Then Exit For
Next

谢谢！