我的日历中缺少1月31日

Question

正如您在屏幕截图中看到的那样，日历仅显示1月30日，而缺少第31天。当我尝试通过添加新列（AG）手动添加这一天时，它可以工作。但是当我滚动到下个月即2月时，AG列变为空白！当我再次滚动回到1月份的30天！     

Answer 1

因为您隐藏了Columns("C:NI")并且只取消了 C列中的30列列AF 。

Range("B3").Value等于 1 ，Range("B3").Value * 31 - 29等于 2 。 同样，Range("B3").Value * 31 + 1等于 32 。因此，您只取消隐藏 30 列（32-2）！ 只需将您的VBA代码Range("B3").Value * 31 - 29更改为Range("B3").Value * 31 -28，将Range("B3").Value * 31 + 1更改为Range("B3").Value * 31 + 2：

Sub showcalendar()
   LeaveTracker.Columns("C:NJ").Hidden = True
   LeaveTracker.Range(Columns(Range("B3").Value * 31 - 28), Columns(Range("B3").Value * 31 + 2)).Hidden = False
End Sub

还有一件事，在excel公式中将所有Column()-1更改为Column()-2。 Here是您修复过的工作簿。检查并告诉我你的任何想法。