هل يوجد كود لمسح التنسيق من الخلايا الفارغه

[sam_farh]

السلام عليكم هل يوجد كود لمسح التنسيق من الخلايا الفارغه حتي يصبح كل جدول منفصل عن الاخر 

test.xlsx

[lionheart]

Sub Test()
    Dim c As Range, rFirst As Range
    Application.ScreenUpdating = False
        With ActiveSheet
            .Columns("A:H").Borders.Value = 0
            Set c = .Columns(1).Find(.Range("A2").Value)
            If rFirst Is Nothing Then Set rFirst = c
            Do While Not c Is Nothing
                c.CurrentRegion.Borders.Value = 1
                Set c = .Columns(1).FindNext(After:=c)
                If c.Address = rFirst.Address Then Exit Do
            Loop
            Range("A1:H1").Borders.Value = 0
        End With
    Application.ScreenUpdating = True
End Sub

 

[sam_farh]

جزاك الله خيرا

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

وبعد إذن أخي الكريم @lionheart إثراء للموضوع ،يمكن القيام بذلك عن طريق التنسيق الشرطي كما يلي:

علماً أن نتيجة الكود الذي سطرته رائعاً أخي الكريم بارك الله بكم. 

عذراً لأن الأخ السائل طلب كود لإيجاد النتيجة لكن يمكنه فعلا ذلك دون كود

والله أعلم

=AND(MOD(ROW();1)=0;$A1="")

[lionheart]

Great my bro but the borders are not accurate as for using the conditional formatting. But I like your way of thinking

[محمد حسن المحمد]

أشكرك جزيل الشكر وأعتذر مرة أخرى لك وأحترم علمك الغزير ما شاء الله بارك الله

تقبل تحياتي العطرة والسلام عليكم

[sam_farh]

صديقي @محمد حسن المحمد معادلتك جيده في حاله انها تستخدم مره واحده لنفس الصفحه ولكن الكود يتسخدم كلما تم اضافه جدول علي نفس الصفحه بضغطه بسيطه علي زرار الماكرو

 

[محمد حسن المحمد]

لعلك صديقي العزيز لم تجرب المعادلة فقلت أنها 

21 ساعات مضت, sam_farh said:

صديقي @محمد حسن المحمد معادلتك جيده في حاله انها تستخدم مره واحده لنفس الصفحه

بصراحة فكرة أن تعمل جدول اعتماداً على كتابة بيانات محددة أو رؤوس أعمدة للجدول جيدة.

وهي بالأكواد أفضل، وكما أخبرنا الأخ المحترم lion heart  أن الحدود غير دقيقة بالتنسيق الشرطي كلامه صحيح في حال اعتمدنا على التنسيق المسبق من قبلكم وإلغاء التنسيق من الصفوف الفارغة

21 ساعات مضت, lionheart said:

Great my bro but the borders are not accurate as for using the conditional formatting. But I like your way of thinking

ولكن ماذا لو عكسنا المعادلة بحيث تكون الورقة خالية من التنسيقات ثم نقوم بتنسيقها(تنسيقات شرطية) حسب الجداول مع تمييز رؤوس الجداول بألوان وتنسيقات محددة تميزها عن البيانات المعطاة في الجداول، وحدود واضحة،

أما مدى إنشاء الجداول ليس كما ذكرت - لمرة واحدة - بل مرات عديدة حتى نهاية الصفوف في الورقة كاملة ضمن عدد معلوم للأعمدة.

تقبلوا تحياتي العطرة والسلام عليكم

 

test.xlsx

[lionheart]

Great solution but the heavy use of conditional formatting will make the file slow and heavy and at the same time will make the file size larger

[محمد حسن المحمد]

الان, lionheart said:

Great solution but the heavy use of conditional formatting will make the file slow and heavy and at the same time will make the file size larger

صحيح ما قلت أخي الكريم، وما فعلته من كثافة في التنسيقات الشرطية لسببين:

1- أنه بالاجتهاد يمكننا تحقيق ما نريد حيث قمت بتغيير فكرة البناء على التنسيق المسبق من قبل الأخ صاحب السؤال.

2- أخي صاحب السؤال دون أن يقوم بتجربة الملف حسب التنسيق الذي أجريته قال أنه يستخدم لمرة واحدة وواقع الحال ينبئ باستخدام جداول عديدة.

هذا فقط ما أردت إيضاحه لكم ....

مع العلم أنني أضع علمك ومساعدتك للآخرين فوق رأسي فأنت أخي الكريم - ومن خلال متابعتي لإجاباتكم الرائعة - بمثابة القلب النابض في منتدى الإكسيل وأنا أغبطك على ذلك

تقبل تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته.