[已解决]不知道这个要求能否实现

colour250

假设我隐藏AA-AZ列，从指定时间开始后，每天都显示一列的数据，直至到AZ为全部显示为止。这个可以实现的不?

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-3 14:25

以下代码放 在 ThisWorkbook，工作簿开启时就会自动执行

Private Sub Workbook_Open()
   [aa:az].EntireColumn.Hidden = 1
   d = [today()-"2021/11/1"] + 1
   If d >0 Then [aa:aa].Resize(, d).EntireColumn.Hidden = 0
End Sub


红色部份，可以调整成您要的日期(从哪一天开始)

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

心正意诚身修

可以实现。但是我觉得你这种太懒了。适合当领导。

cutecpu

以下代码放 在 ThisWorkbook，工作簿开启时就会自动执行

Private Sub Workbook_Open()
   [aa:az].EntireColumn.Hidden = 1
   d = [today()-"2021/11/1"] + 1
   If d >0 Then [aa:aa].Resize(, d).EntireColumn.Hidden = 0
End Sub


红色部份，可以调整成您要的日期(从哪一天开始)

祝順心，南無阿彌陀佛！

colour250

心正意诚身修 发表于 2021-11-3 12:07
可以实现。但是我觉得你这种太懒了。适合当领导。

  承你贵言，希望下次真能当上领导！

colour250

cutecpu 发表于 2021-11-3 14:25
以下代码放 在 ThisWorkbook，工作簿开启时就会自动执行

Private Sub Workbook_Open()

太强大了，居然这样也可以实现。谢谢！