تحديد width و height بواسطة المايكرو

[rashad]

نرفق لكم جدول أكسل يجتوي على بيانات نريد أن يكون العامود F ان يتم تحديد الأتي :

width = 23

height= تلقائي

ولكل عامود f

للمساعدة رجاءا

test.rar

[عبد الفتاح كيرة]

Columns("F:F").Select

    Range("F3").Activate

    Selection.ColumnWidth = 23

    Columns("F:F").Select

        With Selection

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .ShrinkToFit = True

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    With Selection

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .ShrinkToFit = True

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

End Sub

test-kemas.rar

[الحسامي]

السلام عليكم

بارك الله فيك أخي كيماس

وبعد إذنك وللفائدة يمكنك

استخدام الكود التالي

Columns("F").ColumnWidth = 23

Rows.AutoFit

[عبد الفتاح كيرة]

ممتاز

شكرا أستاذنا الحسامى

[rashad]

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

أخي كيماس / أستاذي الفاضل الحسامي المحترمين

أود أن أقدم شكري وتقديري على الجهود المباركة ونقل المعرفة ، من لا يشكر الناس لا يشكر اللة

ألف شكر وتقدير وأحترام

وأقبلوا الأحترام

رشاد