السلام عليكم ...
جرب الدالة البيسطة التالية بشكلها المبدئي:
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 : حد التنبيه.
