محمد حجازي

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

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 : حد التنبيه.