تثبيت ارتفاع الصف

[ياسر فاروق]

أساتذة الاكسيل

هل يوجد طريقة 

- تثبيت أرتفاع الصف (بمعنى تثبيت قياس الارتفاع 14.25 ) مع إمكانية العمل عليه بدون العبث فى الارتفاع واستثناء اخر سطر مع نهاية الصفحة (الخط المتقطع)

- عرض العامود

 

[ياسر فاروق]

في ‏٢٣‏/‏٠١‏/‏٢٠١٧ at 16:49, YasserOriba said:

 

 

[سليم حاصبيا]

جرب هذا الماكرو

Sub row_height()

Sheet1.Cells.RowHeight = 25
lr = Sheet1.Cells(Rows.Count, 1).End(3).Row
Sheet1.Range("a1:a" & lr - 1).RowHeight = 14.5
End Sub

 

[ياسر فاروق]

شكرا على الاهتمام

ولكن ممكن شرح لهذا الكود إذ لم يكن هناك إزعاج

تم تجربتة ولكنه يعطى ارتفاع الصف 25 + الرسالة المرفقة

وأيضا أستطيع تغيير الارتفاع (عدم العبث فى ارتفاع الصف)

وهل من الممكن الكتابة بخط واحد فقط نوعه  Arial (اللغة العربىة مقاس 11  واللغة الانجليزية مقاس 10) كما فى الملف المرفقBOQ.rar

وشكرا مره أخرى على اهتمامكم ووقتكم

Capture0022.rar

[سليم حاصبيا]

جرب هذا الماكرو

Sub row_height()

Sheet1.Cells.RowHeight = 25
lr = Sheet1.Cells(Rows.Count, 1).End(3).Row
Sheet1.Range("a1:a" & lr - 1).RowHeight = 14.5
End Sub

ربما ليس هناك بيانات في العامود A 

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

[سليم حاصبيا]

استبدل الكود بهذا

Sub row_height()
    With ActiveSheet
       .Cells.RowHeight = 25
         lr = .Cells(Rows.Count, 2).End(3).Row
        .Range("b1:b" & lr - 1).RowHeight = 14.5
    End With
End Sub

 

[ناصر سعيد]

استاذ سليم

بارك الله فيك .. ادعو الله ان تكون من المشاركين في هذا الرابط

 

[ياسر فاروق]

17 ساعات مضت, YasserOriba said:

شكرا على الاهتمام

ولكن ممكن شرح لهذا الكود إذ لم يكن هناك إزعاج

تم تجربتة ولكنه يعطى ارتفاع الصف 25 + الرسالة المرفقة

وأيضا أستطيع تغيير الارتفاع (عدم العبث فى ارتفاع الصف)

وهل من الممكن الكتابة بخط واحد فقط نوعه  Arial (اللغة العربىة مقاس 11  واللغة الانجليزية مقاس 10) كما فى الملف المرفقBOQ.rar

وشكرا مره أخرى على اهتمامكم ووقتكم

Capture0022.rar

استاذ سليم

بارك الله فيك وشكرا على الاهتمام

ولكن المشكلة لا زالت قائمة عند تشغيل الكود يعطى ارتفاع الصف 25 وأيضا يعمل على شيت واحد وليس كل الشيتات مرة واحدة

وأيضا تظهر رسالة الخطأ

هل من الممكن تطبيق الكود على الملف المرسل من قبل BOQ

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

ذكرت أخي الكريم أن هناك مشكلة في تنفيذ الكود ولم تذكر المشكلة بالتفصيل ..قم بوضع صورة للمشكلة التي تقابلك والأفضل إرفاق الملف الذي طبقت عليه الكود للإطلاع عليه

فلكل ملف ظروفه الخاصة في كثير من الأحيان ..

حاول الإطلاع على التعليمات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل في طرح الموضوعات ولتجد استجابة أفضل (ولا تعتبر كلامي إلا نصيحة لك أن تأخذ بها أو تتركها كما تشاء)

تقبل تحياتي