我們?cè)谝郧暗奈恼陆榻B了使用excel內(nèi)置的函數(shù)編寫公式來判斷年份屬于閏年還是平年,本文再介紹使用excel的VBA代碼來判斷閏年的方法。
在excel中,按下ALT+F11鍵,打開VBE編輯器,插入——模塊,復(fù)制下面的VBA代碼,然后單擊“運(yùn)行”命令運(yùn)行即可實(shí)現(xiàn)VBA判斷閏年。
Sub 判斷閏年()
Dim Tmp
On Error GoTo skip
Tmp = CDate(InputBox("請(qǐng)輸入一個(gè)年份", "年份", Year(Now)) & "-2-29")
MsgBox "是閏年!"
Exit Sub
skip:
MsgBox "不是閏年!"
End Sub
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:excel VBA判斷閏年的代碼和方法
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139213561.html