كيفية تعيين حجم الخلية بالسنتيمتر في إكسيل؟

في ورقة العمل ، يتم تعيين الوحدات الافتراضية لارتفاع الصف وعرض العمود مسبقًا ، ويكون عرض العمود الافتراضي 8.38 حرفًا وارتفاع الصف الافتراضي هو 12.75 نقطة. وفي Excel ، يصعب عليك تعيين ارتفاع الصف أو عرض العمود بالبوصة أو السنتيمتر. لكن ، في بعض الأحيان تحتاج إلى تغيير الطول والعرض إلى سنتيمترات لبعض الأغراض. كيف يمكنك حل هذه المشكلة؟

اضبط حجم الخلية بالسنتيمتر (سم) باستخدام كود فبا

تعيين حجم الخلية في سم (سم) مع كوتولس ل إكسيل

اضبط حجم الخلية بالسنتيمتر (سم) باستخدام كود فبا

لا يمكنك ضبط الارتفاع والعرض بالسنتيمتر باستخدام وظائف Excel ، باستثناء استخدام كود VBA. يمكن أن يساعدك الرمزان أدناه في ضبط عرض العمود وارتفاع الصف. افعل ما يلي:

1. حدد الخلايا التي تريد تعيينها بالسنتيمتر.

2. انقر المطور > Visual Basic، جديد 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 سم.

العرض التوضيحي: تعيين حجم الخلية بالسنتيمتر (cm) باستخدام Kutools for Excel

مقالات ذات صلة:

تعيين عرض العمود وارتفاع الصف لنطاق

كيفية تربيع خلايا متعددة في إكسيل؟