gamalin

محتمل بس انا كمان كتبت معادلة اخرى ولم تفلح الاخ علي عايزين افكارتك وابتكاراتك ويانا صدقني دي هتبقى هديه جميله لباقي الاعضاء اصل المشكلة ان الناس بتعمل معدلات كثير قوية بس يجي اليوزر يضيعها او يمنعه الماكرو من حمايتها

يبدوا ان الفكرة طلعت فاشلة اخواني الاعزاء شكرا مع الاعتذار للمسلسل

جزاك الله كل خير الف شكر على الهدية القيمة

اكون شاكر اذا تلقيت هديتك اخي تامر عمر وشكرا على مداخلتك

شباب والله الفكرة حلوة لو قدرنا ننفذها يعني مسج بوكس يفتح الواحد يكتب في سطر منه رقم الخلية وفي الثاني المعادلة اللي عايز تثبت فيها بالكود يعني نبرمج من غير برمجة

بارك الله فيك ونفعك ونفع بك يا اخي الواحد بيدخل المنتدى يبحث عن مشاركات علي السحيب لثقته في احتوائها على مواد قيمة جزاك الله خيرا

الحمد لله وتوفيقه تمت مشروع الاخت مع تمنياتنا لها بالتوفيق وشرح بعض الدوال المستخدمة والبسيطة جدا لها

يمكن متابعة شرح الدوال المستخدمة وكيفية عمل الملف على الماسينجر وربنا يوفق الجميع

انظر الى الملف التالي خسارة الملف اكبر من المساحة المتبقية للتفاعل من خلال هذا المنتدى لذا يمكن دعوة احد المشرفين لايجاد حل لهذه المشكلة او التواصل على الايميmadmar00@hotmail.com

اضافة هل مازال هناك وقت لدي اضافة جديدة لكن حجم الملف اصبح اكبر من المساحة المتبقية لذا برجاء من اي من المشرفين ارشادي الى كيفية وضع الملف او التواصل عبر الايميل التالي madmar00@hotmail.com

اطلعي على هذا الملف وافيديني بالمستجدات __________.rar

اولا في الصفحة الاولى تم تكبير الصورة قليلا ورسم مربعات عليها الاول تم كتابة الاسم والشعبة عليه والباقي تم كتابة اسماء الورقات عليهم ثم عمل ارتباط تشعيبي بينهم وبين الورقات هل اطلعتي على الملف

اليك هذا النموذج ارجوا الافادة هل نستكمل ام ان الوقت قد انتهى اليك هذا النموذج ارجوا الافادة هل نستكمل ام ان الوقت قد انتهى __________.rar

سلمك الله وعدت سالما اخي هادي بس الكود لا يعمل جيدا حاولت كتابة معادلة IF ولم تفلح الامر لكن محاولة طيبة

الاول السؤال هل يمكن منع المستخدم لشيت من الطباعة باي طريق خلاف زر على الشيت نفسة يعمل بماكرو طباعة ؟ والفكرة تتلخص في عمل فورم ( نموذج ) يتم به تحديد خلية معينة ثم كتابة المعادلة المطلوب اسقاطها في هذه الخلية بواسطة الكود ليتم نقل المعادلة الى الكود بدلا من كتابتها في الخلية ذاتها وبالتالي يمكن لاي مستخدم من وضع معادلاته في الكود دون فتح شاشة الاكواد او اللامام بقواعد واساليب كتبة الكود ومع هذا التمتع بميزة عدم وجود المعادلات في الخلايا خشية ان يتم مسحها

الاخ هادي جزاك الله كل خير ونفعك ونفع بك الملف جميل وفكرته حلوة ويمكن الاستفادة منها اما ما نحن بصدده هو الحصول على الحالية وعلى القيم بعد الغييرات وليس التغيير في حد ذاته ولكن هل لي ان اسأل ماهي الوحدة المستخدمة اهي السنتيمتر واشكرك كثيرا

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

تحية عطرة للاخ فلسطيني الرائع هذا هو المطلوب تماما خاصة بعد اضافة كلمة Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.value = "Cell width =" & ActiveCell.ColumnWidth & " " & " and Cell hieght=" & ActiveCell.RowHeight End Sub اشكرك كثيرا وسوف اضع الملف بعد اجراء بعض التعديلات عليه قليلا لعله ينفع احد اخر ومرة اخرى اكرك كثيرا لتفاعلك وتواصلك ايدك الله ونصرك الله بقي شي صغير كيف نجعل هذه القيمة تتغير بتغير عرض العمود او ارتفاع السطر مرفق الملف واشكرك كثيرا حتى الان يمكنني التغلب على ذلك باعادة اختيار الخلايا مرة اخرى عندها ستتعدل القيمة لكن هل يمكن استبدال ذلك لتصبح هذه القيم اكثر ديناميكية وتشعر من تلقاء نفسها بتغير عرض العمود او ارتفاع الخلية وشكرا cell_wedith.rar

عذرا هذا هو الملف cell_wedith.rar

الاخ فلسطيني اشكرك Sheets("sheet1").Cells(2, 1).Value = Cells(2, 1).ColumnWidth & " " & " and Cell hieght=" & Cells(2, 1).RowHeight توصلت لكود للخلية نفسها بقي ان تساعدني بجعل هذه القيمة تتغير بتغيير عرض العمود او ارتفاع السطر واشكرك كثيرا على ذلك يمكنني بعدها باستخدام الدوال العادية كدالة left or right واستقطع الارتفاع لوحدة واجري عليه عمليات الجمع او الطرح وكذلك العرض وباقي على الحلو تكة باقي ربط هذه النتيجة باي تغييرات في عرض او ارتفاع الخلية مرفق الملف بعد تعديل الكود ارجو الاطلاع عليه ومحاولة جعل هذه القيمة تتغير باي تغيير في عرض العمود او ارتفاع السطر واخيرا هل يمكن تكوين دالة من هذا الكود عند كتابتها في اي خليه تعطي هذه النتيجة ولك جزيل الشكر على هذا المفتاح الرائع وكذلك لاخونا تامر واسهاماته

الاخ فلسطيني باضافة الكود التالي تمكنت من ان تكتب الرسالة في الخلية ولكنها تقرأ قيمة الخلية التي اقف عليها وتتغير بتغيير الخلية التي اقف عليها ولكني اريد ان تقرأ نفسها وبشكل ثابت Sheets("sheet1").Cells(EndRow + 1, 1).Value = activecell.ColumnWidth & " " & " and Cell hieght=" & activecell.RowHeight اشكرك بشدة وارجو مواصلة تعديل الكود لاني احاول عن محاولات لا عن علم بكتابة الكود وان كان يمكنني في معظم الاحوال فهمه لذا قد اتمكن من تعديله لما يخدم اغراضي لكني لا اتي بجديد بل اقتبس من فنونكم وشكرا

الاخ تامر جزاك الله خير الجزاء وبارك الله فيك ونفعك ونفع بك سوف احاول تجربة ما كتبته واعتقد بانه بعون الله وتوفيقه مفيد ولكن اعتقد ان ما توصل اليه الاخ فلسطيني هو الاقرب لما اريد ربما اكون كنت عاجزا عن شرح ما اردته فعذرا والان ماتوصل اليه الاخ فلسطيني جميل لكن هل يمكن كتابة هذا الكود في خلية فقط لتظهر بها هذه النتيجة بنفس الشكل بدلا من عمل الرسالة على كل الخلايا وبدون طلب اضافة الى ذلك انا اريد ان تعامل مع هذه الابعاد بشكل تراكمي بمعنى ان اجمعها فاعرف بعد السطر الخامس مثلا او السطر العشرين من ناحية الطباعة من الهامش العلوي الذي حددته او بعد العمود الرابع عن الهامش الايمن او الايسر وهكذا وبهذا يسهل تخطيط الصفحة بدقة لاستخدامها في تعبئة نماذج مطبوعة سلفا مثال برنامج عملته لطباعة فواتير وتعبئة فواتير مطبوعة واخر لطباعة الشيكات واريد ان اسهل عملية ضبط الطباعة في هذه النماذج الجاهزة وجزاكم الله خير الجزاء والف شكر لاهتمامكم وردكم

ياترى مفيش حد مهتم

معرفة عرض الاعمدة وارتفاع السطور ولو امكن بالسنتيمتر يعني لو الوحدة بكسل او اخرى لو تم التحويل خير وان لم يكن مش مهم احاول في الحويلات انا بس عايز اعرف الارتفاع للسطر وعرض العمود لاتمكن من التعديل فيها اضافة او تقليل لضبط هوامش الطباعة تماما يعني اقف في اي خلية وبمعادلة او كود اقدر اعرف يكتب فيها ارتفاع السطر او عرض العمود الموجود به الخلية * ملاحظة يوجد دالة تحسب عرض العمود بس الرقم الصحيح بس وهي cell تقريبا بعد اضافة width اليها برجاء الافادة والف شكر لاهتمامك

الاخوة المشرفين هل يوكد كود او معادلة لمعرفة عرض عمود او ارتفاع سطر وياريت لو كان ذلك بالسنتيمتر الهدف من ذلك هو ضبط الطباعة داخل هوامش وحدود مطبوعة بالضبط في اقصر وقت وبالدقة الكبيرة رجاء سرعة الرد والاهتمام