Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
شارك الآن  \/ 
x

or

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

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

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

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


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

لا يمكنك ضبط الارتفاع والعرض بالسنتيمتر باستخدام وظائف 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. ثم اضغط دوك-ضرب-حساب -3 زر لتنفيذ الكود. وسيظهر مربع موجه ليخبرك بإدخال عدد من ارتفاع الصف. انظر لقطة الشاشة:

doc-set-cell-size-cm1

ملاحظة:: يجب أن يكون الرقم الذي تدخله أقل من 15. ولن يغير رمز VBA هذا ارتفاع الصف إذا أدخلت 0 في مربع الحوار هذا.

4. انقر OK. وقد تم ضبط ارتفاع صف الخلايا المحددة على 2 سم. انظر لقطة الشاشة:

doc-set-cell-size-cm2 -2 doc-set-cell-size-cm3

إذا كنت تريد ضبط عرض العمود بالسنتيمتر أيضًا ، يمكنك إدخال الكود التالي:

كود لضبط عرض العمود بالسنتيمتر:

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

السهم الأزرق الحق فقاعة تعيين حجم الخلية في سم (سم) مع كوتولس ل إكسيل

باستخدام الرموز المذكورة أعلاه ، يمكنك فقط تعيين حجم الخلية بالسنتيمتر ، اليوم ، سأقدم لك أداة متعددة الوظائف ، كوتولس ل إكسيل والتي لا يمكنها فقط تعيين حجم الخلية بالسنتيمتر ولكن أيضًا بالبوصة والجنيه والبكسل.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

1- قم بتمييز الخلايا التي تريد ضبطها بالسنتيمتر.

2. انقر Kutools > Format > Adjust Cell Size، انظر لقطة الشاشة:

تعيين doc حجم الخلية cm9

3. في ال Adjust Cell Size في مربع الحوار ، اختر ملف Unit type أنت بحاجة وتحديد Row height و Column width تبدأ من Set values الجزء. انظر لقطة الشاشة:

تعيين doc حجم الخلية في سم 5

4. ثم اضغط OK or تقديم الطلب. ستحصل على خلايا بارتفاع 2 سم وعرض عمود 3 سم.

doc-set-cell-size-cm6


السهم الأزرق الحق فقاعة تعيين حجم الخلية في سم (سم) مع كوتولس ل إكسيل

Kutools for Excel: 300 + وظائف يجب أن تكون لديك في Excel ، نسخة تجريبية مجانية لمدة 30 يومًا من هنا.

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

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

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


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Iverson Farias Costa · 6 years ago
    Thank you. I used your idea to compare ColumnWidth and Width, and it was very helpful. I did this function in Object Pascal and want to share it with you. Thanks.

    procedure ActiveCellColumnWidthInCentimeters(ExcelApp: Variant; CM: Double);
    var
    dColumnWidth, dWidth, points: Double;
    begin
    dColumnWidth := ExcelApp.ActiveCell.ColumnWidth;
    dWidth := ExcelApp.ActiveCell.Width;
    points := ExcelApp.CentimetersToPoints(CM);

    ExcelApp.ActiveCell.ColumnWidth := ((points * dColumnWidth) / dWidth);
    end;
  • To post as a guest, your comment is unpublished.
    dm · 6 years ago
    Seems redundant.

    Just go into the regular column size dialogue and add "cm" after typing the size.
  • To post as a guest, your comment is unpublished.
    Sani · 6 years ago
    Needed this badly. [b]Thank you so much![/b]
  • To post as a guest, your comment is unpublished.
    MrsJennyk · 7 years ago
    Wow - that is awesome! I needed to set cells to print at a certain size. I have never been able to figure out how to do that before. Yay for VBA!