2saad قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج كود لتلوين اسماء الشيتات تلقائيا مهما اضيف شيت ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر أغسطس 24, 2023 أفضل إجابة مشاركة قام بنشر أغسطس 24, 2023 السلام عليكم أخي الكريم جرب الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim R As Integer, G As Integer, B As Integer Randomize R = Int(Rnd() * 256) G = Int(Rnd() * 256) B = Int(Rnd() * 256) Sh.Tab.Color = RGB(R, G, B) End Sub سيعمل الكود فقط عند إضافة ورقة عمل جديدة 7 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر أغسطس 24, 2023 الكاتب مشاركة قام بنشر أغسطس 24, 2023 شكرا لرد حضرتك وضعت الكود كما قلت حضرتك واضفت ورقة عمل جديدة ولكن دون جدوي لم يحدث شيئ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 أين وضعت الكود؟ ارفق صورة بالضبط للموديول الذي وضعت به الكود. الكود يوضع في حدث المصنف دبل كليك على ThisWorkbook في نافذة المشروع وقم بلصق الكود في هذا الموديول .. وجرب مرة أخرى 2 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر أغسطس 26, 2023 الكاتب مشاركة قام بنشر أغسطس 26, 2023 اخي الكريم الملف مرفق ارجو التعديل عليهفنان.xlsm رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أغسطس 27, 2023 مشاركة قام بنشر أغسطس 27, 2023 فنان.xlsm 2 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر أغسطس 27, 2023 الكاتب مشاركة قام بنشر أغسطس 27, 2023 شكرا جزيلا لكم جميعا وجزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
elmansyeswa قام بنشر أغسطس 27, 2023 مشاركة قام بنشر أغسطس 27, 2023 جزاكم الله خيرا على المعلومات الثمينة رابط هذا التعليق شارك 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.