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

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

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




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





تعديل كود الكمبوبوكس

السلام عليكم احبائى واساتذتى الكرام رجاءا منكم تصحيح وتعديل كود الكمبوبوكس لكى يعرض بيانات الكود فقط الذى تم اختياره فى ..



09-10-2018 03:08 مساء
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 

السلام عليكم احبائى واساتذتى الكرام
رجاءا منكم تصحيح وتعديل كود الكمبوبوكس لكى يعرض بيانات الكود فقط الذى تم اختياره  فى الليست بوكس ,وليس بيانات كل الأكواد كما هو مبين فى الصورة
ولكم جزيل الشكر بارك الله فيكم جميعا
Private Sub ComboBox1_Change()
Dim x         As Worksheet
    Dim c           As Range
    Dim k           As Long
    Dim cf          As Integer
    On Error Resume Next
Set x = Sheets("ÍÑßÉ Çáíæãíå")
Me.TextBox8.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), x.Range("e5:f1000"), 2, 0)
Me.TextBox14.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), x.Range("e5:k1000"), 7, 0)
    If ComboBox1.Value = "" Then ListBox1.Clear: Exit Sub
    ListBox1.Clear: k = 0
       For Each c In x.Range("E5:E" & x.Cells(Rows.Count, 4).End(xlUp).Row)
        cf = InStr(c, ComboBox1)
        If cf > 0 Then
                    ListBox1.AddItem
            Lr = Cells(Rows.Count, "D").End(xlUp).Row
Me.ListBox1.List = Range("D5:N" & Lr).Value
            ListBox1.List(k, 0) = x.Cells(c.Row, 4).Value
            ListBox1.List(k, 1) = x.Cells(c.Row, 6).Value
            ListBox1.List(k, 2) = x.Cells(c.Row, 7).Value
            ListBox1.List(k, 3) = x.Cells(c.Row, 8).Value
            ListBox1.List(k, 4) = x.Cells(c.Row, 9).Value
            ListBox1.List(k, 5) = x.Cells(c.Row, 10).Value
            ListBox1.List(k, 6) = x.Cells(c.Row, 11).Value
            ListBox1.List(k, 7) = x.Cells(c.Row, 12).Value
            ListBox1.List(k, 8) = x.Cells(c.Row, 13).Value
            ListBox1.List(k, 9) = x.Cells(c.Row, 14).Value
            k = k + 1
        End If
    Next c
For h = 0 To ListBox1.ListCount - 1
Sum1 = Sum1 + Val(ListBox1.Column(2, h))
Sum2 = Sum2 + Val(ListBox1.Column(3, h))
sum3 = sum3 + Val(ListBox1.Column(4, h))
Next
TextBox10 = Sum1 + sum3
TextBox12 = Sum2
TextBox13 = (Sum1 + sum3) - Sum2
End Sub \"icon\" تعديل كود العرض فى الليست بوكس.rar

 
 
 
  تعديل كود العرض فى الليست بوكس.rar   تحميل rar مرات التحميل :(20)
الحجم :(787.628) KB







10-10-2018 12:00 صباحا
مشاهدة مشاركة منفردة [1]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
للرفع اكرمكم الله





10-10-2018 11:47 صباحا
مشاهدة مشاركة منفردة [2]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
للرفع رجاءا





10-10-2018 01:48 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14750
الاعجاب : 5506
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
وعليكم السلام أخي الكريم مهند 
أعتقد أن طلب التوضيح يكون للأعضاء الجدد فقط ..لأنهم لا يعرفون قوانين التعامل مع المنتدى أما بالنسبة للأعضاء المخضرمين من المفترض أنهم يقومون بذلك بدون الحاجة لطلب ذلك
لابد من التفاصيل لفهم المشكلة ..
ما هي شكل النتائج المتوقعة؟ أعطي مثال وما هي الحقول المفترض أن يتم التعامل معها ويفضل إرفاق صورة بشكل النتائج المتوقعة
 

أثارت هذه المشاركة إعجاب: مهند محسن،




10-10-2018 01:58 مساء
مشاهدة مشاركة منفردة [4]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
بالفعل استاذى الكريم ياسر ارسلت هذه الصورة من اول مشاركة
NW3IMTDgjGhpDKq
 
 






10-10-2018 02:15 مساء
مشاهدة مشاركة منفردة [5]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
وهذه صورة ايضا للتوضيح على ان يتم عرض بيانات البحث بناءا على الكود الموجود فى الكمبوبوكس من صفحة حركة اليومية بداية من العمود الرابع  من الصفحة وهو العمود D
أتمنى ان يكون الأمر قد وضح ومعذرة واتأسف لك استاذى الكريم
فالكود الحالى فى الملف يقوم بعرض كل البيانات الموجودة فى  صفحة حركة اليومية
وانا احتاج بيانات للكود فقط الموجود بالكمبوبوكس
جزاك الله كل خير
Fcru5pH65gA2Ce8
 
 
 






10-10-2018 10:47 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14750
الاعجاب : 5506
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
جرب التعديل التالي عله يفي بالغرض
Private Sub ComboBox1_Change()
    Dim x           As Worksheet
    Dim c           As Range
    Dim k           As Long
    Dim cf          As Integer

    On Error Resume Next
    Set x = Sheets("حركة اليوميه")
    Me.TextBox8.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), x.Range("e5:f1000"), 2, 0)
    Me.TextBox14.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), x.Range("e5:k1000"), 7, 0)
    If ComboBox1.Value = "" Then ListBox1.Clear: Exit Sub
    ListBox1.Clear: k = 0
    
    For Each c In x.Range("E5:E" & x.Cells(Rows.Count, 4).End(xlUp).Row)
        If Val(ComboBox1.Value) = c.Value Then
            ListBox1.AddItem
            ListBox1.List(k, 0) = x.Cells(c.Row, 4).Value
            ListBox1.List(k, 1) = x.Cells(c.Row, 6).Value
            ListBox1.List(k, 2) = x.Cells(c.Row, 7).Value
            ListBox1.List(k, 3) = x.Cells(c.Row, 8).Value
            ListBox1.List(k, 4) = x.Cells(c.Row, 9).Value
            ListBox1.List(k, 5) = x.Cells(c.Row, 10).Value
            ListBox1.List(k, 6) = x.Cells(c.Row, 11).Value
            ListBox1.List(k, 7) = x.Cells(c.Row, 12).Value
            ListBox1.List(k, 8) = x.Cells(c.Row, 13).Value
            ListBox1.List(k, 9) = x.Cells(c.Row, 14).Value
            k = k + 1
        End If
    Next c
    For h = 0 To ListBox1.ListCount - 1
        Sum1 = Sum1 + Val(ListBox1.Column(2, h))
        Sum2 = Sum2 + Val(ListBox1.Column(3, h))
        sum3 = sum3 + Val(ListBox1.Column(4, h))
    Next
    TextBox10 = Sum1 + sum3
    TextBox12 = Sum2
    TextBox13 = (Sum1 + sum3) - Sum2
End Sub

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




10-10-2018 11:09 مساء
مشاهدة مشاركة منفردة [7]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
وهو فعلا المطلوب بارك الله فيك وجزاك الله كل خير وجعله فى ميزان حسناتك
ووسع الله فى رزقك استاذى الكريم وغفر لك وأدخلك فسيح جناته ورفع شأنك وزادك الله فى العلم وفرج عنك كرب يوم القيامة
شكرا جزيلا لك استاذى الكريم ياسر

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




10-10-2018 11:36 مساء
مشاهدة مشاركة منفردة [8]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 644
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3204
الاعجاب : 1028
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
أحسنت استاذ ياسر كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


11-10-2018 01:40 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14750
الاعجاب : 5506
 offline 
look/images/icons/i1.gif تعديل كود الكمبوبوكس
بارك الله فيكم إخواني الكرام وجزيتم خيراً
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات
تقبلوا تحياتي






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
64 818 المقدم
تعديل على كود جلب البيانات بحيث يستثني الذي لم يكتمل ابوعلي الحبيب
14 106 ابوعلي الحبيب
تعديل ملف اكسل ورشه سيارات mmoqry
3 83 محمود ابو الدهب
طلب ضبط كودعند تعديل على البيانات في شيت يتم تعديل حتى في شيت الأخر ابااسماعيل
1 35 ابااسماعيل
ضبط وتعديل كود البحث فى الكمبوبوكس وكود التعديل هانى على
2 57 هانى على

الكلمات الدلالية
تعديل ، الكمبوبوكس ،


 







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



الساعة الآن 07:36 صباحا

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