كيف يمكن عرض مربع رسالة منبثق إذا كانت قيمة الخلية أكبر أو أقل من قيمة معيّنة في Excel؟

إذا كانت إحدى الخلايا أكبر أو أصغر من خلية أخرى، فكيف يمكنني عرض مربع رسالة منبثق للتنبيه في Excel؟ في هذه المقالة، سأشرح بعض الأكواد التي تُعالج هذه المسألة.

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

عرض مربع رسالة منبثق إذا كانت قيمة خلية ما أكبر أو أقل من خلية أخرى

---

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

لنفترض أن الرقم 100 موجود في الخلية A1؛ فعند إدخال رقم في العمود D يزيد عن القيمة الموجودة في الخلية A1، يجب أن يظهر مربع رسالة لتذكير المستخدم.

يمكنك استخدام كود VBA أدناه لإنجاز ذلك، يُرجى اتباع الخطوات التالية:

1. انتقل إلى ورقة العمل التي تريد استخدامها.

2. انقر بزر الماوس الأيمن على لسان الورقة، ثم اخترView Code من القائمة السياقية. بعد ظهور نافذةMicrosoft Visual Basic for Applications، انسخ الكود التالي ولصقه في نافذة الوحدة (Module) الفارغة، كما في لقطة الشاشة:

كود VBA: عرض مربع رسالة منبثق إذا كانت قيمة خلية في عمود ما أكبر أو أقل من خلية

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

ملاحظة: في الكود أعلاه،Sheet1 هي ورقة العمل التي تريد استخدامها؛ وA1 هي قيمة الخلية التي تريد المقارنة معها؛ وD:D هو العمود الذي تريد مقارنته بالخلية A1.

3. بعد ذلك، احفظ وأغلق نافذة الكود. ومن الآن فصاعدًا، سيظهر مربع رسالة منبثق كلما أدخلت رقمًا في العمود D يزيد عن 100، كما في لقطة الشاشة التالية:

---

---

عرض مربع رسالة منبثق إذا كانت قيمة خلية ما أكبر أو أقل من خلية أخرى

إذا كنت ترغب في ظهور مربع رسالة منبثق عندما تكون قيمة خلية ما أكبر أو أقل من خلية أخرى، يُرجى تطبيق الكود أدناه:

1. انتقل إلى ورقة العمل التي تريد استخدامها.

2. انقر بزر الماوس الأيمن على لسان الورقة، ثم اخترView Codeمن القائمة السياقية. في نافذةMicrosoft Visual Basic for Applicationsالتي تظهر، يُرجى نسخ الكود التالي ولصقه في نافذة الوحدة (Module) الفارغة، انظر لقطة الشاشة:

كود VBA: عرض مربع رسالة منبثق إذا كانت قيمة خلية أكبر أو أقل من خلية

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

ملاحظة: في الكود أعلاه،A1 وD1 هما الخليتان اللتان تريد مقارنتهما.

3. بعد ذلك، احفظ وأغلق نافذة الكود. عند إدخال قيمة أقل من القيمة الموجودة في الخلية A1، سيظهر مربع رسالة منبثق كما في لقطة الشاشة أدناه:

---

مقالات ذات صلة أخرى حول مربعات الرسائل المنبثقة: