زياد عبد الجليل قام بنشر سبتمبر 9, 2016 مشاركة قام بنشر سبتمبر 9, 2016 السلام على جميع الاخوة الافاضل اما بعد عندي ملف به 5 صفحات كل صفحة مسمات برقم مثلا الصفحة الاولى مسمات بـ1 و الصفحة 2 باسم 2 الى غاية الصفحة 5 قمت بعمل كود لكومبوبوكس لتغذيته باسم الصفحات كالتالي Private Sub UserForm_Activate() Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets Me.ComboBox1.AddItem ws.Name Next end sub وعند الضغط على الكومبوبوكس تظهر كل اسماء الصفحات و لكن ان تكرمتم اريد في نفس الكود ان لا يتضمن الكومبوكس الصفحة 5 اي الاسم "5"...ولكم مني فائق عبارات الشكر و التقدير...وبارك الله في الجميع. رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 9, 2016 مشاركة قام بنشر سبتمبر 9, 2016 يكون بهذه الطريقة Private Sub UserForm_Activate() Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets If ws.Name <> "5" Then Me.ComboBox1.AddItem ws.Name Next End Sub 3 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 شكرا جزيلا استاذي ابو حنين الكود يعمل بشكل جيد و صحيح جزاك الله كل خير وبارك الله فيك. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان