اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعبئة الكومبوبوكس بأسماء أوراق العمل وتنشيط ورقة العمل عند اختيار اسم ورقة العمل منها


الردود الموصى بها

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

اريد من حضراتكم أن تساعدوني في طريقة البحث بأسماء الشيتات حيث أنني حين أضع اسم الشيت في الكومبو بوكس يظهر لي الشيت 

ولكم جزيل الشكر مع فائق احترامي واعتذاري على كثرة المسائلة 

تقبلوا تحياتي 

البحث بأسماء الشيتات.rar

رابط هذا التعليق
شارك

أخي الكريم أحمد

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

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

حمل الملف من هنا

  • Like 2
رابط هذا التعليق
شارك

Private Sub ComboBox1_Change()

    Sheets(CStr(ComboBox1.Text)).Select

End Sub

Private Sub UserForm_Initialize()

    For i = 1 To Worksheets.Count
    If Not Worksheets(i).Name = "كشف" Then
    Cells(i, 2) = Worksheets(i).Name
    ComboBox1.AddItem Worksheets(i).Name
    End If
    Next

End Sub

السلام عليكم

استعمل هذا

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information