قياس الاعمدة والصفوف بالسنتمير

[Ahmed Ramadan asd]

ارجو من الاخوة الافاضل توضيح قياس الخلية ب سم او مم او بالبوصة ولكم جزيل الشكر

[دغيدى]

أخى الفاضل / ahmedarm

سلام الله عليكم

عرض العمود الافتراضى 8.38 يعادل 2 سم وارتفاع الصف الافتراضى 14.25 يعادل نصف سم

تم تعديل فبراير 19, 2012 بواسطه دغيدى

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، إن قياس عرض الأعمدة وارتفاع الصفوف يتم عموما بالنقاط أو البكسل... غير أنه إذا كنت تعمل بنسخ الأوفيس المتقدمة 2007 أو 2010 فإنه يمكنك قياسهما بالسنتيمتر أو بالبوصة بواسطة (عرض/تنسيق الصفحة أو View/Page setup أو Affichage/Mise en page) وسأحاول إن شاء الله تحضير ملف تنفيذي يشرح العملية لاحقا (على نسخة أوفيس 2010 بالفرنسية) أو انظر الصورة الموالية ...

أما إذا كنت تعمل على نسخة أوفيس 2003 فتجد في النت أكواد تقوم بالقياسات باستعمال السنتيمتر (الميليمتر)، وإذا لم تجدها أضعها لك في رد آخر أو يمكن استعمال جدول التحويل بالأسقل الذي يساعد في هذه العملية (بالتقريب)...

Cm Pixels Points

18 24 0,635

36 48 1,27

72 96 2,54

108 144 3,81

144 192 5,08

أخوك بن علية

تم تعديل فبراير 20, 2012 بواسطه hben

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

هذه مسطرة لقياس الاعمدة بالسنتيمتر للاستاذ الفاضل /عمر الحسيني (أبا تامر)

لعلي أفيد

أبوأنس

JRuler.rar

[خالد الشاعر]

استاذ بن علية

برجاء وضع الاكواد الخاصة بالسينتمتر

جزاك الله خيراً

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، على عيني وراسي أضع بين أيديكم الكودين اللذين يقيسان عرض الأعمدة وارتفاع الصفوف بالميليمتر والسنتيمتر... رسائل الكودين بالفرنسية (يمكن تغييرها في نص الأكواد بالعربية أو الإنجليزية)...

الكود الخاص بقياس عرض الأعمدة

Sub colonnesEnCentimetres()

Dim cm As Integer, points As Integer, savewidth As Integer

Dim count As Integer

Application.ScreenUpdating = False

cm = Application.InputBox("entrer la largeur de la colonne en cms", "Largeur de la colonne souhaitée", Type:=1)

    If cm = False Then Exit Sub

	    points = Application.CentimetersToPoints(cm)

	    savewidth = ActiveCell.ColumnWidth

	    ActiveCell.ColumnWidth = 255

		    If points > ActiveCell.Width Then

			    MsgBox "la largeur de" & cm & "est trop large" & Chr(10) & "la valeur maxi est de " & _

			    Format(ActiveCell.Width / 28.3464566929134, "0.00"), vbOKOnly + vbExclamation, "largeur non valable"

			    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

الكود الخاص بقياس ارتقاع الصفوف

Sub lignesEnCentimetres()

Dim cm As Integer

cm = Application.InputBox("Entrer la hauteur de la ligne en centimètres", "Hauteur de la ligne souhaitée", Type:=1)

	 If cm Then

		    Selection.RowHeight = Application.CentimetersToPoints(cm)

	 End If

End Sub

أرجو أن تكون هذه الأكواد مفيدة

أخوكم بن علية

[خالد الشاعر]

استاذ بن علية

شكراً لسرعة الرد و تسلم ايدك

جزاك الله خيراً

[Ahmed Ramadan asd]

شكرا لكل من سهام فى الموضع وعلمنا فله الشكر (أفضل الجود أن تبذل من غير مسألة ) وشكرا الاستاذ بن علية والاستاذ الدغيدى والاستاذ ابو تامر وصاحب المسطرة الاستاذ الحيسنى

[My eccnw]

جميلة الافكار والمعلومات ومنها مسطرة القياسر

[منسق]

السلام عليكم ورحمة الله وبركاته

عندي مشكلة مختلفة بخصوص ارتفاع الصفوف

وهي أنني صممت برنامج على إكسل وهو يعمل بشكل طبيعي على جميع إصدارت أوفيس

ولكن عند فتح البرنامج على ويندوز 7 يتغير إرتفاع الصفوف مما يقلص الورقة وتظهر مشوهة

مرفق ملف به صورة من إحدى الصفحات على ويندوز إكس بي وويندوز 7

للمعلومية جربت على ويندوز 7 إصدارت مختلفة من الأوفيس والمشكلة موجودة

أرجو أن أجد الحل لديكم

ولكم تحياتي