إجمالي مرات مشاهدة الصفحة

الجمعة، 22 أبريل 2016

تعبئة الكومبوبوكس بأسماء أوراق العمل Fill ComboBox With Sheets Names

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

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

بفرض أن لديك أوراق عمل كثيرة وتريد عمل فورم وتضع عليه كومبوبوكس ComboBox ومن خلاله يتم تعبئته بأسماء أوراق العمل الموجودة عدا الورقة الرئيسية (كما في المثال ورقة العمل Main) ، وأثناء تشغيل الفورم تتمكن من اختيار ورقة العمل المراد الذهاب إليها.

ضع الكود التالي في حدث الفورم ، كليك يمين على الفورم ثم اختر View Code ثم الصق الكود

Private Sub UserForm_Initialize()
    Dim Sh As Worksheet

    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Main" Then
            ComboBox1.AddItem Sh.Name
        End If
    Next Sh
End Sub

Private Sub ComboBox1_Change()
    Dim strValue As String
    strValue = ComboBox1.Value
    Sheets(strValue).Activate
End Sub

لإظهار الفورم من خلال زر أمر ، قم برسم زر أمر على ورقة العمل Form Button ثم ضع الكود التالي في موديول عادي

Sub ShowForm()
    UserForm1.Show
End Sub

إعداد / ياسر خليل أبو البراء

هناك 4 تعليقات:

  1. انت مبدع استاذ ياسر و لا تنس طلبي بغلق ملف بناءا علي عدد مرات فتحه الا استخدام باس وورد جزاكم الله خيرا

    ردحذف
  2. أخي الكريم مجدي سالم تم وضع موضوع جديد في المدونة

    ردحذف
  3. استاذ ياسر ابداعاتك رائعة لا تنتهي ... واعمالك دائما لا مثيل لها ... زادكم الله علما ونفع بكم غيركم ...
    ارجو رؤية طلب لي هنا في ملف من احد ابداعاتك ...
    http://www.officena.net/ib/topic/68945-%D8%AA%D8%AC%D9%85%D9%8A%D8%B9-%D8%A7%D9%88%D8%A7%D9%85%D8%B1-%D8%A7%D9%84%D8%B5%D8%B1%D9%81-%D9%84%D9%84%D8%B9%D9%85%D9%8A%D9%84-%D8%A7%D9%84%D9%88%D8%A7%D8%AD%D8%AF-%D9%81%D9%8A-%D8%A7%D8%B0%D9%86-%D9%88%D8%A7%D8%AD%D8%AF-%D9%81%D9%82%D8%B7/

    ردحذف
  4. .انضم إلى eToro وقُد ثورة التكنولوجيا المالية

    حكمة الجموع المتداولون الذين يستخدمون CopyTrader™ من eToro يزيد احتمال أن يحققوا أرباحًا بنسبة 60%

    ردحذف