跪求大神帮我看看，表格会随着下拉条里内容切换

twpgq8151 · 发表于 2019-3-21 16:24

在线等，请大家帮忙看看，表格里数据是自己填写的，选择月份后不是新增一个sheet，是类似数据透视表一样的，选择月份表格会根据月份切换，这样的效果怎么弄，大神帮我看看

jinlikun865 · 发表于 2019-3-21 16:40

你是不是想要这样的效果，我用单元格的数据有效性给你做了一个触发事件。再用隐藏行的方法把其他月份的的隐藏掉，只显示你想要的表。

twpgq8151 · 发表于 2019-3-21 16:43

jinlikun865 发表于 2019-3-21 16:40
你是不是想要这样的效果，我用单元格的数据有效性给你做了一个触发事件。再用隐藏行的方法把其他月份的的隐 ...

对，就是这样的效果，太谢谢了，解决我的大难题

twpgq8151 · 发表于 2019-3-21 16:45

jinlikun865 发表于 2019-3-21 16:40
你是不是想要这样的效果，我用单元格的数据有效性给你做了一个触发事件。再用隐藏行的方法把其他月份的的隐 ...

我要做12个月的，下面几个月我应该怎么操作？能教一下我么

jinlikun865 · 发表于 2019-3-21 16:56

这代码太简单就两句话，你如果懒得看我给你做完。不过我觉得你肯定要自己改你的表的，我给你解释一下代码，你自己按需要，自己改。
'下面这句话的意思是判断触发事件的单元格是不是第一行第一列，如果是就按下面的指令执行
If Target.Row = 1 And Target.Column = 1 Then
'下面这句话的意思是：如果选择“一月份”
      If Target.Value = "一月份" Then
      '下面这句话的意思是：隐藏所有有表格的行
         Sheet1.Rows("3:134").EntireRow.Hidden = True
         '下面这句话的意思是：显示一月份表格所在的行就是从第3行到底34行
         Sheet1.Rows("3:34").EntireRow.Hidden = False
         '下面这句话的意思是：如果选择“二月份”
      ElseIf Target.Value = "二月份" Then
      '下面这句话的意思是：隐藏所有有表格的行
         Sheet1.Rows("3:134").EntireRow.Hidden = True
         '下面这句话的意思是：显示二月份表格所在的行就是从第36行到底67行
         Sheet1.Rows("36:67").EntireRow.Hidden = False
      ElseIf Target.Value = "三月份" Then
         Sheet1.Rows("3:134").EntireRow.Hidden = True
         Sheet1.Rows("69:100").EntireRow.Hidden = False
      ElseIf Target.Value = "四月份" Then
         Sheet1.Rows("3:134").EntireRow.Hidden = True
         Sheet1.Rows("102:133").EntireRow.Hidden = False
      End If
Else
      Exit Sub
End If

jinlikun865 · 发表于 2019-3-21 17:08

给你做好了

twpgq8151 · 发表于 2019-3-21 18:24

jinlikun865 发表于 2019-3-21 17:08
给你做好了

谢谢解决了我的大难题

twpgq8151 · 发表于 2019-3-21 18:25

jinlikun865 发表于 2019-3-21 16:56
这代码太简单就两句话，你如果懒得看我给你做完。不过我觉得你肯定要自己改你的表的，我给你解释一下代码， ...

兄弟，麻烦你了，这么周到

		自动登录	找回密码
密码			免费注册

[求助] 跪求大神帮我看看，表格会随着下拉条里内容切换