أبو عبد الرحمن سعيد قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 بسم الله الرحمن الرحيم وبه نستعين الساده الزملاء الافاضل السلام عليكم جميعا ورحمته الله وبركاته نرجو توضحيا عمليا بتحويل قياس الاعمدة والصفوف من البكسل الى السنتيمتر مشفوعا بصور توضيحية كى يتسنى لمن ليس لديه فكرة بتنفيذ ذلك الامر دمتم جميعا فى رعاية الله وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 السلام عليكم اخي سعيد جرب هذه الأداة CentimetersToPoints ربما تجد ضالتك بها جرب هذا الكود ( في مودويل ) Sub A() Columns(1).ColumnWidth = Application.CentimetersToPoints(1) Rows(1).RowHeight = Application.CentimetersToPoints(1) End Sub رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 الأخ الحبيب / سعيد بيرم تفضل شرح فى الملف المرفق أرجوأن يكون مفيدا القياس بالسنتيمتر.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 أخى الحبيب / سعيد وهذا كود لمعرفة أبعاد الخلية النشطة بوحدة الملليمترات Sub Test() MsgBox "Row height is " & ActiveCell.EntireRow.Height / 72 * 25.4 & " mm" MsgBox "Column width is " & ActiveCell.EntireColumn.Width / 72 * 25.4 & " mm" End Sub معرفة ابعاد الخلية النشطة بالملليمترات.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 أخى الحبيب / سعيد وهذا كود وجدته فى أحد المواقع الأجنبية يغير أبعاد جميع الخلايا بالسنتيمترات بحيث يكون عرض العمود يساوى أرتفاع الصف أى يجعل الخلايا على شكل مربعات تحويل الى سم.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 السلام عليكم جرب هذا الكود ربما اكون اصبت به لان الاعمدة تختلف عن الصفوف بقياس السنتيمتر والبكسل Sub AA() On Error Resume Next Dim XX As Integer ' ************************************* ' حدد بالماوس الخلايا المراد تحويلها ثم فعل الكود ' XX = Application.InputBox("عرض الصفوف", "officena") If XX Then Selection.RowHeight = Application.CentimetersToPoints(XX) End If XX = Application.InputBox("عرض الأعمدة", "officena") If XX Then Selection.ColumnWidth = XX * 4.663 End If End Sub رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 السلام عليكم الاخ الاستاذ رجب جاويش الشرح سهل للفهم وفقك الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.