اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

البحث بأسماء الشيتات.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