1月31日がカレンダーにありません

Question

スクリーンショットでわかるように、カレンダーには1月の30日しか表示されず、31日が欠落しています。新しいカラム（AG）を追加してこの日を手動で追加しようとすると、そのカラムが機能します。しかし、2月の次の月にスクロールすると、列AGは空白になります！と私は再び30日に1月にスクロールするとき！

Answer 1

あなたはColumns("C:NI")を隠し、列AFに列Cからのみ30列を再表示するので。

Range("B3").Valueはに等しいとRange("B3").Value * 31 - 29に等しいです。 同様に、Range("B3").Value * 31 + 1はに等しい。だから、あなただけを再現するの列（32-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 

そしてもう一つは、すべてのColumn()-1 ExcelのformulaesでColumn()-2には変更： はちょうどあなたのVBAコードRange("B3").Value * 31 - 29Range("B3").Value * 31 -28へとRange("B3").Value * 31 + 1Range("B3").Value * 31 + 2に変更します。 Hereは修復されたワークブックです。あなたのアイディアを確認して教えてください。