[؛ أحمد ؛]

السلام عليكم

كيف الحال

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

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

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

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

This post has been edited by ؛ أحمد ؛: 16 July 2010 - 08:12 PM

[hben]

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

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

    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";""))

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

والله أعلم

أخوك بن علية

This post has been edited by hben: 16 July 2010 - 08:48 PM

[؛ أحمد ؛]

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

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

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

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

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

[kemas]

ليس ضروريا أن تحدد الخلية أولا
كى تعين لها قيمة

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

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