adam13 قام بنشر مايو 26, 2009 قام بنشر مايو 26, 2009 (معدل) السلام عليكم لقد طلب منى أحد الاصدقاء معادلة معينة والحمدلله توفقت فيها بفضل هذا المنتدىولكن واجهتنى مشكلة فكيف أقوم بتثبيت ناتج قيمة المعادلة بعد عملها لأول مرة بعيدا عن طريقة النسخ ثم اللصق المتخصص فأنا أعرف هذه الطريقةمنتظر مشاركتكم أخوانى فى هذه المشكلة ومرفق ملف به المعادلة وشرح المطلوب New_Microsoft_Office_Excel_Worksheet.rar تم تعديل مايو 26, 2009 بواسطه adam13
ابو اسامة العينبوسي قام بنشر مايو 26, 2009 قام بنشر مايو 26, 2009 السلام عليكم Dim cell As Range Application.EnableEvents = False Set cell = Cells(1, 2) Cells(1, 2) = cell.Value Application.EnableEvents = True New_Microsoft_Office_Excel_Worksheet.rar
adam13 قام بنشر مايو 26, 2009 الكاتب قام بنشر مايو 26, 2009 (معدل) أشكرك بشدة ياأخى العزيز على محاولتك لكن الكود لايقوم بالمطلوب وياحبذا لو هناك طريقة غير الكود أو الماكرو تم تعديل مايو 26, 2009 بواسطه adam13
ابو اسامة العينبوسي قام بنشر مايو 26, 2009 قام بنشر مايو 26, 2009 السلام عليكم المعادله تعمل 100% و اليك المثال مره اخرى ارجو من احد الاخوه تجريبها و اخبار الاخ بالنتيجه New_Microsoft_Office_Excel_Worksheet2.rar
adam13 قام بنشر مايو 26, 2009 الكاتب قام بنشر مايو 26, 2009 أخى لقد قمت بتحميل الملف مرة أخرى وعندما حاولت تغيير القيمة فى العامود a وجدت أن المعادلة تتغير معها أرجو تجربة ماأقوله
ابو اسامة العينبوسي قام بنشر مايو 26, 2009 قام بنشر مايو 26, 2009 السلام عليكم اذا كنت تريد حصر الشرط في تغير a1 استبدل بهذا الكود Dim cell As Range Application.EnableEvents = False If Target.Address = "A$1$" Then Set cell = Cells(1, 2) Cells(1, 2) = cell.Value End If Application.EnableEvents = True
adam13 قام بنشر مايو 26, 2009 الكاتب قام بنشر مايو 26, 2009 (معدل) مشكور لك ياأخى ولكن الكود لايعمل ولاأعرف ماهى المشكلة تم تعديل مايو 26, 2009 بواسطه adam13
احمدزمان قام بنشر مايو 26, 2009 قام بنشر مايو 26, 2009 السلام عليكم بعد اذن استاذي القدير و اخي الفاضل ابو اسامة اخي شاهد المرفق هل هذا المطلوب New_Microsoft_Office_Excel_Worksheet.rar
ابو اسامة العينبوسي قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 السلام عليكم اخى احمد اشكرك على التوضيح ظننته فقط يريد التطبيق على الخليه B1 و الكود فعلا يعمل على الخليه B1
احمدزمان قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 أخي و استاذي ابو اسامة اسعد الله صباحك بكل خير لا يخفى علينا جميعا ابداعاتكم الدائمة جزاك الله خيرا
سمير نجار قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 السلام عليكم ورحمة الله وبركاته السادة الاكارم بارك الله فيكم ونفعنا الله بعلكم ربما أكون مخطئا" في فهمي 000 الذي يطلبه الأخ adam13 هو التالي : عندما تكون قيمة الخلية a2 صفر سوف يظهر تاريخ اليوم في b2 وعندما نغير قيمة a1 الى اكبر من الصفر سوف تكون قيمة b2 هي " " فالمطلوب هو اذا غيرنا قيمة a2 الى اكبر من الصفرأ ن يبقى التاريخ ثابتا" في b2 ولا يتغير تبعا" للخلية a2 والله أعلم السلام عليكم
ياسر خليل أبو البراء قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 أخي أبو أسامة الكود فعلاً يعمل بشكل جيد جداً ، وهذا ما فهمته من طلب الأخد آدم أما كود الأستاذ المبجل المحبب إلى قلبي أحمد يعقوب فإن الكود في الملف المرفق له لم يغير شيئاً ـأكيد محتاج تعديل بسيط أو خلافه - معلش فلتت منك النوبة دي ، حاول المرة الجاية متفلتش منك!!! <حاول وافشل يكفيك شرف المحاولة> بارك الله فيكم جميعاً :clapping: عاشق الإكسيل
احمدزمان قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 السلام عليكم اخي ا/ياسر باشا اولا شكرا على الترجمة - جزاك الله خير - وكدة صرت انا مديون لك ربنا يقدرنا على تسديد ما علينا يارب ثانيا راجع الملف مرة تانية ممكن تكون مانتبهت ش للحل يعني اكتب اي صفر في عمود A يطلع التاريخ اضغط على الزر المفروض اذا غيرت الصفر الى رقم يروح التاريح وتصبح الخلية ""
سمير نجار قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 السلام عليكم ورحمة الله وبركاته عندما تكون قيمة الخلية a2 صفر سوف يظهر تاريخ اليوم في b2 وعندما نغير قيمة a1 الى اكبر من الصفر سوف تكون قيمة b2 هي " " فالمطلوب هو اذا غيرنا قيمة a2 الى اكبر من الصفرأ ن يبقى التاريخ ثابتا" في b2 ولا يتغير تبعا" للخلية a2 معنى تجاهل كلامي أنني مخطئ في فهمي أليس كذلك ؟؟ السلام عليكم
احمدزمان قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 السلام عليكم ورحمة الله وبركاته عندما تكون قيمة الخلية a2 صفر سوف يظهر تاريخ اليوم في b2 وعندما نغير قيمة a1 الى اكبر من الصفر سوف تكون قيمة b2 هي " " فالمطلوب هو اذا غيرنا قيمة a2 الى اكبر من الصفرأ ن يبقى التاريخ ثابتا" في b2 ولا يتغير تبعا" للخلية a2 معنى تجاهل كلامي أنني مخطئ في فهمي أليس كذلك ؟؟ السلام عليكم أخي الكريم الفاضل كلا منا فهم الكوضوع بطريقة تختلف عن الآخر وهذا ليس تجاهلا - ولكن تقدر تسمية اخنلاف في وجهات النظر لايؤثر ابدا على الود و المحبة التي بيننا و على اي حال الذي يحدد اية فهم صحيح هو السائل لأن كل واحد منا قدم حل لتسهيل مهمت السائل فقط فقد تكون كل حلولنا هذه ليست هي المطلوبة لدية و يكون هو ايضا صاغ السؤال بطريقه لم تخطر على بالنا جميعا جزاك الله كل خير و بارك فيك
ياسر خليل أبو البراء قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 عندما تكون قيمة الخلية a2 صفر سوف يظهر تاريخ اليوم في b2 وعندما نغير قيمة a1 الى اكبر من الصفر سوف تكون قيمة b2 هي " " فالمطلوب هو اذا غيرنا قيمة a2 الى اكبر من الصفرأ ن يبقى التاريخ ثابتا" في b2 ولا يتغير تبعا" للخلية a2 أخي سمير لست مخطئاً إن شاء الله في فهمك ، فأنا فهمت أيضاً كذلك ، ولا أعني أبداً أن أ / أحمد يعقوب أساء الفهم - حاشا لله - إنما كما قال أستاذي الغالي أحمد السائل يجب أن يعيد صياغة طلبه بشكل واضح ؟؟؟ عاشق الإكسيل
سمير نجار قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيكم وجعلنا أخوة متحابين في الله أريد أن استوضح هذا السؤال لنفسي ولكم كل الشكر . اذا كانت d1 هي عبارة عن ناتج جمع a1+b1 أريد عندما أدخل قيمتين في a1,b1 يظهر الناتج في d1 و أن يبقى الناتج ثابتا" و لو غيرت من قيمة a1,b1 وطبعا" نحن عادة لما نريد تثبيت قيمة ( كانت ناتجة من معادلة ما ) نقوم بنسخ هذه الخلية ثم نقوم في خلية اخرى بلصق خاص ونحدد ( القيمة ) بمعنى آخر المطلوب هو عندما تكون قيمة d1 أكبر من الصفر يتم حذف المعادلة المكتوبة بداخلها وبارك الله بكم جميعا" السلام عليكم فكيف أقوم بتثبيت ناتج قيمة المعادلة بعد عملها لأول مرة بعيدا عن طريقة النسخ ثم اللصق المتخصص فأنا أعرف هذه الطريقة
احمدزمان قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 فكيف أقوم بتثبيت ناتج قيمة المعادلة بعد عملها لأول مرة السلام عليكم مثلا هنا كلمة عملها تحتمل معنيين او اكثر قد تحتمل/ بعد عملها لأول مرة = كتابتها في الخلية في المرة الأولى قد تحتمل/ بعد عملها لأول مرة = خروج نتيجة لها توافق المطلوب من المعادلة اي قيمة لا تساوي "" او لا تساوي صفر
ابو اسامة العينبوسي قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 (معدل) السلام عليكم الى الاخ samnaj Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 2 Then Exit Sub '----------------------------------- If Target.Column = 1 Then If Target.Offset(0, 1).Value <> "" Then Target.Offset(0, 3).Value = Target.Offset(0, 3).Value End If '----------------------------------- ElseIf Target.Column = 2 Then If Target.Offset(0, -1).Value <> "" Then Target.Offset(0, 2).Value = Target.Offset(0, 2).Value End If End If End Sub بشرط وجود قيمتين في الخليتين Book211.rar تم تعديل مايو 27, 2009 بواسطه ابو اسامة العينبوسي
سمير نجار قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 السلام عليكم ورحمة الله وبركاته الاساتذة الكرام بارك الله فيكم جميعا" الاستاذ ابو اسامة الكود لا يعمل عندي هل يعمل تلقائيا". حاولت تشغيله من صفحة فيحوال بيزك فلا نتيجة وهل معناه أني اذا ادخلت قيمة للخلية a1 وb1 سوف تكون قيمة d1 ثابتة بعد عملية الجمع اي سوف تحذف معادلة ( a1+b1=) وهل الجزء المسؤول عن ذلك هو Target.Offset(0, 3).Value = Target.Offset(0, 3).Value بارك الله فيك استاذي ابواسامة وشكرا" على رحابة صدرك السلام عليكم
adam13 قام بنشر مايو 27, 2009 الكاتب قام بنشر مايو 27, 2009 (معدل) السلام عليكم أشكركم بشدة أخوانى الكرام فعلا الاخ samnaj00 هو قام بتوضيح مااريده بالضبط ولقد جربت ملف الاخ أبو أسامة والأخ أحمد ولم ينفع معى تم تعديل مايو 27, 2009 بواسطه adam13
ابو اسامة العينبوسي قام بنشر مايو 27, 2009 قام بنشر مايو 27, 2009 (معدل) السلام عليكم وهل معناه أني اذا ادخلت قيمة للخلية a1 وb1 سوف تكون قيمة d1 ثابتة بعد عملية الجمع اي سوف تحذف معادلة ( a1+b1=) نعم هذا معناه اليس هذا طلبك ذا كانت d1 هي عبارة عن ناتج جمع a1+b1 أريد عندما أدخل قيمتين في a1,b1 يظهر الناتج في d1 و أن يبقى الناتج ثابتا" و لو غيرت من قيمة a1,b1 تم تعديل مايو 27, 2009 بواسطه ابو اسامة العينبوسي
سمير نجار قام بنشر مايو 28, 2009 قام بنشر مايو 28, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم ابو اسامة اشكرك من كل قلبي على سعة صدرك وتحملي نعم هذا معناهاليس هذا طلبك ذا كانت d1 هي عبارة عن ناتج جمع a1+b1 أريد عندما أدخل قيمتين في a1,b1 يظهر الناتج في d1 و أن يبقى الناتج ثابتا" و لو غيرت من قيمة a1,b1 المعذرة استاذي . ولكن الكود لا يعمل عندي . اي لا يحذف المعادلة بعد اول ادخال . دعني اوضح لك سيدي بطريقة اخرى : عند ادخال اول قيمة فقط في الخليتين a1 , b1 تقوم الخلية d1 جمع الخليتين( a1+b1 = ) بعد ذلك مباشرة تثبت قيمة d1 وتلغى المعادلة (a1+b1=) واسأل الله لي ولك التوفيق فيما يحبه ويرضاه السلام عليكم
ابو اسامة العينبوسي قام بنشر مايو 28, 2009 قام بنشر مايو 28, 2009 السلام عليكم الادخال لا يكون في خليتين معا !! اليس كذلك اما في A1 او B1 يعنى ادخلنا في A1 ما ذا يحدث (بالتزامن مع شرط وجود او عدم وجود شئ في B1 ) ؟ او اذا ادخالنا في B1 ما ذا يحدث (بالتزامن مع شرط وجود او عدم وجود شئ في ِA1 ) ؟
blackhorse123 قام بنشر مايو 28, 2009 قام بنشر مايو 28, 2009 السلام عليكم ياجماعه اناعضو جديد فى هذا المنتدى الرائع انا عندى استفسار بسيط بس ماحدش يضحك على علشان انا جديد فى الاكسل السؤال احنا هنكتب الكود فين فى الاكسل ومعلش عندى سؤال تانى انا شايفه انه بسيط مع العقول اللى انا شايفها فى المنتدى ماشاء الله اناعندى ثلاثه جداول فى worksheets مختلفه عايز اجمعهم كلهم فى صفحه واحده يعنى لو اعتبرنا ان الثلاثه شيتات هما ا و ب و ج عايز اجمع ا و ب و ج بيحيث تعطينى مجموعهم فى صفحه واحده مع اعتبار تحديث البيانات بينهم تلقائيا وشكرا لكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.