将月份名称转换为数字

Question

我有几个月填充的下拉框.选择一个月后,我想将其转换为月份数是否有可以执行此操作的功能？

例如.九月=九

Answer 1

其他方式

Excel公式

=MONTH(1&A1)

VBA

Sub Sample()
    Dim MonthNm As String
    MonthNm = "September"
    Debug.Print Month(DateValue("01 " & MonthNm & " 2012"))
End Sub

要么

Sub Sample()
    Dim MonthNm As String
    MonthNm = "September"
    Debug.Print Application.Evaluate("=MONTH(1&" & Chr(34) & MonthNm & Chr(34) & ")")
End Sub

更换

Answer 2

试试这个...

 =MONTH(DATEVALUE(A1&"1"))

其中A1单元格包含月份名称.