خلايا الاكسل

[سنفور شاطر]

السلام عليكم ....كيف يمكنني ان اجعل خلايا الاكسل مربعة الشكل تماما ...أي جعل الارتفاع والعرض للخلايا متساوي ...ارجو ان يكون الحل بتغير قيم التنسيقات او الاوبشنات وليس عن طريق تحريك العرض والارتفاع باستخدام الماوس 

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

افعل مايلي

1-انقر على زاوية الصفحة فبل العامود A و فوف الصف 1

2-من القائمة home والتبويت cells اختر Format

3-ضع عرض الاعمدة مقدار معين كما تريده

4- Ok

5- اعد نفس العملية و لكن حدد ارتفاع الصفوف بنفس المقدار لتظهر لك الخلايا مربعة

تم تعديل يناير 3, 2016 بواسطه سليم حاصبيا

[سنفور شاطر]

شكرا جزيلا ... لكن عندما اضع نفس الرقم للاعمدة والسطور تبقى الخلية مستطيله لكون الوحده المستخدمة للسطور ليست نفس الوحدة المستخدمة للاعمده

[مختار حسين محمود]

جرب الكود 

 Sub MokhtarSquare()
     Cells.RowHeight = 18
     Cells.ColumnWidth = 2.71
   
 End Sub

 

[سنفور شاطر]

شكرا استاذ مختار لكن هذه الفرق بين قيمة العمود والسطر هل هو ثابت ولماذا هذا الفرق

 

[مختار حسين محمود]

Sub MokhtarSquare2()
Application.ScreenUpdating = False
     With Cells
      .RowHeight = 6.694
      .ColumnWidth = 1
     End With
Application.ScreenUpdating = True
 
End Sub

جعل عرض كل الأعمدة = 2.17 و ارتفاع كل الصفوف = 18

هذه الأرقام تجعل كل خلايا الشيت تبدو مربعة الشكل بنسبة كبيرة جدا   وهو ما تريده

و تقريبا تقدر تقول كل 1 نقطة فى عرض العمود = 5.694  فى ارتفاع الصف

جرب الكود السابق  ستجد أن كل خلايا الشيت مربعة الشكل   زود الزوم  ستجد أيضا الخلايا مربعة الشكل 

و الله أعلى وأعلم