رسائل التنبيه مع شرط خليه ما

[عبدالله السعيد]

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

كيف يمكن لبرنامج الإكسل إظهار سالة إعلام بمحتويات عدة خلايا إذا تحقق الشرط في خلية ما

على سبيل المثال

اسم العميل / عبدالله السعيد a2

الجنسية /........... b2

اذا وصل مجموع المستحقات عليه في الخلية c2 وانطبق الشرط في هذه الخلية مع قيمة الخلية d2 تظهر رساله تنبيه على الشاشة تحمل بيانات هذا العميل

اتمنى وصول الفكرة

الشكر لكم

[محمد حجازي]

السلام عليكم ...

أخي ، يمكنك عمل ذلك عن طريق الـ VBA و بالأخص التعليمة MsgBox ، و لكن يجب قبل كل شيء تحديد الحدث الذي سيشغل الإجراء المكتوب :

- هل سيكون الحدث عبارة عن الضغط على زر أمر معين؟

- أم سيكون مثلاً عند تحرير أحد الخلايا؟

- أم سيكون عند تغيير محتويات أحد الخلايا بواسطة تحريرها أو بواسطة صيغة معينة (أعتقد أن هذا ماتريده) ، و في هذه الحالة فإنك بحاجة لكتابة دالة محددة .

لي عودة إن شاء الله بعد تعقيبك

[عبدالله السعيد]

+++++++++++++++++++++

عند تغيير محتويات أحد الخلايا بواسطة تحريرها أو بواسطة صيغة معينة (أعتقد أن هذا ماتريده)

+++++++++++++++++++++

نعم عزيزي هذا ما أريده

وآسف على تأخري

تم تعديل مايو 21, 2005 بواسطه عبدالله السعيد

[محمد حجازي]

السلام عليكم ...

جرب الدالة البيسطة التالية بشكلها المبدئي:

Function alarm(MyData As Range, Account As Double, Criteria As Double) As String
  Dim MyText As String
  If Account >= Criteria Then
    For Each m In MyData.Cells
      MyText = MyText & m.Value & vbNewLine
    Next m
    MsgBox prompt:=MyText, Title:="تحذير"
    alarm = "تجاوز الحد"
  Else
    alarm = "لم يتجاوز الحد"
  End If
End Function

حيث :

MyData : هو مجال البيانات التي تريد ظهورها في الرسالة .

Account : رصيد العميل .

Criteria : حد التنبيه.

[عبدالله السعيد]

شكراً استاذي الفاضل