VBAの月の名前をIntegerに変換します。たとえば、1月から1月、8月から8月

-2

には、月の名前を整数に変換する簡単な方法がありますか？整数は常に1から12の間であり、1月= 1と12月= 12です。VBAの月の名前をIntegerに変換します。たとえば、1月から1月、8月から8月

これが使用されているシナリオは次のとおりです。

私は2016年1月の間の売上を計算し、何月、今年のクライアントが計算したいVBAを作りました。（だから今月は必要ない）

私の考えは、クライアントがVBAを実行し、希望の月を文字列に入れたら入力ボックスを持つことです。

私はクライアントに番号に変換するように頼むことができると思っていますが、多くの手間を省くことができれば好奇心です。

私はこれが説明することを望みます。

おかげで、

2016-09-02 YLS

は、辞書を使用しますか？それ以外の場合は、具体的な問題を明確にしたり、詳細を追加して、必要なもの（つまり、実際に何をしようとしているのか、そして*なぜ*、それは解決策ではないと思われる）を強調してください。現在書かれているとおり、あなたが求めていることを正確に伝えるのは難しいです。 –

'Application.Match（monthhere、Array（" January "、" February "、" March "、...、" December "）、0）' –

あなたは 'Enum'を使うこともできます。道路を下るためのツールベルトに入れるのは良いテクニックです。それを要約した良いページがあります。 http://www.cpearson.com/excel/Enums.aspx –

これは意識ロケールされていませんが、あなたの要点を与える必要があります。

Public Function MonthNumber(test As String) As Integer 
    MonthNumber = DatePart("M", test & "/13/2016") 
End Function

2016-09-02 19:46:54 Comintern

ありがとう！これは賢いです。 – YLS

答えて