blackhorse123 قام بنشر مايو 28, 2009 قام بنشر مايو 28, 2009 معلش ياجماعه سؤال تانى لو انا عندى العمود a هكتب فيه الاصناف بتاعت الشركه عايز فى العمود b تظهر لى اسعار الاصناف اوتوماتيك يعنى على سبيل المثال لو انا كتبت فى العمود a صنف وليكن مثلا ثلاجه 12 قدم عايز فى العمود b تطلعلى سعرها وهو مثلا 1430 بدون ما اكتبه انا بنفسى ولكم منى جزيل الشكر
احمدزمان قام بنشر مايو 28, 2009 قام بنشر مايو 28, 2009 اخي الفاضل blackhorse123 اهلا و مرحبا بك بين اخوانك ممحن تحط طلباتك في مواضيع جديدة كل طلب في موضوع وسوف تجد جميع اخوانك هنا يقدكون لك يد العون و بدون ضحك لأنه لاأحد مننا ولد متعلم
سمير نجار قام بنشر مايو 29, 2009 قام بنشر مايو 29, 2009 السلام عليكم ورحمة الله وبركاته السادة الكرام استاذي الكريم ابو اسامة كل الحب والتقدير لك وانا مبسوط كتير بمشاركتك الادخال لا يكون في خليتين معا !!اليس كذلك اما في A1 او B1 طبعا" استاذي لايكون الادخال في خليتين معا" انما يكون تباعا". الفكرة المطلوبة هي أن تلغى عملية الجمع (a1+b1=) عند أول عملية جمع وتثبيت قيمة عملية الجمع الأولى فقط هل هذا ممكن أم لا ؟؟ وأنت يا استاذي الأعرف بالطريقة المناسب لذلك . وبالرجوع الى الطلب الاصلي لصاحب الموضوع adam13 نجد المطلوب نفسه وهو اننا عند ادخال ولاول مرة اي رقم في a1 فان تاريخ اليوم يظهر في b1 ويثبت هذا التاريخ حتى ولو غيرنا قيمة a1 الى صفر !!!! ( طبعا" لان المطلوب اذا كانت a1 صفر فان b1 "" واذا كانت اكبر من الصفر فان (today=) ) وفقك الله واياي والمسلمين لما يحبه ويرضاه السلام عليكم
سمير نجار قام بنشر مايو 30, 2009 قام بنشر مايو 30, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم ابو اسامة السادة الكرام بالانتظار
ابو اسامة العينبوسي قام بنشر مايو 30, 2009 قام بنشر مايو 30, 2009 السلام عليكم اذا عادت الخليه الى a1 صفر تعود قيمه B1 المعادله ام تبقى ثابته ؟ :signthankspin:
سمير نجار قام بنشر مايو 30, 2009 قام بنشر مايو 30, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم ابو اسامة بل تبقى ثابتة . المهم أن تعمل المعادلة لمرة واحدة عند ادخال قيمة في a1 و b1 ثم تلغى المعادلة سيدي الكربم الحقيقة انا افترضت كل هذه الفرضيات لكي اصل الى المطلوب وهو وبالرجوع الى الطلب الاصلي لصاحب الموضوع adam13 نجد المطلوب نفسه وهو اننا عند ادخال ولاول مرة اي رقم في a1 فان تاريخ اليوم يظهر في b1 ويثبت هذا التاريخ حتى ولو غيرنا قيمة a1 الى صفر !!!! ( طبعا" لان المطلوب اذا كانت a1 صفر فان b1 "" واذا كانت اكبر من الصفر فان (today=) ) ولك كل الشكر السلام عليكم
ابو اسامة العينبوسي قام بنشر مايو 30, 2009 قام بنشر مايو 30, 2009 السلام عليكم لان المطلوب اذا كانت a1 صفر فان b1 "" واذا كانت اكبر من الصفر فان (today=) ) لكن ملفه الصلى يقول عكس ذلك تماما اليك معادلته =IF(A1=0,TODAY()-1,"")
adam13 قام بنشر مايو 30, 2009 الكاتب قام بنشر مايو 30, 2009 السلام عليكم ورحمة الله وبركاتهاستاذي الكريم ابو اسامة بل تبقى ثابتة . المهم أن تعمل المعادلة لمرة واحدة عند ادخال قيمة في a1 و b1 ثم تلغى المعادلة سيدي الكربم الحقيقة انا افترضت كل هذه الفرضيات لكي اصل الى المطلوب وهو وبالرجوع الى الطلب الاصلي لصاحب الموضوع adam13 نجد المطلوب نفسه وهو اننا عند ادخال ولاول مرة اي رقم في a1 فان تاريخ اليوم يظهر في b1 ويثبت هذا التاريخ حتى ولو غيرنا قيمة a1 الى صفر !!!! ( طبعا" لان المطلوب اذا كانت a1 صفر فان b1 "" واذا كانت اكبر من الصفر فان (today=) ) ولك كل الشكر السلام عليكم وكأنك ياأخى تتكلم عن ما بداخلى ومنتظر مشاركة الاخوة الكرام
رضا الخشن قام بنشر مايو 30, 2009 قام بنشر مايو 30, 2009 (معدل) السلام عليكم أخي الكريم ما فهمته من سؤالك الذي إجتهد الأعضاء " مشكورين " في محاولة إفادتك بحله هو أنك تريد تثبيت نتيجة المعادلة أي وجود قيمة نتيجة المعادلة بدلا من صيغة المعادلة و ما يؤكد ذلك " بحسب ما فهمت " أنك تريد طريقة تستخدمها بدلاً من طريقة النسخ ثم اللصق المخصص و الحل أخي الكريم هو :- الوقوف على الخلية التي تحتوى على الصيغة ثم الضغط على مفتاح F2 ثم الضغط على مفتاح F9 ، ستتحول صيغة المعادلة إلى قيمة داخل الخلية على الفور دون الحاجة إلى خطوة النسخ و اللصق المخصص و كذلك دون الحاجة إلى أكواد أرجو أن أكون وفقت في الرد و السلام عليكم و رحمة الله رضا الخشن تم تعديل مايو 30, 2009 بواسطه رضا الخشن
adam13 قام بنشر مايو 30, 2009 الكاتب قام بنشر مايو 30, 2009 السلام عليكم أخي الكريم ما فهمته من سؤالك الذي إجتهد الأعضاء " مشكورين " في محاولة إفادتك بحله هو أنك تريد تثبيت نتيجة المعادلة أي وجود قيمة نتيجة المعادلة بدلا من صيغة المعادلة و ما يؤكد ذلك " بحسب ما فهمت " أنك تريد طريقة تستخدمها بدلاً من طريقة النسخ ثم اللصق المخصص و الحل أخي الكريم هو :- الوقوف على الخلية التي تحتوى على الصيغة ثم الضغط على مفتاح F2 ثم الضغط على مفتاح F9 ، ستتحول صيغة المعادلة إلى قيمة داخل الخلية على الفور دون الحاجة إلى خطوة النسخ و اللصق المخصص و كذلك دون الحاجة إلى أكواد أرجو أن أكون وفقت في الرد و السلام عليكم و رحمة الله رضا الخشن كلامك صحيح ياأخى ولكن الفكرة فى أيجاد حل للموضوع بطريقة ألية دون تدخل منى لأننى لو نسيت أن اقوم بذلك سوف أحصل على نتائج خطأ
سمير نجار قام بنشر مايو 31, 2009 قام بنشر مايو 31, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم ابو اسامة لم ادقق في كود adam13 من حيث () today أو 1-() today لانه ليس العنب المطلوب العنب المطلوب هو هو اننا عند ادخال ولاول مرة اي رقم في a1 فان تاريخ اليوم يظهر في b1 ويثبت هذا التاريخ حتى ولو غيرنا قيمة a1 الى صفر !!!! وكل الشكر لك استاذي اخي رضا بارك الله فيك على المشاركة وفكرتك ممتازة ومقبولة ولكن كما قال اخي adam (الفكرة فى أيجاد حل للموضوع بطريقة ألية دون تدخل ) وفقنا اللهم لما تحببه وترضاه السلام عليكم
سمير نجار قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم ابو اسامة السادة المشرفون الكرام نتتظر حلولكم ومشاركاتكم السلام عليكم
سمير نجار قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 السلام عليكم ورحمة الله وبركاته السادة الكرام هل وصلنا الى طريق مسدود ام ماذا ؟؟؟؟ :') :') السلام عليكم
ابو اسامة العينبوسي قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 السلام عليكم في وقت فراغي ساضع كل الاحتملات لما هو متوقع من سؤال و ان تختار المناسب
omar elhosseini قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 لسلام عليكم ورحمة الله وبركاتة بعد إذن اخى ابو اسامة شاهد المرفق اخى فقد يكون هو طلبك Test_1.rar
ياسر خليل أبو البراء قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 السلام عليكم أخ عمر الحسيني أبو تامر المبدع المتجدد دائماً بيني وبينك الموضوع دا كان قرب يخنقني ، حاسس إن الأعضاء بيدوروا في حلقة مفرغة ، كما لو كان الطريق مسدود بس على مين ؟؟ أبو تامر جاب الخلاصة ، تسلم الأيادي ربنا يبارك فيك ويزيدك من علمه ، ويجعل بكل حرف تكتبه حسنات وينفعك يوم القيامة إني أحبك في الله تلميذك عاشق الإكسيل
adam13 قام بنشر يونيو 2, 2009 الكاتب قام بنشر يونيو 2, 2009 مشكور ياأخى ابو تامر لكنى لم افهم الكود برجاء عمله على المرفق الذى به المعادلة
احمدزمان قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 استاذي الكبير و العلامة القدير / ابو تامر اولا وحشتنا جدا جدا جدا و حمدا لله على سلامتك نورت المنتدى اليوم جزاك الله كل خير وبارك فيك
omar elhosseini قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 (معدل) الاخ YasserKhalil شكرا لك اخى عاشق الاكسيل على كلمتك الجميلة والملهمة الاخ احمد يعقوب شكرا لك اخى احمد انتم وحشتونى اكثر الاخ adam13 شرح الكود ببساطة اخى : Private Sub Worksheet_Change(ByVal Target As Range) 1 If Target.Count > 1 Then Exit Sub 2 Application.EnableEvents = False 3 If Target.Text = "0" And Target.Offset(, 1) = "" And Target.Column = 1 Then 4 Target.Offset(, 1) = Date - 1 5 End If 6 Application.EnableEvents = True End Sub 1 - السطر الاول من الكود هو اجراء وقائى لعدم توقف الروتين عند مسح خليتين او اكثر معا 2 - السطر الثانى من الكود إيقاف تتابع الاحداث حتى لا يدخل التنغيذ فى دورة تكرارية لاتنتهى 3 - السطر الثالث من الكود هو سطر الشروط ( بداية حلقة الشروط ) ويحتو على ثلاثة شروط مجتمعة معا ولا يتم تنفيذ الكود اذا بطل احدهما ( وهو جوهر طلبك ) الشرط الاول : ان تحتوى خلية العمود الاول على القيمة ( صفر ) الشرط الثانى : ان لا تحتوى خلية العمود الثانى على اى شئ ( وهنا مربط الفرس حتى يعاد تحديث التاريخ مرة ثانية بعد المرة الاولى اثناء عملية اعادة الحساب الاتوماتيكية للأكسيل ) 4 - السطر الرابع من الكود عند تحقق الشروط السابقة يتم ادراج التاريخ مطروحا منه يوم واحد 5 - السطر الثالث من الكود لا يقوم بإى شئ هو ( نهاية حلقة الشروط ) 6 - السطر الثالث من الكود تشغيل تتابع الاحداث ( الذى تم ايقافة فى السطر الثانى ) تم تعديل يونيو 2, 2009 بواسطه أبو تامر
ياسر خليل أبو البراء قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 أخي ومعلمي أبو تامر جزاك الله خير الجزاء على هذا الشرح الوافي الكافي ويا حبذا لو أن كل الأعضاء عند كتابة الأكواد يقومون بمثل ما قمت به لو فعلوا ذلك سينبت في النهاية جيل جديد قادر على الإبداع ( لا نريد أن يتوقف الإبداع عند أفراد فقط بل نريد أن يمتد ليصل الإبداع إلى عقل كل عضو في هذا المنتدى الرائع ) :fff: تعجز الكلمات عن أن توفيك قدرك يا مبدع عاشق الإكسيل
سمير نجار قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيك استاذي الكريم ابو تامر وأخيرا" تدخل العباقرة في حل الموضوع 00 ويا حبذا لو أن كل الأعضاء عند كتابة الأكواد يقومون بمثل ما قمت به لو فعلوا ذلك سينبت في النهاية جيل جديد قادر على الإبداع ( لا نريد أن يتوقف الإبداع عند أفراد فقط بل نريد أن يمتد ليصل الإبداع إلى عقل كل عضو في هذا المنتدى الرائع ) اخي ياسر أؤيدك بكل كلمة قلتها وكل الشكر للجميع السلام عليكم
omar elhosseini قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 الاخ YasserKhalil شكرا لك اخى الاخ samnaj00 شكرا لك اخى المنتدى به الكثير من الاخوة الافاضل ولكن كل منهم يساعد حسب وقته وظروفة قكل منا له حياته والتزامته والله الموفق
محمدي عبد السميع قام بنشر يونيو 5, 2009 قام بنشر يونيو 5, 2009 بارك الله فيك ايها البطل ولاحرم المنتدى من العمالقة نشعر بنبض الحياه للمنتدى في وجود العمالقة امثالكم وامثال العملاق خبور وحتى لاننسى احد فالعمالقة كثر بالمنتدى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.