كيفية تعيين حجم الخلية بالسنتيمتر في إكسيل؟
في ورقة العمل ، يتم تعيين الوحدات الافتراضية لارتفاع الصف وعرض العمود مسبقًا ، ويكون عرض العمود الافتراضي 8.38 حرفًا وارتفاع الصف الافتراضي هو 12.75 نقطة. وفي Excel ، يصعب عليك تعيين ارتفاع الصف أو عرض العمود بالبوصة أو السنتيمتر. لكن ، في بعض الأحيان تحتاج إلى تغيير الطول والعرض إلى سنتيمترات لبعض الأغراض. كيف يمكنك حل هذه المشكلة؟
اضبط حجم الخلية بالسنتيمتر (سم) باستخدام كود فبا
تعيين حجم الخلية في سم (سم) مع كوتولس ل إكسيل
اضبط حجم الخلية بالسنتيمتر (سم) باستخدام كود فبا
لا يمكنك ضبط الارتفاع والعرض بالسنتيمتر باستخدام وظائف Excel ، باستثناء استخدام كود VBA. يمكن أن يساعدك الرمزان أدناه في ضبط عرض العمود وارتفاع الصف. افعل ما يلي:
1. حدد الخلايا التي تريد تعيينها بالسنتيمتر.
2. انقر المطور > البصرية الأساسية، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة، وأدخل الكود التالي في الوحدة النمطية:
كود لضبط ارتفاع الصف بالسنتيمتر:
Sub RowHeightInCentimeters()
Dim cm As Single
cm = Application.InputBox("Enter Row Height in Centimeters", _
"Row Height (cm)", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
End Sub
3. ثم اضغط 
زر لتنفيذ الكود. وسيظهر مربع موجه ليخبرك بإدخال عدد من ارتفاع الصف. انظر لقطة الشاشة:
ملاحظة:: يجب أن يكون الرقم الذي تدخله أقل من 15. ولن يغير رمز VBA هذا ارتفاع الصف إذا أدخلت 0 في مربع الحوار هذا.
4. انقر OK. وقد تم ضبط ارتفاع صف الخلايا المحددة على 2 سم. انظر لقطة الشاشة:
إذا كنت تريد ضبط عرض العمود بالسنتيمتر أيضًا ، يمكنك إدخال الكود التالي:
كود لضبط عرض العمود بالسنتيمتر:
Sub ColumnWidthInCentimeters()
Dim cm As Single, points As Integer, savewidth As Integer
Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
Dim Count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("Enter Column Width in Centimeters", _
"Column Width (cm)", Type:=1)
If cm = False Then Exit Sub
points = Application.CentimetersToPoints(cm)
savewidth = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 255
If points > ActiveCell.Width Then
MsgBox "Width of " & cm & " is too large." & Chr(10) & _
"The maximum value is " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "Width Error"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 255
ActiveCell.ColumnWidth = 127.5
curwidth = ActiveCell.ColumnWidth
Count = 0
While (ActiveCell.Width <> points) And (Count < 20)
If ActiveCell.Width < points Then
lowerwidth = curwidth
Selection.ColumnWidth = (curwidth + upwidth) / 2
Else
upwidth = curwidth
Selection.ColumnWidth = (curwidth + lowerwidth) / 2
End If
curwidth = ActiveCell.ColumnWidth
Count = Count + 1
Wend
End Sub
تعيين حجم الخلية في سم (سم) مع كوتولس ل إكسيل
باستخدام الرموز المذكورة أعلاه ، يمكنك فقط تعيين حجم الخلية بالسنتيمتر ، اليوم ، سأقدم لك أداة متعددة الوظائف ، كوتولس ل إكسيل والتي لا يمكنها فقط تعيين حجم الخلية بالسنتيمتر ولكن أيضًا بالبوصة والجنيه والبكسل.
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:（تنزيل مجاني Kutools for Excel الآن!)
1- قم بتمييز الخلايا التي تريد ضبطها بالسنتيمتر.
2. انقر Kutools > Format > Adjust Cell Size، انظر لقطة الشاشة:
3. في ال Adjust Cell Size في مربع الحوار ، اختر ملف Unit type أنت بحاجة وتحديد Row height و Column width تبدأ من Set values الجزء. انظر لقطة الشاشة:
4. ثم اضغط OK or تقديم الطلب. ستحصل على خلايا بارتفاع 2 سم وعرض عمود 3 سم.
تعيين حجم الخلية في سم (سم) مع كوتولس ل إكسيل
مقالات ذات صلة:
تعيين عرض العمود وارتفاع الصف لنطاق
كيفية تربيع خلايا متعددة في إكسيل؟
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
