hamady66 قام بنشر مارس 18, 2015 قام بنشر مارس 18, 2015 السلام عليكم هذا الكود يغير تنسيق الخلية الفعالة Private Sub Worksheet_SelectionChange(ByVal Target As Range) ......................... Target.Font.Bold = True Target.Interior.ColorIndex = 6 Target.Font.Color = 255 Target.Font.Size = 15 End Sub لكنه ناقص ويحتاج مكان النقاط الى كود يعيد جميع خلايا الصفحة الى حالة التنسيق الطبيعية باستثناء الخلية المختارة شكرا
ياسر خليل أبو البراء قام بنشر مارس 18, 2015 قام بنشر مارس 18, 2015 (معدل) جرب Cells.ClearFormats يقوم السطر بإعادة ضبط التنسيق العام للخلايا كلها (التنسيق الافتراضي) تم تعديل مارس 18, 2015 بواسطه YasserKhalil
محمود أبوسيف قام بنشر مارس 19, 2015 قام بنشر مارس 19, 2015 (معدل) بعد إذن أخي الفاضل ياسر أبو خليل هذا كود يقوم بتلوين الخليه الفعاله إلي اللون الأصفر ملحوظة :- قم بوضعه في الشيت الذي تريد تفعيل الخليه إلي اللون الأصفر Private Sub Worksheet_SelectionChange(ByVal Target As Range) MyColor = 6 If Not IsError(Me.[N_Color_Rng]) Then If Not IsError(Me.[N_Color_Color]) Then If Not IsError(Me.[N_Color_Old]) Then If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color] End If End If End If End If Me.Names.Add "N_Color_Rng", ActiveCell Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex Me.Names.Add "N_Color_Old", MyColor ActiveCell.Interior.ColorIndex = MyColor End Sub تم تعديل مارس 19, 2015 بواسطه Mahmoud330
ياسر خليل أبو البراء قام بنشر مارس 19, 2015 قام بنشر مارس 19, 2015 بارك الله أخي محمود على الكود ولكن على رأي المثل خير الأكواد ما قل وحل ..
محمود أبوسيف قام بنشر مارس 19, 2015 قام بنشر مارس 19, 2015 ماشي يا أخ ياسر ذلك مماتعلمناه من هذا المنتدي الرائع وفقنا الله وإياكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.