كود لتنسيق الصفوف حسب الطلب

[sabah2023]

السلام عليكم

محتاج كود

لتنسيق الصفوف حسب الطلب 

ليكون ارتفاع الصف الاول والثاني في كل صفحة بمقدار (30)

والصفوف المتبقية من كل  صفحة (20)

جزيتم خير

تنسيق.xlsx

[ياسر خليل أبو البراء]

وعليكم السلام

Sub Test()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Rows("1:2").RowHeight = 30
        ws.Rows("3:" & Rows.Count).RowHeight = 20
    Next ws
End Sub

 

[sabah2023]

السلام عليكم

اريد التنسيق يشمل كل الصفحات

جربت الكود - فقط اشتغل على الصفحة الاولى

 

تنسيق - 1.xlsm

[ياسر خليل أبو البراء]

الكود يعمل على كل الصفحات بالمصنف

[sabah2023]

السلام عليكم

يمي يشتغل على الصفحة الاولى

فقد جعلت الصف الاول والثاني بمقدار 50

وباقي الصفوف 27 - اشتغل الكود على الصفحة الاولى فقط

مع العلم عندي اكثر 30 صفحة

 

تنسيق - 1 (1)-1.xlsm

[محمد هشام.]

تنسيق - 2.xlsm

[ياسر خليل أبو البراء]

أخي العزيز محمد هشام

أهناك شيء مختلف في الكود الموضوع في الملف المرفق الخاص بكم؟

[محمد هشام.]

أستاذ @ياسر خليل أبو البراء ليس هناك أي فرق لهذا لم أرغب بوضع الكود  مرة أخرى والاكتفاء بارفاق الملف ليقوم الأخ @sabah2023 للتجربة لاغير.

 

[محي الدين ابو البشر]

السلام عليكم 

حسب ما فهمت من الملف المرفق من قيبل السيد sabah2023

هناك سوء فهم بتعبير الصفحة

لذلك اقترح الكود التالي

Sub test()
    Dim  i&
       For i = 1 To  Cells(Rows.Count, 1).End(xlUp).Row Step 27
        Rows(i & ":" & i + 1).RowHeight = 30
        Rows(i + 2 & ":" & i + 26).RowHeight = 20
    Next
End Sub

 

تم تعديل نوفمبر 12, 2023 بواسطه محي الدين ابو البشر

[sabah2023]

السلام عليكم

استاذ محي

جزيت خيرا

تمام هو المطلوب 

 

تم تعديل نوفمبر 12, 2023 بواسطه sabah2023

[محي الدين ابو البشر]

بارك الله

[assem alafifi]

السلام عليكم ...

هو معلش اقدر استفاد من الكود ده ازاي في شيت الأكسل بتاعي او هو بيتعمل فين في الاكسل ؟؟؟ الرجاء التوضيح