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

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


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



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







24-05-2019 05:50 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 

الشرح في المرفق
 
 
  LIST.rar   تحميل rar مرات التحميل :(13)
الحجم :(27.021) KB







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

ويرجى وضع الشرح في الموضوع نفسه وليس داخل الملف فقط

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




25-05-2019 10:09 صباحا
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود ربط اليست بوكس مع خلايا اكسيل
هنا اريد اظهار كل الاعمدة  ويكون البحث عند وضعه في تيكست بوكس 1 بناء على العمود B  وعند اظهار البيانات في الليست بوكس  اريد تجاهل الصنف المكرر  فيجب اظهاره مرة واحدة مع مراعاة اظهار اجمالي رصيد الصنف للعمود G في تيكستبوكس2  مثال للتوضيح 

في الورقة 1  الصف الاول  الصنف 1200R20      رصيده 190
الصف الثاني      1200R20     رصيده  100عند البحث  يظهر في الليستبوكس   الصف الاول والثاني  انا اريد ان يظهر مرة واحدة واظهار اجمالي رصيده  290 في تيكستبوكس2
اتمنى الشرح واضح 

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




25-05-2019 11:19 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود ربط اليست بوكس مع خلايا اكسيل
تم حل المشكلة 
 
وهذا  الكود النهائي 

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then ListBox1.Clear: Exit Sub
Dim x As Worksheet
Dim Tot As Double
         ListBox1.Clear
    k = 0
For Each x In ThisWorkbook.Worksheets
        ss = x.Cells(Rows.Count, 1).End(xlUp).Row
        For Each C In x.Range("B2:B" & ss)
            b = InStr(C, TextBox1)
            If b > 0 Then
                ListBox1.AddItem
                ListBox1.List(k, 0) = x.Cells(C.Row, 1).Value
                ListBox1.List(k, 1) = x.Cells(C.Row, 2).Value
                ListBox1.List(k, 2) = x.Cells(C.Row, 3).Value
                ListBox1.List(k, 3) = x.Cells(C.Row, 4).Value
                ListBox1.List(k, 4) = x.Cells(C.Row, 5).Value
                ListBox1.List(k, 5) = x.Cells(C.Row, 6).Value
                ListBox1.List(k, 6) = x.Cells(C.Row, 7).Value
                Tot = Tot + x.Cells(C.Row, 7).Value
                k = k + 1
            End If
        Next C

Next x
Me.TextBox2 = Tot
End Sub

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




26-05-2019 12:05 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18512
الاعجاب : 740
 offline 
look/images/icons/i1.gif كود ربط اليست بوكس مع خلايا اكسيل
هذا حل آخر بناءً على ما فهمت من أول مشاركة لربما يستفيد به أي عضو
Private Sub TextBox1_Change()
Dim w As Worksheet
Dim col As New Collection
Dim v As Variant
Dim b() As Variant
Dim a(1 To 7) As Variant
Dim r As Long
Dim m As Long
Dim k As Long
Dim c As Long

Me.ListBox1.Clear
If Me.TextBox1.Value = "" Then Exit Sub

Set w = ThisWorkbook.Worksheets(1)
m = w.Range("B" & w.Rows.Count).End(xlUp).Row
On Error Resume Next
For r = 2 To m
If InStr(1, w.Range("B" & r).Value, Me.TextBox1.Value, vbTextCompare) > 0 Then
col.Add UCase(w.Range("B" & r).Value), UCase(w.Range("B" & r).Value)
End If
Next r
On Error GoTo 0

For Each v In col
r = Application.Match(v, w.Range("B1:B" & m), 0)
For c = 1 To 4
a(c) = w.Cells(r, c).Value
Next c
For c = 5 To 7
a(c) = Application.SumIf(w.Range("B1:B" & m), v, w.Range(w.Cells(1, c), w.Cells(m, c)))
Next c
k = k + 1
ReDim Preserve b(1 To k)
b(k) = a
Next v

On Error Resume Next
If UBound(b) > 0 Then
If UBound(b) = 1 Then
Me.ListBox1.Column = Application.Index(b, 0, 0)
Else
Me.ListBox1.List = Application.Index(b, 0, 0)
End If
End If
On Error GoTo 0
End Sub

Private Sub ListBox1_Click()
Dim i As Long

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then TextBox2.Value = ListBox1.List(i, 6)
Next i
End Sub

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




26-05-2019 12:12 صباحا
مشاهدة مشاركة منفردة [5]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود ربط اليست بوكس مع خلايا اكسيل
شكرا اخي ياسر كود اكثر من رائع 

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




26-05-2019 12:17 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18512
الاعجاب : 740
 offline 
look/images/icons/i1.gif كود ربط اليست بوكس مع خلايا اكسيل
بارك الله فيك أخي الكريم وكل عام وأنت بخير
والحمد لله أن تم المطلوب على خير والتعدد في الإجابات يثري الموضوعات ويجعل الأعضاء يستفيدون بأقصى استفادة

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
بحث وتخزين ف اليست بوكس cvjfdkl
3 56 محمود ابو الدهب
طريقة رسم فيكتور أرت بالاليستريتور بطريقة سهله Vector Art On Illustrator Yasser Elaraby
11 3870 YasserKhalil

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


 







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



الساعة الآن 02:32 صباحا

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