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

[عبد الله قدور]

السلام عليكم

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

مثال في المرفق

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

 

المصنف1.xlsm

[ابراهيم الحداد]

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

ضع هذا الكود فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row < 4 Then Exit Sub
Dim C As Range, CList As Range
Dim Msg As String
Set CList = Range("C4:C" & Range("A" & Rows.Count).End(xlUp).Row)
For Each C In CList
If C.Value = "حلب" Then
Msg = MsgBox("هل تريد الاستمرار ؟", vbYesNo)
If Msg = vbYes Then
Exit Sub
Else
C.ClearContents
End If
End If
Next
End Sub

 

[Ali Mohamed Ali]

ممتاز استاذ ابراهيم بارك الله فيك

[عبد الله قدور]

6 ساعات مضت, عبد الله قدور said:

ادخال بيانات في عمود معين

 

4 ساعات مضت, ابراهيم الحداد said:

ضع هذا الكود فى حدث الورقة

السلام عليكم

اخي الكريم ما اريده هو ان يكون هذا الحدث على طول العمود وليس الخلية الاولى من الجدول فقط

وبعد تعديل الكود ليشمل العمود بدأت تظهر الرسالة عن كل مرة كتبت كلمة حلب في الجدول فعندما يكون هناك 4 مرات حلب فستظهر الرسالة 4 مرات

وهذه مشكلة كبيرة

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

[ابراهيم الحداد]

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

استبدل الكود السابق بهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row < 4 Or Target.Value <> "حلب" Then Exit Sub
Msg = MsgBox("هل تريد الاستمرار ؟", vbYesNo)
If Msg = vbYes Then
Exit Sub
Else
C.ClearContents
End If
End Sub

 

[عبد الله قدور]

السلام عليكم

اخي الكريم لم يفلح الامر

الرجاء التطبيق على المرفق وارساله لي لو سمحت وجزاك الله عني كل خير

 

 

[Ali Mohamed Ali]

تفضل استاذى الكريم طبعا بعد اذن استاذى الكبير ابراهيم

 

رسالة تحذير عند ادخال بيانات في عمود معين في جدول بعد ادخال نص معين.xlsm

[ابراهيم الحداد]

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

بارك الله فيك اخى الكريم عاى محمد

جعلك الله من السباقين الى الخير دائما

 

 

[عبد الله قدور]

3 ساعات مضت, ali mohamed ali said:

تفضل استاذى الكريم طبعا بعد اذن استاذى الكبير ابراهيم

جزاك الله كل خير هذا هو المطلوب

لكن ان اردت ان اضع لكل مدينة رسالة خاصة بها فهذا الشرط لا يفي بالغرض ونفسي لا تحبذ استخدام الشرط <> في الاكواد 😅

فان كان بالامكان ان يكون الشرط ان كانت قيمة الخلية تساوي حلب فتظهر الرسالة فيمكنني بعدها استخدام select case لاختار اكثر من مدينة وتحديد لكل مدينة رسالة تخصها

وجزاك الله عني كل خير

[Hamdi Edlbi-khalf]

السلام عليكم

بعد إذن الأساتذة

حسب ما اتضح من سؤالك أنك تتعامل مع نافذة منسدلة 

أخي لماذا لا تجعل القائمة المنسدلة متناقصة ؟

فلا يظهر الخيار مرتين في هذه النافذة و لا حاجة إلى رسائل .

 

 

أما بالنسبة لتطبيق العملية على كافة الاحتمالات و بامتداد الورقة .. 

إليك هذه الطريقة .

قم بهذه الخطوات :

١- عليك بعمل عمود مساعد 

٢- ضع فيه الدالة 

Countif

و اجعل المدى يبدأ بالخلية الحالية و ينتهي بأول خلية بالعمود ترغب بإجراء الجمع فيها .و الشرط يساوي قيمة الخلية الحالية .

٣- في نفس العمود المساعد أو في عمود آخر

استخدم الدالة 

iif

لإظهار الرسالة ضمن الخلية .

 

هذه أسهل الطرق و هي كافية إن لم يكن في الملف الكثير من الحقول 

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

تم تعديل نوفمبر 19, 2018 بواسطه Khalf

[عبد الله قدور]

في ١٩‏/١١‏/٢٠١٨ at 10:40, Khalf said:

هذه أسهل الطرق و هي كافية إن لم يكن في الملف الكثير من الحقول 

السلام عليكم

جزاك الله عني كل خير اخي @Khalf

اما بشأن كثرة الحقول فهي كثيرة بمعدل وسطي 2000 حقل

اما الفكرة من العملية هي ليس الا يستخدم المستخدم اسم المدينة اكثر من مرة لا ابدا

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

لكني اريد ان اطبق هذه الفكرة على اكثر من مدينة وليس مدينة واحدة فقط

مثال اخر

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

المشكلة عندي الان هي انه كيف اضع الشرط هو من ان المدينة هي حلب بعد الكتابة مباشرة او بعد الاختيار من القائمة المنسدلة

 

[عبد الله قدور]

للرفع