Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1676|回复: 7

[已解决]求助大神:如何每天自动取消隐藏一列

[复制链接]
发表于 2016-5-13 15:55 | 显示全部楼层 |阅读模式
我把一个月分成31列,全部隐藏,我想一号显示第一列,二号显示第二列,每天自动取消隐藏一列,请问如何办到,求助大神!!
最佳答案
2016-5-14 12:25
Private Sub Workbook_Open()
    Columns("E:AI").ColumnWidth = 0
    Columns(Day(Date) + 4).ColumnWidth = 5
End Sub

2.rar (26.41 KB, 下载次数: 10)
发表于 2016-5-13 16:55 | 显示全部楼层
1)先上传附件,看看有没有什么特别情况

2)全部隐藏,我想n号显示第n列。
     那样使用方便吗?
回复

使用道具 举报

 楼主| 发表于 2016-5-14 09:46 | 显示全部楼层
爱疯 发表于 2016-5-13 16:55
1)先上传附件,看看有没有什么特别情况

2)全部隐藏,我想n号显示第n列。

我把今天14号和之后的隐藏了,我希望每天自动取消隐藏一列,然后在当天的一列中录入数据...

新建 Microsoft Excel 工作表.rar

20.6 KB, 下载次数: 3

示样

回复

使用道具 举报

发表于 2016-5-14 11:16 | 显示全部楼层
Private Sub Workbook_Open()
    Dim j, x%, y%, d%

    Application.ScreenUpdating = False
    Columns("E:AI").ColumnWidth = 5
    x = [E1].Column
    y = [AI1].Column
    d = Day(Date)

    For j = x To y
        If Cells(1, j) <> d Then Columns(j).ColumnWidth = 0
    Next j
    ThisWorkbook.Save
End Sub

1.rar (27.41 KB, 下载次数: 4)
回复

使用道具 举报

发表于 2016-5-14 12:25 | 显示全部楼层    本楼为最佳答案   
Private Sub Workbook_Open()
    Columns("E:AI").ColumnWidth = 0
    Columns(Day(Date) + 4).ColumnWidth = 5
End Sub

2.rar (26.41 KB, 下载次数: 10)
回复

使用道具 举报

 楼主| 发表于 2016-5-16 09:56 | 显示全部楼层
爱疯 发表于 2016-5-14 12:25
Private Sub Workbook_Open()
    Columns("E:AI").ColumnWidth = 0
    Columns(Day(Date) + 4).ColumnW ...

不好意思  查看晚了 请问这个宏是怎么用的?
回复

使用道具 举报

发表于 2016-5-16 09:59 | 显示全部楼层
vinkham 发表于 2016-5-16 09:56
不好意思  查看晚了 请问这个宏是怎么用的?

4楼是笨办法,4楼5楼都是解决1楼问题的
回复

使用道具 举报

 楼主| 发表于 2016-5-16 10:02 | 显示全部楼层
爱疯 发表于 2016-5-16 09:59
4楼是笨办法,4楼5楼都是解决1楼问题的

谢谢大神 发现自己没装vba插件 问题解决了 非常感谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 17:41 , Processed in 7.871913 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表