我們在以前的文章介紹了使用excel內置的函數編寫公式來判斷年份屬于閏年還是平年，本文再介紹使用excel的VBA代碼來判斷閏年的方法。

　　在excel中，按下ALT+F11鍵，打開VBE編輯器，插入——模塊，復制下面的VBA代碼，然后單擊“運行”命令運行即可實現VBA判斷閏年。

Sub 判斷閏年()
Dim Tmp
On Error GoTo skip
Tmp = CDate(InputBox("請輸入一個年份", "年份", Year(Now)) & "-2-29")
MsgBox "是閏年!"
Exit Sub
skip:
MsgBox "不是閏年!"
End Sub