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

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


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


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





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

السلام عليكم لدي مشكلة في كود اظهار رسالة تحذيرية حيث المدى اريده من C2:C4 الا ان الكود يطبق على مدى C2 فقط الكود ي ..



01-10-2019 11:43 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
السلام عليكم 
لدي مشكلة في كود اظهار رسالة تحذيرية  حيث المدى اريده من C2:C4   الا ان الكود يطبق على مدى C2 فقط  الكود يعمل  بعد الانتهاء من تعبئة TEXTBOX3 والضغط على انتر تظهر الرسالة 
 
 
  اظهار رسالة صنف.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(48.196) KB





02-10-2019 01:52 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير
وعليكم السلام
جرب الكود التالي رغم أن الموضوع غير واضح بشكل كبير
Private Sub TextBox3_AfterUpdate()
    Dim myCell As Range, b As Boolean, s As String

    For Each myCell In Range("C2:C4")
        If Val(TextBox3.Value) > myCell Then
            b = True
            s = s & IIf(s = Empty, "", vbCrLf) & myCell.Address & " - " & myCell.Value
        End If
    Next myCell
    
    If b Then MsgBox "The Availble Brand Is " & vbCrLf & s
End Sub




02-10-2019 06:15 صباحا
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير
شكرا اخي ياسر ولكن ليس هذا ما اريده   المطلوب عند كتابة الصنف يظهر لي فقط الكمية الخاصة به مثلا عندي 315/80R22.5  يضهر لي كميته فقط (The Availble Brand Is300)دون كميات الاصناف الاخرى كما في كودك وعدم تكرار اظهار كمية الخلية C4 لاصناف مختلفة  يتم اختيارها  كما في كودي 




02-10-2019 07:12 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير
يفضل وضع صورة لشكل النتائج ...
هل تقصد استخدام دالة SUMIF لجمع الكميات للصنف الواحد أم ماذا ...؟ وهل لكل صنف أكثر من كود ؟؟
أليس من المفترض أن يكون الكود مميز لكل صنف؟
الرجاء المزيد من التفاصيل لتجد المساعدة من الآخرين بشكل أفضل




02-10-2019 08:38 صباحا
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير
بالنسبة للصورة الاولى الخاص بكودك يجب اظهار رسالة  التحذير  الرقم يجي ان يظهر في الرسالة كما قمت بتعبئته في التيكستبوكس3  ولا داعي لمعرفة خلايا التي بها القيمة 
بالنسبة للصورة الثانية الخاصة بكودي  هنا تلاحظ  عند اختيار اي صنف  يعطي قيمة ثابثة  وهي قيمة الصنف الاول  كما هو موضح في الصورة 
 
  1.jpg   تحميل jpg 1.jpg مرات التحميل :(0)
الحجم :(56.994) KB
  2.jpg   تحميل jpg 2.jpg مرات التحميل :(0)
الحجم :(70.51) KB
 





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




04-10-2019 05:55 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير
شكرا اخي ياسر مرة اخري على محاولاتك ومساعدتك لي  في اكثر من  موضوع  حت تعم  للجميع  الفائدة  لقد حصلت على الكود  من احدى المواقع الاجنبية  وبصراحة   من  السيد  دانتي امور لا بد من دكر   هذا الشخص لطالما قام لي بحل مسائل كثيرة  في برمجة الاكسيل 
آلية عمل الكود  عند الدخول لليوزرفورم  وتعبئة بيانات  بعد النقر على الانتر تظهر الرسالة  ويمكنك في كل مرة  اختيار الصنف  التي تريده وسيعطيك  الكمية المتوقرة لهذا  الصنف  في حالة  الكمية التي ادخلتها اكبر من الموجودة  في ورقة العمل  عدرا على الاطالة  تفضلوا الكود والملف
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim f As Range
  If TextBox2.Value = "" Then
    MsgBox "Enter Brand"
    TextBox2.SetFocus
    Exit Sub
  End If
  If TextBox3.Value = "" Then Exit Sub
  If TextBox3.Value <= 0 Or Not IsNumeric(TextBox3.Value) Then
    Cancel = True
    MsgBox "Enter a valid value"
    Exit Sub
  End If
  Set f = Sheets("ورقة1").Range("B:B").Find(TextBox2, , xlValues, xlWhole)
  If Not f Is Nothing Then
    If f.Offset(, 1) < Val(TextBox3) Then
      MsgBox "Available is : " & f.Offset(, 1)
      Cancel = True
    Else
      MsgBox "ok"
    End If
  Else
 
 
  اظهار رسالة صنف1.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(48.522) KB


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



04-10-2019 09:33 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير
يرجى وضع رابط الموضوع لمن أراد الاستزادة ومتابعة الموضوع والمناقشات




05-10-2019 09:24 صباحا
مشاهدة مشاركة منفردة [8]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 215
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 51
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير




05-10-2019 10:25 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif تعديل كود اظهار رسالة تحذير
بارك الله فيك أخي الكريم ومشكور على الاستجابة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم اخفاء واظهار التكست بوكس والليبل فيديو 1 مجدى يونس
2 54 مجدى يونس
تعديل كود ضبط اظهار رسالة التحذير المبتدأ
5 93 YasserKhalil
طلب اظهار العام المكتوب فيه الاسم بالخطاء محمدمطر
0 158 محمدمطر
كيفية البحث من خلال الكومبو بوكس واظهار النتائج فى الليست بوكس محمدعبدالسلام
3 125 محمدعبدالسلام
فورم اظهار البيانات المسجلة بالليست بوكس والبحث عنها فيديو 8 مجدى يونس
4 256 مجدى يونس

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


 







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

الساعة الآن 07:35 مساء

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