Преобразование название месяца в номер

У меня есть выпадающий список с месяцами заполнения. Когда выбран месяц, я хотел бы преобразовать его в номер месяца есть ли функция, которая может это сделать?

например. Сентябрь = 9

6
date excel excel-vba vba

5 ответов

другой способ

Формулы 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

заменить

32

попробуйте это...

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

здесь A1 ячейка содержит название месяца.

5
Sub month()

Dim monthh As Integer

monthh = month(Date)

MsgBox monthh

End Sub

попробуйте это.

0

другая формула excel, где A1 - идентификатор ячейки с именем месяца:

=TEXT(DATEVALUE(A1&" 1"), "m")
0

Это решение не сработало для меня (Excel 2010), мне пришлось сократить имя месяца до 3 символов и добавить номер дня перед сокращенной строкой.

=MONTH(1&LEFT(A1;3))
0