مقارنة تاريخ

[؛ أحمد ؛]

السلام عليكم

كيف الحال

أريد عمل ماكرو في الإكسيل بحيث إذا كان التاريخ في الخلية الأولى أكبر من تاريخ اليوم تظهر رسالة محددة في خلية أخرى وإذا كان التاريخ أقل من تاريخ اليوم تظهر رسالة أخرى

قمت بعمل هذا الكود

Range("A1").select

    If ActiveCell.FormulaR1C1 > Date Then


    Range("A2").select

    ActiveCell.FormulaR1C1 = ""

    ActiveCell.FormulaR1C1 = "hi"

    ElseIf ActiveCell.FormulaR1C1 < Date Then

    Range("A2").select

    ActiveCell.FormulaR1C1 = ""

    ActiveCell.FormulaR1C1 = "hello"

    End If

ولكن دائما يعطيني نتيجة واحدة وهي الكلمة الأولى حتى لو غيرت التاريخ إلى قيمة أقل من تاريخ اليوم يعطيني نفس النتيجة

تم تعديل يوليو 16, 2010 بواسطه ؛ أحمد ؛

[بن علية حاجي]

السلام عليكم ورحمة الله

أعتقد أن الكود يكون من الشكل المبسط التالي:

    If Range("A1").Value > Date Then

    Range("A2").Value = "hi"

    ElseIf Range("A1").Value < Date Then

      Range("A2").Value  = "hello"

    End If

ويمكن استعمال دالة IF في الخلية A2 بالشكل التالي:

=IF(A1>TODAY();"Hi";IF(A1<TODAY();"Hello";""))

وهذه المعادلة تقوم مقام الكود...

والله أعلم

أخوك بن علية

تم تعديل يوليو 16, 2010 بواسطه hben

[؛ أحمد ؛]

وعليكم السلام ورحمة الله وبركاته

شكرا لك أخي الكريم

هذا بالضبط ما كنت أريده

وكنت أريده بالكود لأنني أريد تنفيذه في بداية تشغيل ورقة العمل

جزاك الله خيرا

[عبد الفتاح كيرة]

ليس ضروريا أن تحدد الخلية أولا

كى تعين لها قيمة

Sub test()

    Range("A1").Select

    If ActiveCell.Value > Date Then

    Range("A2") = "hi"

    ElseIf [a1] < Date Then

    Range("A2") = "hello"

    End If

End Sub

[أيسم إبراهيم]

Private Sub Worksheet_Change(ByVal Target As Range)

Range("A1").select

If ActiveCell.Value > Date Then

Range("A2").Value = "hi"

ElseIf Range("A1").Value <= Date Then

Range("A2").Value = "hello"

End If

End Sub

هذا كان ردي عليك في أحد المنتديات منذ فترة

يبدو أنك لم تراه

السلام عليكم