日付リストから月の変更をテストする

Question

月に変更があるたびに（たとえば1月から2月に）識別できるVBAでコードを作成したいとします。あなたは、私が列Bからの入力をしたい見ることができ、以下の例では

、および列Cに出力する出力は次のようになります。

• Test月の変更が発生した場合。
• Train月が以前と同じ場合は、

例データ：

A  B    C 
1  29/12/2006  Train  
2  01/01/2007  Test  
3  02/01/2007  Train  
4  03/01/2007  Train  
5  04/01/2007  Train  
6  05/01/2007  Train 
.. 
100  01/07/2007  Test 

Answer 1

このような何かが、おそらく仕事をするでしょう：

=IF(And(Month(A4)=Month(A3);Year(A4)=Year(A3));"Train";"Test")

をそれはA4とA3との年の数ヶ月を比較します。

Answer 2

別の方法があります。 A1-Day(A1)は常に先月の最終日を返します。したがって：

B2: =IF((A1-DAY(A1))=(A2-DAY(A2)),"Train","Test")