ميدو63 قام بنشر مايو 1, 2023 مشاركة قام بنشر مايو 1, 2023 السادة الأفاضل تحية طيبة وبعد رجاء المساعدة فى تعديل كود VBA (من احد الزملاء) لتلوين الصف والعمود للخلية النشطة الموجود فى شيت رقم 1 وجعله يعمل على أي شيت النشط (أي شيت فى الملف) بنفس طريقة عملة على شيت رقم 1 شكرا Test.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مايو 1, 2023 أفضل إجابة مشاركة قام بنشر مايو 1, 2023 السلام عليكم و رحمة الله هو نفس الكود بدون اى تغيير و لكن يتم و ضعه فى حدث الملف ThisWorkBook هكذا Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False ' اجعل جميع خلايا ورقة العمل الحالية بدون لون Cells.Interior.ColorIndex = 0 With Target ' لون كامل سطر الخلية الفعالة .EntireRow.Interior.ColorIndex = 8 ' لون كامل عمود الخلية الفعالة .EntireColumn.Interior.ColorIndex = 8 End With Application.ScreenUpdating = True End Sub 2 1 رابط هذا التعليق شارك More sharing options...
ميدو63 قام بنشر مايو 3, 2023 الكاتب مشاركة قام بنشر مايو 3, 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.