日付の年の確認方法について A1セルに2017/4/1 コンボボックスに2018/4/1 と入ってい

日付の年の確認方法について

A1セルに2017/4/1
コンボボックスに2018/4/1
と入っています。この両方の年だけ等しいか確認するには rang("a1").Format(Date, "yyyy")=コンボボックス.Format(Date, "yyyy")で大丈夫ですか。
よろしくお願いします。

No.1 ベストアンサー 回答者： angkor_h 回答日時： 2017/04/27 18:26

年の比較であれば、

year(セル)
です。

この回答へのお礼

ありがとうございます。

お礼日時：2017/04/27 19:04

No.2 回答者： WindFaller 回答日時： 2017/04/28 18:13

もし解決していたら余計になってしまいますが、

ComboBox は、テキスト値
Cells の Value2 は、シリアル値で、ふつうは、Value 値か、Text 値です

だから、両方を取得するには、それぞれのFromatに合わせてあげないといけません。

Sub Same_Diff()
Dim buf1 As Variant
Dim buf2 As Variant
Dim y1 As Integer
Dim y2 As Integer

'コンボボックス
buf1 = Me.ComboBox1.Value
buf1 = DateValue(buf1)
y1 = Year(buf1)

'セル
buf2 = Range("A1").Value
y2 = Year(buf2)

If y1 = y2 Then
　 MsgBox "同じ"
Else
　 MsgBox "違う"
End If
　
End Sub

この回答へのお礼

ありがとうございますの

お礼日時：2017/05/06 05:40