أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil الغاء اعمده مخفيه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل كود ضبط اظهار رسالة التحذير

السلام عليكم لقد قمت بعمل كود بسيط بناء على شرط بحيث يكون العمود 6 =expired عندها يتم ظهور الرسالة ولكن المشكلة هنا ..



16-11-2019 11:13 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
السلام عليكم 
 لقد قمت بعمل كود بسيط بناء على شرط  بحيث يكون العمود 6 =expired عندها يتم ظهور الرسالة  ولكن المشكلة هنا  هو عند استخدام الحلقة التكرارية  يتم التنفيد  اكثر من مرة  وبالتالي يتم ظهور الرسالة اكثر من مرة  لانها حلقة تكرارية  وانا اريد اظهار الرسالة  مرة واحدة بالاضافة  الى حساب كم صنف منتهي الصلاحية  ثم اظهار قائمة الاصناف المنتهية الصلاحية  وهذا الكود 
Sub dd()
Dim lastrow As Integer
Dim i As Integer
lastrow = Range("a1000").End(xlUp).Row
For i = 2 To lastrow
If Cells(i, 5).Value = 10 Then
Cells(i, 6).Value = "expired"
MsgBox "هذا  الصنف منتهي الصلاحية بتاريخ  " & Cells(i, 4)
UserForm1.Show
End If
Next
End Sub



ولقد قمت باستخدام الدالة  counta  في البداية نجح الامر  ولكن اتضح اذاكانت احدى خلايا العمود6  لا تساوي expired  فان الكود لا يعمل على الاطلاق 


Sub dd()
Dim i As Integer
i = WorksheetFunction.CountA(ورقة1.Range("a:a"))

If Cells(i, 5).Value = 10 Then
Cells(i, 6).Value = "expired"
MsgBox "يوجد اصناف منتهية الصلاحية " & Cells(i, 4)
UserForm1.Show
End If
 
 
  alert.xls   تحميل xls مرات التحميل :(2)
الحجم :(51.2) KB





17-11-2019 04:50 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8277
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif تعديل كود ضبط اظهار رسالة التحذير
وعليكم السلام أخي الكريم

جرب الكود التالي عله يكون المطلوب ويفي بالغرض إن شاء الله

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أثارت هذه المشاركة إعجاب: ali mohamed ali، أحمد يوسف، المبتدأ،



17-11-2019 11:42 صباحا
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
look/images/icons/i1.gif تعديل كود ضبط اظهار رسالة التحذير
ما هذا الابداع اخي ياسر شكرا على الكود الرائع شغال  كان الانترنت ضعيف  لدية جزاية اذا لم يكن لديك مانع  عند ظهور قائمة الليست بوكس في اليوزفورم اريد اظهار الاصناف فقط التي يكون فيها العمود الخامس (باقي الايام)=10

أثارت هذه المشاركة إعجاب: YasserKhalil،



17-11-2019 01:29 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8277
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif تعديل كود ضبط اظهار رسالة التحذير
بارك الله فيك أخي الكريم

الموضوع يخصص لنقطة واحدة فقط ، وما تطلبه أمر مختلف تماماً لذا يرجى طرح موضوع جديد مع إرفاق محاولتك للوصول للحل
الفكرة ستكون في عدم تحميل عناصر الليست بوكس مباشرةً بل يجب عمل حلقة تكرارية وإدراج العنصر الذي ينطبق عليه الشرط فقط




17-11-2019 03:24 مساء
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
look/images/icons/i1.gif تعديل كود ضبط اظهار رسالة التحذير
شكرا اخي ياسر وساحاول به قد اصل الى حل 




17-11-2019 06:28 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8277
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif تعديل كود ضبط اظهار رسالة التحذير
بارك الله فيك أخي الكريم
وإذا فشلت لا عليك قم بطرح موضوع جديد وضع ما توصلت إليه وسنحاول مساعدتك إن شاء الله

أثارت هذه المشاركة إعجاب: ali mohamed ali،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل كود اظهار رسالة تحذير المبتدأ
9 215 YasserKhalil
حل اظهار الرسالة عند فتح الشيت رمضان بكري
8 347 رمضان بكري
كود اظهار رسالة تنبيه بنفاد اصناف للمخزون المبتدأ
1 271 المبتدأ
اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت Yasser Elaraby
20 4305 manola_mr
اظهار رسالة تحتوي على عبارة( يرجى الانتظار) عند تنفيذ كود محدد Salamco
2 684 Salamco

الكلمات الدلالية
تعديل ، اظهار ، رسالة ، التحذير ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 10:47 صباحا

أعلن هنا
أعلن هنا
أعلن هنا