【vba源码】自定义隐藏列_vba隐藏列-CSDN博客

HAPPY NEW YEAR

Hi，大家好呀！

2024快结束了，在这一整年中大家都有哪些喜悦？还是说这一年你过的非常的糟糕？又或者在这一年中还是一样的平庸？不管是喜是悲，马上新的一年又要来了，先祝大家新年快乐！新的一年大家一起发大财！

OK，那今天给大家分享点啥呢？要不，大家先给个赞！

老规矩，我们直接上手来开干吧！

1、创建窗体

这里我们需要先创建一个数据表窗体，所以在创建窗体前，你必须先有一个数据表，如图：

接着，我们需要把这个数据表窗体放到一个新的窗体，做为子窗体，还需要在窗体中放一个列表框与一个按钮

注意：列表框的一个属性，多重选择改成简单

运行效果

2、添加代码

在窗体完成后，我们就可以添加代码了，首先，我们先要添加一下列表框的行来源，代码我们写在加载事件里面，具体的代码如下：

Private Sub Form_Load()

    Dim rst As Object    ' DAO.Recordset

    Dim i As Long

    Me.lbl_F.RowSource = ""

    Set rst = CurrentDb.OpenRecordset("T_Product")

    For i = 0 To rst.Fields.Count - 1

        Me.lbl_F.AddItem rst.Fields(i).Name

    Next i

    rst.Close

End Sub

接着，我们添加一下按钮的单击事件：

Private Sub btnHide_Click()

    Dim i As Long

    For i = 0 To Me.lbl_F.ListCount - 1

        If Me.lbl_F.Selected(i) = True Then

            Me.F_Product_List(Me.lbl_F.ItemData(i)).ColumnHidden = True

        Else

            Me.F_Product_List(Me.lbl_F.ItemData(i)).ColumnHidden = False

        End If

    Next i

End Sub

3、运行测试

当我们的代码都添加完成了，最后就可以来运行测试了，我们来看看效果怎么样！