اظهار البيانات في الليست بوكس

[طاهر محمد]

السلام عليكم ورحمة الله

اسلاتذتي الاعزاء بعد التحيه

الرجاء المساعده في ملء الليست بوكس الذي يظهر بجميع بيانات شيت الاكسيل بنفس الترتيب

مع ظهور الليست بوكس مسطر (هيئة الجدول)

حيث حاولت اكثر من مره ولم استطع التنفيذ

ولكم جزيل الشكر

مشتريات - جديد.zip

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

تم جلب البيانات لكن ان تظهر البيانات على شكل جدول هذا ليس لي به علم

مشتريات - جديد.rar

لكن يمكن التحايل بهذه الطريقة لرسم الحدود الرأسية للجدول

مشتريات - جديد2.rar

[omar elhosseini]

الاخ طاهر محمد

الخ أبو حنــــين

طريقه اخري بالمرفقات

 

 

1_مشتريات - جديد.rar

 

[طاهر محمد]

شكرا اخوتي الاعزاء

التسطير مهم جدا لكي يفصل بين البيانات

لو امكن يكون شيء رائع

[طاهر محمد]

السلام عليكم ورحمة الله

اخي  العزيز

أبو حنــــين

تحيه طيبه وبعد :

في مرفق مشتريات جديد 2

هل هناك امكانيه بأن تتناسب حجم الاعمده في الليست بوكس مع البيانات

بمغني ان يظهر الليست بوكس افقيا وهو محتوي علي كل الاعمده بدون تحريك scroll bar افقيا يمينا ويسارا

وان تظهر البيانات كامله في اعمدة الليست بوكس حيث ان عمود الصنف بيها الكلمات مقصوصه(غير ظاهره بالكامل)

ولكم جزيل الشكر

 

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

السلام عليكم اخي طاهر محمد

تم تعديل الملف

مشتريات - جديد2.rar

[ياسر العربى]

تفضل اخي الكريم

تعديل عرض الاعمدة

مع اضافة صف اضافي لتطبيق خطوط الطول والعرض داخل الليست

ولكنه سيتسبب فيما بعد لبعض البطئ مع كثرة البيانات

والمثال الاخر بدون الصف الاضافي

مشتريات - جديد2.rar

مشتريات - جديد2 - Copy.rar

 

[omar elhosseini]

الاخ طاهر محمد

اذا كان المطلوب كهذه الصور 

ربما استطيع انجازه بدون وعد بذلك

ارجو اخبرني قبل رمضان كل عام وانتم بخير

و ايضا اخبرني على اي اوفيس تعمل فأنا اعمل علي افيس 11 (2003)

وايضا اسلوب البحث بأسم الصنف

هل تريد بأي جزء من اسم الصنف

ام من بداية اسم الصنف

الصور بالمرفقات احتيطيا

صوره رقم 1

 

 

صوره رقم 2

 

الصور

Omar_1.rar

تم تعديل يونيو 2, 2016 بواسطه عمر الحسيني

[طاهر محمد]

السلام عليكم ورحمة وبركاته

في  البدايه اود ان اشكر اخي العزيز ابوحنين علي اهتمامه

بالنسبه  لاستاذي  العزيز ياسر العربي   اود ان اشكره علي اهتمامه  ولي طلب عنده لو امكن الرجاء في الملف الثاني

  مشتريات جديد  2  copy

ان تظهر البيانات  كما في شيت الاكسيل من اليمين الي  اليسار مع مراعاة تنسيق التاريخ يوم / شهر / عام

الاخ عمر الحسيني بعد التحيه

هذا هو عين المطلوب  ان امكن

وبالتالي نكون قد استفدنا من طريقة استاذي العزيز ياسر

ومن اضافتكم المتميزه

[ياسر العربى]

تفضل اخي الكريم طاهر

 

 

مشتريات - جديد2 - Copy.rar

[omar elhosseini]

الشكل النهائي

 

تم تعديل يونيو 2, 2016 بواسطه عمر الحسيني

[طاهر محمد]

شكرا استاذي العزيز ياسر العربي

 

ا/ عمر الحسيني 

لو تم التنفيذ بهذه الصوره يكون ذلك شىء راائع

 دعائي لك بالتوفيق

[أبو قاسم]

السلام عليكم 

مبارك عليكم الشهر الفضيل 

نرجو عند التنفيذ شرح طريقة تسطير اللست بوكس

[omar elhosseini]

الاخ أبو قاسم

هي ليست اللست بوكس

هي اداة نادرا ماتستخدم  مع الفورم وتسمي

Spreadsheet

 

[ياسر العربى]

تفضلو طريقة البحث عن طريق الا  Spreadsheet التى ذكرها الاخ عمر

قمت بعمل مثال بسيط لجلب البيانات المفلترة الى الفورم ووضعها داخل Spreadsheet

وطريقة اضافة هذه الاداة كما بالصور الموضحة

 

والكود المستخدم داخل الفورم في حدث التغيير للتكست بوكس

Private Sub TextBox1_Change()
    Dim last As Long
    Dim last2 As Long
    last = Spreadsheet1.ActiveSheet.Range("a10000").End(xlUp).Row
    Application.ScreenUpdating = False
    If TextBox1.Text = "" Then
        Spreadsheet1.ActiveSheet.Range("a1:k" & last).ClearContents
    Else
        Spreadsheet1.ActiveSheet.Range("a1:k" & last).ClearContents
        ActiveSheet.Range("$A$2:$K$2000").AutoFilter Field:=5, Criteria1:="" & TextBox1.Text & "*", _
                                                     Operator:=xlAnd
        last2 = ActiveSheet.Range("a10000").End(xlUp).Row
        Sheet1.Range("a1:k" & last2).Copy
        Spreadsheet1.ActiveSheet.Range("a1").Paste
        Application.CutCopyMode = False
        ActiveSheet.AutoFilterMode = False
        Application.ScreenUpdating = True
    End If
End Sub

تم ارفاق المثال للتوضيح

المرفق يعمل لدى جيدا لا اعلم توافقه مع جميع الاصدارات

تقريبا تحتاج اوفيس2003 بالاساس او الملف OWC11.DLL تحديدا

لمن يعاني من مشاكل وعدم عمل الملف بالشكل الامثل

يرجى تحميل الملف الثاتي بالمرفقات به الشرح والاداة وبرنامج تسجيل الاداة

 

تقبلو تحياتي

 

 

new list Yasser.rar

 

OWC11.rar

[جلال الجمال_ابو أدهم]

يرجى مراجعة يالكود لانه يعطى حطأ اخى 

ياسر العربى

OFFICE 2007

[ياسر العربى]

اخي الكريم ابو ادهم

تم ارفاق حل المشكلة في المشاركة السابقة

تقبل تحياتي

[saad abed]

اخى ياسر

استخدم2016

ويندز7 64بت

ظهرت الاداة فى الادوات ولكن الفورم لا يعطى اخطاء ولكن لاتظهر مع الفورم حتى داخل vba

هل هناك حل

[ياسر العربى]

اخي الكريم سعد

جرب انك تضعها انت على الفورم  داخل ال VBA وشوف هتشتغل ولا لا

تقبل تحياتي

[saad abed]

اخى ياسر

حاولت اضافة الاداة لا تقبل الاضافة تظهر بالماوس وترفض الاضافة

[omar elhosseini]

 

شرح UserForm Spreadsheet