انتقل إلى المحتوى الرئيسي

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

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

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

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


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

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

وثيقة-مجموعة-حجم الخلية-cm1

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

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

وثيقة-مجموعة-حجم الخلية-cm2 -2 وثيقة-مجموعة-حجم الخلية-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 سم.

وثيقة-مجموعة-حجم الخلية-cm6


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

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

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

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

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

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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;
This comment was minimized by the moderator on the site
Seems redundant. Just go into the regular column size dialogue and add "cm" after typing the size.
This comment was minimized by the moderator on the site
Needed this badly. Thank you so much!
This comment was minimized by the moderator on the site
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!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations