خواندن تاریخ از سلول

[aliooali]

سلام دوستان عزیز

من یه کد دارم و میخوام از sheet 1 سلول A5 یک تاریخ رو بخونه
اگر امکانش هست بررسی کنید

با تشکر

Dim time As Date

time = DateSerial(2016, 05, 14)
If Now() >= time Then
MsgBox (date is ok )
ThisWorkbook.Close savechanges:=False
End If

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

کدهای ذیل را تست کنید

Sub TEST()

Dim time As Date
time = DateSerial(2016, 5, 14)
If Now() >= time Then
MsgBox (Date Is ok)
ThisWorkbook.Close savechanges:=False

End If

End Sub 

[aliooali]

دوست عزیز اینکه همون کدی هستش که خودم قرار داده بودم برای بررسی !!!!!!!!!!!!!!!!!!!

[iranweld]

ببخشید اشتباه کپی شد.

Sub test()

Dim time As Date
time = DateSerial(2016, 5, 14)
If Range("a5") >= time Then
MsgBox "Date Is ok"
ThisWorkbook.Close savechanges:=False

End If


End Sub