gamalin قام بنشر نوفمبر 8, 2006 قام بنشر نوفمبر 8, 2006 الاخوة المشرفين هل يوكد كود او معادلة لمعرفة عرض عمود او ارتفاع سطر وياريت لو كان ذلك بالسنتيمتر الهدف من ذلك هو ضبط الطباعة داخل هوامش وحدود مطبوعة بالضبط في اقصر وقت وبالدقة الكبيرة رجاء سرعة الرد والاهتمام
omar elhosseini قام بنشر نوفمبر 8, 2006 قام بنشر نوفمبر 8, 2006 الاخ gamalin ماذا تريد بالضبط 1 - معرفة عرض وارتفاع الاعمدة و الصفوف بالسنتيمتر . 2 - تعديل عرض وارتفاع الاعمدة الصفوف بالسنتيمتر . 3 - معرفة اعدادات الصفحة بالسنتيمتر . 4 - تعديل اعدادات الصفحة بالسنتيمتر .
gamalin قام بنشر نوفمبر 8, 2006 الكاتب قام بنشر نوفمبر 8, 2006 معرفة عرض الاعمدة وارتفاع السطور ولو امكن بالسنتيمتر يعني لو الوحدة بكسل او اخرى لو تم التحويل خير وان لم يكن مش مهم احاول في الحويلات انا بس عايز اعرف الارتفاع للسطر وعرض العمود لاتمكن من التعديل فيها اضافة او تقليل لضبط هوامش الطباعة تماما يعني اقف في اي خلية وبمعادلة او كود اقدر اعرف يكتب فيها ارتفاع السطر او عرض العمود الموجود به الخلية * ملاحظة يوجد دالة تحسب عرض العمود بس الرقم الصحيح بس وهي cell تقريبا بعد اضافة width اليها برجاء الافادة والف شكر لاهتمامك
خالد فتحي عبد الفتاح قام بنشر نوفمبر 9, 2006 قام بنشر نوفمبر 9, 2006 هذا الموضوع هام جدا وأنا من المهتمين بمعرفة كيفية تنفيذ كود كهذا لذا أرجو من الأخوة المشرفين الرد ولكم جزيل الشكر
omar elhosseini قام بنشر نوفمبر 9, 2006 قام بنشر نوفمبر 9, 2006 الاخ gamalin تحياتى لك للتعامل مع هوامش اعداد الصفحة بالسنتيمتر الوحدات المقاسة بالبيكسل ( points ) يمكن التعامل معها عن طريقه داله ( CentimetersToPoints ) لتوجية القياس بالسنتيمتر فلو فرضنا اننا نريد تحديد الهامش الايسر للطباعة ب 2.5 سنتيمتر نستخدم الكود الاتى : Worksheets("Sheet1").PageSetup.LeftMargin = Application.CentimetersToPoints(2.5) وايضا لو اردنا ان يكون ارتفاع الصف الخامس 1.25 سنتيمتر نستخدم الكود الاتى : Rows(5).RowHeight = Application.CentimetersToPoints(1.25) وبهذه الطريقة يمكنك تحديد اى وحدة بالسنتيمتر بدلا من البيكسل ملاحظة : لم اقم بالتجربة ولكنها تعليمات ميكروسوفت تحياتى لك
فلسطيني قام بنشر نوفمبر 9, 2006 قام بنشر نوفمبر 9, 2006 cell_wedith.zipالسلام عليكم ورحمة الله الكود التالي يظهر رسالة بعرض العمود و ارتفاع الصف للخلية النشطة Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "Cell width =" & activecell.ColumnWidth & " " & " and Cell hieght=" & activecell.RowHeight End Sub كما في الملف المرفق
gamalin قام بنشر نوفمبر 10, 2006 الكاتب قام بنشر نوفمبر 10, 2006 الاخ تامر جزاك الله خير الجزاء وبارك الله فيك ونفعك ونفع بك سوف احاول تجربة ما كتبته واعتقد بانه بعون الله وتوفيقه مفيد ولكن اعتقد ان ما توصل اليه الاخ فلسطيني هو الاقرب لما اريد ربما اكون كنت عاجزا عن شرح ما اردته فعذرا والان ماتوصل اليه الاخ فلسطيني جميل لكن هل يمكن كتابة هذا الكود في خلية فقط لتظهر بها هذه النتيجة بنفس الشكل بدلا من عمل الرسالة على كل الخلايا وبدون طلب اضافة الى ذلك انا اريد ان تعامل مع هذه الابعاد بشكل تراكمي بمعنى ان اجمعها فاعرف بعد السطر الخامس مثلا او السطر العشرين من ناحية الطباعة من الهامش العلوي الذي حددته او بعد العمود الرابع عن الهامش الايمن او الايسر وهكذا وبهذا يسهل تخطيط الصفحة بدقة لاستخدامها في تعبئة نماذج مطبوعة سلفا مثال برنامج عملته لطباعة فواتير وتعبئة فواتير مطبوعة واخر لطباعة الشيكات واريد ان اسهل عملية ضبط الطباعة في هذه النماذج الجاهزة وجزاكم الله خير الجزاء والف شكر لاهتمامكم وردكم
gamalin قام بنشر نوفمبر 10, 2006 الكاتب قام بنشر نوفمبر 10, 2006 الاخ فلسطيني باضافة الكود التالي تمكنت من ان تكتب الرسالة في الخلية ولكنها تقرأ قيمة الخلية التي اقف عليها وتتغير بتغيير الخلية التي اقف عليها ولكني اريد ان تقرأ نفسها وبشكل ثابت Sheets("sheet1").Cells(EndRow + 1, 1).Value = activecell.ColumnWidth & " " & " and Cell hieght=" & activecell.RowHeight اشكرك بشدة وارجو مواصلة تعديل الكود لاني احاول عن محاولات لا عن علم بكتابة الكود وان كان يمكنني في معظم الاحوال فهمه لذا قد اتمكن من تعديله لما يخدم اغراضي لكني لا اتي بجديد بل اقتبس من فنونكم وشكرا
gamalin قام بنشر نوفمبر 10, 2006 الكاتب قام بنشر نوفمبر 10, 2006 الاخ فلسطيني اشكرك Sheets("sheet1").Cells(2, 1).Value = Cells(2, 1).ColumnWidth & " " & " and Cell hieght=" & Cells(2, 1).RowHeight توصلت لكود للخلية نفسها بقي ان تساعدني بجعل هذه القيمة تتغير بتغيير عرض العمود او ارتفاع السطر واشكرك كثيرا على ذلك يمكنني بعدها باستخدام الدوال العادية كدالة left or right واستقطع الارتفاع لوحدة واجري عليه عمليات الجمع او الطرح وكذلك العرض وباقي على الحلو تكة باقي ربط هذه النتيجة باي تغييرات في عرض او ارتفاع الخلية مرفق الملف بعد تعديل الكود ارجو الاطلاع عليه ومحاولة جعل هذه القيمة تتغير باي تغيير في عرض العمود او ارتفاع السطر واخيرا هل يمكن تكوين دالة من هذا الكود عند كتابتها في اي خليه تعطي هذه النتيجة ولك جزيل الشكر على هذا المفتاح الرائع وكذلك لاخونا تامر واسهاماته
فلسطيني قام بنشر نوفمبر 10, 2006 قام بنشر نوفمبر 10, 2006 السلام عليكم ورحمة الله وبركاته يمكنك تعديل الكود بهذا الشكل ليوقم بكتابة عرض و ارتفاع كل خلية تقف عليها في داخلها Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = "Cell width =" & ActiveCell.ColumnWidth & " " & " and Cell hieght=" & ActiveCell.RowHeight End Sub
gamalin قام بنشر نوفمبر 10, 2006 الكاتب قام بنشر نوفمبر 10, 2006 تحية عطرة للاخ فلسطيني الرائع هذا هو المطلوب تماما خاصة بعد اضافة كلمة Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.value = "Cell width =" & ActiveCell.ColumnWidth & " " & " and Cell hieght=" & ActiveCell.RowHeight End Sub اشكرك كثيرا وسوف اضع الملف بعد اجراء بعض التعديلات عليه قليلا لعله ينفع احد اخر ومرة اخرى اكرك كثيرا لتفاعلك وتواصلك ايدك الله ونصرك الله بقي شي صغير كيف نجعل هذه القيمة تتغير بتغير عرض العمود او ارتفاع السطر مرفق الملف واشكرك كثيرا حتى الان يمكنني التغلب على ذلك باعادة اختيار الخلايا مرة اخرى عندها ستتعدل القيمة لكن هل يمكن استبدال ذلك لتصبح هذه القيم اكثر ديناميكية وتشعر من تلقاء نفسها بتغير عرض العمود او ارتفاع الخلية وشكرا cell_wedith.rar
gamalin قام بنشر نوفمبر 11, 2006 الكاتب قام بنشر نوفمبر 11, 2006 الاخ خالد اتمنى ان ما توصلنا له ينفع استخداماتكم وارجو من الاخ فلسطيني والمشرفين مساعدتي على جعل هذا الكود حساس لتغيير عرض او ارتفاع الخلية
هادى محمد المامون سالم قام بنشر نوفمبر 11, 2006 قام بنشر نوفمبر 11, 2006 بسم الله الرحمن الرحيمأخى الكريمشاهد الملف المرفقالسلام عليكم Rows.rar
gamalin قام بنشر نوفمبر 11, 2006 الكاتب قام بنشر نوفمبر 11, 2006 الاخ هادي جزاك الله كل خير ونفعك ونفع بك الملف جميل وفكرته حلوة ويمكن الاستفادة منها اما ما نحن بصدده هو الحصول على الحالية وعلى القيم بعد الغييرات وليس التغيير في حد ذاته ولكن هل لي ان اسأل ماهي الوحدة المستخدمة اهي السنتيمتر واشكرك كثيرا
خالد فتحي عبد الفتاح قام بنشر نوفمبر 11, 2006 قام بنشر نوفمبر 11, 2006 هل يمكن أن يتم تفعيل الكود في خلايا دون أخرى في نفس ورقة العمل ؟ الأخ العزيز gamalin تحية طيبة وسلاما من الله عليكم جميعا مشرفي وأعضاء هذا المنتدى الرائع ، فقد استفدت كثيراً من الحلول التي عرضها الأخوة الكرام ، ولي هذا السؤال أرجو الرد عليه جزاكم الله خيرا وحقيقة أنا ندعو لكم جميعا لعل الله يتقبل منا الدعاء بدوام التوفيق والسلام عليكم ورحمة الله وبركاته
omar elhosseini قام بنشر نوفمبر 14, 2006 قام بنشر نوفمبر 14, 2006 الاخ gamalin تحياتى لك اخى اذا لم تصل الى حل بالنسبة للقياس يمكننى ارسال مسطرة للقياس بأى وحدة تحياتى
gamalin قام بنشر نوفمبر 14, 2006 الكاتب قام بنشر نوفمبر 14, 2006 اكون شاكر اذا تلقيت هديتك اخي تامر عمر وشكرا على مداخلتك
omar elhosseini قام بنشر نوفمبر 14, 2006 قام بنشر نوفمبر 14, 2006 الاخ gamalin تحياتى لك المسطرة على الربط : http://www.officena.net/ib/index.php?s=&am...ost&p=62473
gamalin قام بنشر نوفمبر 14, 2006 الكاتب قام بنشر نوفمبر 14, 2006 جزاك الله كل خير الف شكر على الهدية القيمة
خالد فتحي عبد الفتاح قام بنشر نوفمبر 14, 2006 قام بنشر نوفمبر 14, 2006 تم تحميل المسطرة وجاري استخدامها جزاكم الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.