洛阳霞光企业网站建设公司,新东方小吃培训价格表,免费logo商标设计,网站外链建设是什么应用场景#xff1a;
表格中列数较多#xff0c;特定条件下隐藏一些无关的列#xff0c;只保留相关的列#xff0c;使表格更加清晰。
示例#xff1a;原表格如下 点击一年级#xff0c;只显示一年级相关的科目#xff1a; 点击二年级#xff0c;只显示二年级相关的科…应用场景
表格中列数较多特定条件下隐藏一些无关的列只保留相关的列使表格更加清晰。
示例原表格如下 点击一年级只显示一年级相关的科目 点击二年级只显示二年级相关的科目 代码如下
开发工具-VB编辑器-左侧双击sheet页在编辑框里输入如下代码保存即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Target, Me.Range(D11)) Is Nothing Then 先把所有列都显示出来再执行隐藏特定列Columns.EntireColumn.Hidden FalseRange(H1:M1).EntireColumn.Hidden TrueRange(C8).Interior.Color RGB(248, 150, 171)ElseIf Not Intersect(Target, Me.Range(D17:E21)) Is Nothing Then 先把所有列都显示出来再执行隐藏特定列Columns.EntireColumn.Hidden FalseRange(H1,I1:J1).EntireColumn.Hidden TrueElseColumns.EntireColumn.Hidden FalseEnd If
End Sub
