Excel中填写计算闰年平年的vba代码

Question

应该要怎么做？？！！求高手指教！！感激不尽！！

Answer 1

用下面代码试试

Private Sub togglebutton6_click()

n = InputBox("输入年份：")

Dim rn(1904 To 2104)

For i = 1904 To 2100 Step 4

    rn(i) = "闰年"

    rn(i + 1) = "平年"

    rn(i + 2) = rn(i + 1): rn(i + 3) = rn(i + 1)

Next

MsgBox (n & "年是" & rn(n))

End Sub