月が入力されたドロップダウンボックスがあります。月が選択されたら、それを月番号に変換したいのですが、これを行うことができる関数はありますか?
例えば。9 月 = 9
別の方法
エクセル数式
=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
交換
これを試して...
=MONTH(DATEVALUE(A1&"1"))
セルA1
には月の名前が含まれています。
別の Excel 式で、A1
は月名のセル ID です。
=TEXT(DATEVALUE(A1&" 1"), "m")
Sub month()
Dim monthh As Integer
monthh = month(Date)
MsgBox monthh
End Sub
これを試して。
この解決策は私にはうまくいきませんでした (Excel 2010)。月の名前を 3 文字に短縮し、短縮された文字列の前に日番号を追加する必要がありました。
=MONTH(1&LEFT(A1;3))