seddiki_adz قام بنشر يوليو 26, 2021 مشاركة قام بنشر يوليو 26, 2021 السلام عليكم ابحث عن كود لنسخ عدد ناتج عن مجموع الاسطر موجود في خلية في خلية اخرى تــــم تعديل رفع الملف بصيغة XLSM Classeur6.xlsm رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 26, 2021 مشاركة قام بنشر يوليو 26, 2021 المطلوب غير واضح لي ولكن ربما تقصد أن تكتب في الخلية J2 =E2 ليظهر نفس الرقم الموجود في E2 رابط هذا التعليق شارك More sharing options...
seddiki_adz قام بنشر يوليو 26, 2021 الكاتب مشاركة قام بنشر يوليو 26, 2021 نعم J2 E2=J6 ادا كانت القيمة ثابتة لكن القيمة غير ثابتة رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 26, 2021 مشاركة قام بنشر يوليو 26, 2021 رغم أنه أي تحديث في الخلية E2 سيتم تغييره في الخلية J2 ما زال المطلوب غير واضح لي رابط هذا التعليق شارك More sharing options...
seddiki_adz قام بنشر يوليو 26, 2021 الكاتب مشاركة قام بنشر يوليو 26, 2021 القيمة الموجودة في الخلية E2 ناتجة بحساب عدد الاسطر وتتعير بتغير القيمة الموجود في E2 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 27, 2021 مشاركة قام بنشر يوليو 27, 2021 الفيمة الموجودة قي E2 ناتجة عن حساب أكبر قيمة في المدى من A3:A1000 وهي 18 حاليا =MAX(A3:A1000) وإذا كنبنا في J2 هذه المعادلة =E2 فسيظهر نفس الرقم 18 هذا شرح بالتفصيل لما قمت أنا بعمله حاليا ما المطلوب بالتفصيل ؟ رابط هذا التعليق شارك More sharing options...
seddiki_adz قام بنشر يوليو 27, 2021 الكاتب مشاركة قام بنشر يوليو 27, 2021 نسخ القيمة المحصل عليها ولصقها لكن عندما تتعير القيمة E2 تمسح لذا يلزم كود خاص لنسخ القيمة دون ان تمسح رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 27, 2021 أفضل إجابة مشاركة قام بنشر يوليو 27, 2021 حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي وربطه بزر أو شكل أو صورة Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء 2 1 رابط هذا التعليق شارك More sharing options...
seddiki_adz قام بنشر يوليو 27, 2021 الكاتب مشاركة قام بنشر يوليو 27, 2021 الكود يعمل بصفة جيدة لكن القيمة الناتجة تتغير و تلصق في الخلية المقابلة لها في العمود j Classeur111.xlsx رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 27, 2021 مشاركة قام بنشر يوليو 27, 2021 تفضل هذا مطلوبك الثاني Sub tar7eel() For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub بالتوفيق 3 رابط هذا التعليق شارك More sharing options...
seddiki_adz قام بنشر يوليو 27, 2021 الكاتب مشاركة قام بنشر يوليو 27, 2021 السلام عليكم مادا لو غيرنا الرقم 9 بالرقم 17 Sub tar7eel() For n = 2 To Cells(Rows.Count, 17).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub Classeur6666.xls رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 28, 2021 مشاركة قام بنشر يوليو 28, 2021 لن تحصل على شيء لأن العمود Q فارغ للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range ولكن الفرق أن range نقدم لها اسم النطاق مثلا range("c5").value = "Mas" هذا الكود يقوم بكتابة Mas في الخلية C5 ويمكن استعمال cells لنفس الغرض cells(5, 3).value = "Mas" حيث أن 5 هو رقم الصف و3 هو رقم العمود فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
seddiki_adz قام بنشر يوليو 28, 2021 الكاتب مشاركة قام بنشر يوليو 28, 2021 بارك الله فيك وجعل هذا العمل الله في ميزان حسناتك 1 رابط هذا التعليق شارك 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.