قائمة ListView

[Guest محمد ابو صهيب]

السلام عليكم ,,,,, اليوم من خلال هذا التطبيق نتعرف على LISTVIEW أداة قليلة الاستعمال في القوائم والتي تعتبر مهمة في تطبيقات في تصدير البيانات بشكل منسق وديناميكي كما نستعمل ليست بوكس

Dim Sh        As Worksheet  
Dim J         As Integer    
Dim Ligne     As Integer    


Private Sub UserForm_Initialize()

Set Sh = Worksheets("Students")


With ListView1

        .Gridlines = True  '
        .View = lvwReport
        .FullRowSelect = True
        .Font.Name = "Arial"
        .Font.Bold = True
        

With .ColumnHeaders
        .Add , , Text:=Sh.Range("f1"), Width:=140, Alignment:=lvwColumnLeft
        .Add , , Text:=Sh.Range("e1"), Width:=80, Alignment:=lvwColumnCenter
        .Add , , Text:=Sh.Range("d1"), Width:=80, Alignment:=lvwColumnCenter
        .Add , , Text:=Sh.Range("c1"), Width:=120, Alignment:=lvwColumnCenter
        .Add , , Text:=Sh.Range("b1"), Width:=60, Alignment:=lvwColumnCenter
        .Add , , Text:=Sh.Range("a1"), Width:=85, Alignment:=lvwColumnCenter
End With
End With

Call Data
End Sub
Sub Data()


  With Me.ListView1
  
    .ListItems.Clear
    
    For J = 2 To Sh.Range("A" & Rows.Count).End(xlUp).Row
    
    
      .ListItems.Add , Sh.Range("A" & J).Address, Sh.Range("f" & J)
       Ligne = Ligne + 1
       
    
      .ListItems(Ligne).ListSubItems.Add , , Sh.Range("e" & J)
      .ListItems(Ligne).ListSubItems.Add , , Sh.Range("d" & J)
      .ListItems(Ligne).ListSubItems.Add , , Sh.Range("c" & J)
      .ListItems(Ligne).ListSubItems.Add , , Sh.Range("b" & J)
      .ListItems(Ligne).ListSubItems.Add , , Sh.Range("a" & J)
    Next J
  End With
End Sub

 

قائمة - listView.rar

تم تعديل أغسطس 10, 2016 بواسطه محمد ابو صهيب

[أبو حنــــين]

جزاك الله خيرا على هذا العمل

[محمد عبدالله المسعودي]

وفقكم الله وبارك بكم

[إبراهيم ابوليله]

فعلا موضوع جميل

والكثير منا يجهل كيفيه التعامل معها

بارك الله فيك

ولكن ممكن اعرف اضيفها ازاى الى قائمه اديشنال كنترول

 

[Guest محمد ابو صهيب]

السلام عليكم ...اخي ابوليلة...حياكم اللخ جميعا...أنت ومنعك من الأخوة الأفاضل......

اليك ما تريد

الملف المضغوط ...يوجد فيه كنترول الأداة ......انسخه في مسار C:\Windows\System32

 

تم تعديل أغسطس 11, 2016 بواسطه محمد ابو صهيب

[إبراهيم ابوليله]

طب عدم وجود الاداه دى يعنى نقص فى ملفات الاوفيبس

ولا ايه

وهل فيه اوفيس بينزل كامل ولا ايه

 

[Guest محمد ابو صهيب]

اخي ابوليلة ...اتبع هذه الخطوة ....فك الضغط على الملف المضغوط ...وانسخه في المسار ..المذكور انفا

 C:\Windows\System32        ثم ادهب الى cmd  كما هو مشار واكتب   Regsvr32.exe /u C:\Windows\System32\MSCOMCTL.OCX

ستجد قد تفعلت ....ثم اذهب الى التطبيق في vbe  .......وابحث MSCOMCTL.OCX   في مكتبة ref

MSCOMCTL.rar

تم تعديل أغسطس 11, 2016 بواسطه محمد ابو صهيب

[ياسر خليل أبو البراء]

جزاكم الله خيراً أخي العزيز أبو صهيب على الموضوع الجميل

ولكن للأسف الأداة لا تعمل مع النسخ الحديثة من الأوفيس .. ولا أعلم لماذا تم الاستغناء عنها أم أن هناك طريقة لحل هذه الإشكالية وجعل الأداة تعمل على النسخ الأحدث؟

 

[ياسر خليل أبو البراء]

حاولت أن أقوم بتشغيل الملف والحمد لله توصلت للحل وأقدم الحل عسى أن يكون مفيد لكم إن شاء الله

قم بفك الضغط عن الملف المرفق في المشاركة الأولى ثم اتبع التالي ..

بعد الدخول على محرر الأكواد عن طريق Alt + F11 قم بالدخول على القائمة Tools ثم References

ستظهر لك نافذة بها خيارات وستجد بعض الخيارات في أولها كلمة Missing أي أنها مكتبة مفقودة قم بإزالة علامات الصح من جانب هذه الخيارات فقط ..

من نافذة المشروع اعمل كليك يمين ثم اختر الأمر Insert ثم UserForm لإدراج فورم جديد

من صندوق الأدوات Control Box اعمل كليك يمين في مكان فارغ ثم اختر الأمر Additional Controls

ابحث عن الخيار Microsoft ListView Control وعلم في المربع بجواره ليتم إدراجه في صندوق الأدوات

الآن قم برسم الأداة على الفورم الجديد ثم احفظ المصنف من علامة الحفظ

وأخيراً بعد الحفظ قم بحذف الفورم الذي تم إدراجه ، ستظهر لك رسالة اختر منها No

الآن قم بتشغيل الفورم الأساسي في الملف ستجد أنه يعمل إن شاء الله

تقبلوا وافر تقديري واحترامي

[ياسر خليل أبو البراء]

الموضوع مكرر ... ولم أنتبه إلا الآن

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

تقبل تحياتي

 

[Guest محمد ابو صهيب]

السلام عليكم...اخي ياسر ...لك وحشة....فقذنك في الأياو الأونة...الحمد لله أنك بخير....شكرا لك لتعليقتك القيمة........

والله لا يعرف قدر الرجال الا الرجال.....هذا مذهب أهل الخصال...شكرا مجددا..

والله ..اريد ان اسألك على الأخ أحمد فلاحجي....اين ذهي الرجل ...نفتقده ...في المنتدى ...سلم عليه...

سميحني..لقد نفذ رصيدي في الرسائل...فضطررت أن أضف رد من الاقتباس نظرا لكتابة الأعضاء بخصوص النسخة أوفيس 2016 ما زلت حد الأن بدون نسخة..جل تطبيقاتي معطلة ....وتحميل النسخة من النت يتطلب وقت طويل ...ارجو منكم المعذرة ....

[ياسر خليل أبو البراء]

وعليكم السلام أخي الغالي أبو صهيب

والله لقد افتقدتكم كثيراً والله يعلم أني لا أغيب إلا لظروف خارجة عن إرادتي والحمد لله على كل حال ..

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

وحاول تجدد النسخة عندك عشان تواصل إبداعاتك يا مبدع