求助如何根据单元格的数字隐藏相应的列

liudui

列数是相应的1-12个月的月份，在一个单元格内填入1-12的数字；  达到隐藏相应数字以后的月份列；
例如：
填入1，隐藏2月-12月的列；
填入2，隐藏3-12月份的列；
以此类推，填入12时全部显示；

vbee

1. Sub 宏1()
   
2. '
   
3. Columns("A:X").EntireColumn.Hidden = False
   
4. For I = [Y4] * 2 + 1 To 24
   
5. Columns(I).EntireColumn.Hidden = True
   
6. Next
   
7. End Sub

复制代码

liudui

vbee 发表于 2018-6-11 16:15

谢谢！
刚试了一下 需要点宏 再点击执行 才能达到效果；

可以填入单元格内就可以实现吗？

amicuat

liudui 发表于 2018-6-11 16:36
谢谢！
刚试了一下 需要点宏 再点击执行 才能达到效果；

试试吧，写完回车（抄了2楼的代码）

liudui

谢谢！  挺好

不知道为什么

amicuat 发表于 2018-6-11 16:55
试试吧，写完回车（抄了2楼的代码）

如图，是你需要的？附件供测试

liudui

不知道为什么 发表于 2018-6-11 17:11
如图，是你需要的？附件供测试

谢谢！ 可以实现，4楼的也可以实现！
谢谢大家！