الاستغناء عن الليست بوكس واستبدالها بالـ 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 تحديدا

فاذا قابلتكم مشاكل لعدم وجود الملف على الجهاز

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

تحميل الشرح لحل مشكلة عدم وجود الملف  

تقبلو تحياتي

اعداد / ياسر العربي

http://up.top4top.net/downloadf-157jsm01-rar.html 

شارك المقال

شاركه على فيسبوكشاركه على جوجل+