Saadrafic قام بنشر فبراير 1, 2020 مشاركة قام بنشر فبراير 1, 2020 عايز اسماء الشيتان الملونه بلون احمر فقط combobox قائمه منسدله باسماء الشيتات بلون احمر فقط قائمة بأسماء الشيكات (1).rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر فبراير 1, 2020 أفضل إجابة مشاركة قام بنشر فبراير 1, 2020 جرب هذا الماكرو Sub Fil_combo() Dim k, col, arr(), i%: i = 1 For k = 1 To Sheets.Count col = Sheets(k).Tab.Color If col Then ReDim Preserve arr(1 To i) arr(i) = Sheets(k).Name i = i + 1 End If Next With Me.ComboBox1 .List = Split(Join(arr, ","), ",") .Value = .List(0) End With End Sub COMBO_fil.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
Saadrafic قام بنشر فبراير 1, 2020 الكاتب مشاركة قام بنشر فبراير 1, 2020 ممكن اخر طلب من حضرتك ممكن على نفس الكموبكس دا اللون الاحمر وفي كموبكس تاني لون ازرق بس وشكرا لحضرتك من فضلك هوه دا الي انا طلبه كل كموبكس يجيب لون مختلف عن الاخر في الكموبكس ١اللون الاحمر والثاني ازرق مثلا الي انا احدده رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 26, 2021 مشاركة قام بنشر يوليو 26, 2021 بعد إذن أخي الكريم سليم لعرض الشيتات الملونة باللون الأحمر فقط يمكنك تغيير الشرط الخاص بلون الشيت من If col Then إلى If col = RGB(255, 0, 0) Then وبالنسبة لعمل قائمة منسدلة للشيتات باللون الأزرق يمكنك استعمال نفس الكود مع تغيير اسم الكومبوبوكس وكود اللون If col = RGB(0, 0, 255) Then بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.