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

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


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


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

Preview






24-05-2019 05:50 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 281
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 223
الاعجاب : 26
 offline 
الشرح في المرفق
 
 
  LIST.rar   تحميل rar مرات التحميل :(15)
الحجم :(27.021) KB





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

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




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

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




25-05-2019 11:19 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 281
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 223
الاعجاب : 26
 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




26-05-2019 12:05 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9002
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26673
الاعجاب : 674
 Online 
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




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




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




06-02-2020 04:12 مساء
مشاهدة مشاركة منفردة [7]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
يتابعهم : 30
يتابعونه : 2
قوة السمعة : 137
الاعجاب : 5
 offline 
look/images/icons/i1.gif كود ربط اليست بوكس مع خلايا اكسيل
جزاك الله كل خير استاذنا ياسر على الكود الرائع
لقد جربته واعطا نتائج مدهلة
ادام الله عطائك

3dlat.com_02_18_73d9_8f60678a63db4890264




توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره


06-02-2020 04:54 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9002
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26673
الاعجاب : 674
 Online 
look/images/icons/i1.gif كود ربط اليست بوكس مع خلايا اكسيل
وجزيت خيراً أخي الكريم بمثل ما دعوت لي وزيادة
تقبل تحياتي






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

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


 







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

الساعة الآن 12:45 صباحا

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