عزيز عرابي

أستاذ طارق جزاك الله كل الخير لتفاعلك معي أعرف ان الكود في الملف الذي ارسلته اصبح تنفيذه يتم بعد الضغط على الزر و ليس حدث تلقائي لكن لاحظ ان الكود يقوم باعادة حساب الاسطر التي يوجد فيها تاريخ ضمن العمود رقم 10 و لا يقوم باعادة الحساب في الاسطر التي لا تحتوي التاريخ في العمود رقم 10 يمكنك ملاحظة ذلك اذا قمت بتعديل تاريخ السطر الاول مثلاً من عام 2013 الى عام 2009 و بهذا يجب ان تتغير القيمة الآلية في العمود رقم 13 الى Auto Reject و لكن بعد تنفيذ الكود تبقى القيمة في العمود رقم 13 Auto Pending و لا تتغير الى Auto Reject حيث ان المطلوب هو ان يقوم الكود باعادة حساب جميع الاسطر باستثناء الاسطر التي تحتوي ضمن العمود رقم 10 على تاريخ ( او قيمة اكبر من الصفر ) بارك الله فيك

أستاذ طارق بارك الله فيك مشكور جداً لتفاعلك الرائع التجربة لم تنجح حيث انني لاحظت ان الكود يقوم باعادة حساب الاسطر التي يوجد فيها تاريخ ضمن العمود رقم 10 و لا يقوم باعادة الحساب في الاسطر التي لا تحتوي التاريخ في العمود رقم 10 اي ان الكود ينفذ عكس المطلوب منه ( استاذي يمكنك ملاحظة ذلك اذا قمت بتعديل تاريخ السطر الاول مثلاً من عام 2013 الى عام 2009 و بهذا يجب ان تتغير القيمة الآلية في العمود رقم 13 الى Auto Reject و لكن بعد تنفيذ الكود تبقى القيمة في العمود رقم 13 Auto Pending و لا تتغير الى Auto Reject ) حيث ان المطلوب هو ان يقوم الكود باعادة حساب جميع الاسطر باستثناء الاسطر التي تحتوي ضمن العمود رقم 10 على تاريخ ( او قيمة اكبر من الصفر ) جزاك الله كل الخير

بارك الله فيك أستاذ طارق و كتب الله مساعدتك لي في ميزان حسناتك تمت التجربة و بالفعل تمت بنجاح و الحمد لله لدي طلب آخر ان امكن بارك الله فيك و هو عدم تحديث القيمة في العمود رقم 13 ضمن السطر في حال كان العمود رقم 10 توجد فيه قيمة اكبر من الصفر ( يعني انني لا اريد تحديث القيمة في حال وجود تاريخ في العمود رقم 10 بمعنى آخر استثناء السطر من التحديث الذي يحتوي تاريخ في العمود رقم 10 ) و هل بالإمكان ان يتم وضع شرط لتنفيذ هذه السطور البرمجية فمثلاً ان يتم تنفيذ هذه الاوامر البرمجية حين وضع كلمة Update مثلاً في الخلية A1 بدلاً من تنفيذ الاوامر عند فتح الملف ؟؟؟ جزاك الله كل الخير و بارك الله فيك تحديث القيم.rar

الأخوة الأكارم السلام عليكم لدي الكود و الذي يقوم بتحديث القيم الموجودة في العمود رقم 13 ضمن ملف الاكسل و ذلك عند فتح الملف لكن يعاب على الكود عدم توقفه و يقوم باحتساب جميع قيم الخلايا في العمود 13 في الملف و الذي اريد مساعدتكم به هو تعديل الكود ليقوم بتحديث القيم في العمود رقم 13 فقط عندما تكون قيمة الخلية في العمود رقم 2 اكبر من الصفر و هل بالإمكان ان يتم وضع شرط لتنفيذ هذه السطور البرمجية فمثلاً ان يتم تنفيذ هذه الاوامر البرمجية حين وضع كلمة Update مثلاً في الخلية A1 بدلاً من تنفيذ الاوامر عند فتح الملف و بحيث يتم التنفيذ فقط في حال كانت قيمة الخلية في العمود 2 اكبر من الصفر اما الاسطر التي يكون فيها قيمة العمود رقم 2 تساوي الصفر لا يتم تنفيذ فيها هذه الاوامر البرمجية مع الشكر لكم و بارك الله فيكم

Up

Up

للرفع

مستغرب بصراحة هل المنتدى خالي من الخبراء أو انه خالي من اهل الخير عتبي كبير و على مستوى محبتي لكم

Up

ما شاء الله عليك أستاذ جمال

أخي الكريم ممكن تضيف سطر لفك حماية الورقة ضمن الكود نفسه ليتم السماح باجراء الاوامر الموجودة ضمن الكود و هذا السطر هو activesheet.unprotect و إن احبب زودنا بالكود لاضافة هذا السطر مع التوفيق

Up

الرجاء مساعدتي

أكثر من رائع جزاكم الله خيراً ابداع بكل ما تعنيه الكلمة

الأخ ريان بالنسبة لاخفاء المعادلات بالشكل اليدوي يتم على الشكل التالي : بالدخول علي الخلية الموجود بها المعادلة وعمل كليكة يمين ومن ثم إختيار : تنسيق (Format) > خلايا (Cells) > حماية (Protection) > إختيار مربعات الإختيار Locked و Hidden وننقر زر ok ثم من قائمة الأدوات نختار Protection ثم Protection Sheet ثم نكتب كلمة السر أما إذا أردت فك الحماية فقم بعمل التالي: ويتم فك الحماية من قائمة الأدوات > إلغاء حماية ورقة Unprotect Sheet حيث يتم السؤال عن كلمة السر أما الكود فهو التالي : Sub Hide() Selection.Select Selection.Locked = True Selection.FormulaHidden = True Sheets("الورقة1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

الخبراء و الأخوة الأكارم لدي ملف مرفق ( فيه تعليمات فيجوال ) توجد به قيم العمود K مكونة من قيم يدوية يتم اختيارها من القائمة المنسدلة و قيم آخرة آلية تعتمد على معادلة ضمن العمود CK المشكلة التي تواجهني ان القيم الآلية في العمود K لا تظهر آلياً الا بعد تحرير القيم في العمود M ( سواء بوضع قيمة او بمسح المحتوى ) يوجد شرح اكثر ضمن الملف المرفق الملف أكثر من رائع برأيي البسيط و لكن فيه افكار تعبت عليها ارجو مساعدتكم و لكم الشكر مشكلة عدم ظهور القيمة الآلية في العمود K.rar

أستاذنا الفاضل احمد بارك الله فيك

أستاذ احمد أكيد ان العتب على مستوى المحبة و عاتب لعدم التفاعل باستثناءك لم اكن لأجد الحل عموماً مشكورين جداً

السلام عليكم و رحمة الله و بركاته الاخ الفاضل الاستاذ / عزيز عفواً جزاك الله كل خير على مرورك الكريم وكلماتك الرقيقة بالنسبه لأسئلة حضرتك تجدها في المرفق على الرابط التالي بصوره اكبر http://www.officena.net/ib/index.php?showtopic=37693 و لأي طلب او استفسار تريده ان شاء الله سأكون مع حضرتك ما دمت استطيع .. و لا تتردد في اي استفسار و الله المستعان و السلام عليكم و رحمة الله و بركاته ربنا يحميك يا أستاذ احمد شكراً على ردك و جعلها الله في ميزان حسناتك شكرا مرة أخرى

مشكور استاذ احمد فضيله لكن لدي سؤال هل تكرمت و تفيدنا بكيفية عمل الاحصائية مثل آخر دخول للبرنامج و عدد مرات الدخول اليه في اليوم و إن امكن معرفة اكثر يوزر قام بفتح البرنامج و الوقت الاجمالي لاستخدامه و لكم كل المحبة عل مجهودكم الرائع

مشكور أخي احمد استفدت من الفكرة و الحمد لله مشكور مرة أخرى على الرغم من العتب الشديد على الاخوة الخبراء

بارك الله فيك أخي احمد الدالة موجودة ضمن العمود CK و هي =IF(CJ3>CI3;"متجاوز";"غير متجاوز") و بناء على نتيجة هذه المعادلة يقوم البرنامج آليا و بدون تدخل مني بوضع Auto Reject في حال كانت النتيجة "متجاوز" و وضع Auto Pending في حال كانت نتيجة المعادلة "غير متجاوز" اي سؤال انا جاهز بخصوص اي توضيح شكرا لك

هل من يساعدني في هذا الملف

شكراً لك استاذ احمد و بارك الله فيك لا تهمني الطريقة و لكن ما يهمني هو أن يقوم البرنامج بوضع الخيار الآلي بدون تدخل مني في العمود K اعتماداً على اختبار صلاحية الترويج حيث انه يمكنك ملاحظة وجود مدة صلاحية لنوع الخدمة الموجودة في العمود E و مع مرور ايام الصلاحية يجب ان يقوم البرنامج باختيار الخيار Auto Reject آلياً بدون تدخل مني فهل هذا ممكن ؟؟؟ ان العمود M هو عمود ليس له وظيفة الا زيادة مدة صلاحية الترويج فمثلاً لو كانت مدة صلاحية ترويج الخدمة ( المختارة في العمود E ) هو 7 ايام و أردنا ان نضيف 4 ايام صلاحية اضافية فإننا سنكتب في العمود M العدد 4 فهناك حاجة اننا لو كان الترويج لخدمة قد تجاوز ايام الصلاحية و كان الخيار Auto Reject في العمود K و أردنا ان نمدد هذه الصلاحية لمدة معينة و اصبحت مدة الترويج غير متجاوزة فيجب على البرنامج ان يحول الخيار Auto Reject إلى الخيار Auto Pending آلياً و بالعكس لو أننا تراجعنا عن المدة الاضافية التي وضعناها في العمود M فيجب على البرنامج ان يضع مرة أخرى الخيار Auto Reject في العمود K لأن مدة الترويج اصبحت متجاوزة و يكون هذا آلياً أي ان البرنامج يتحسس صلاحية الترويج آليا و يضع الخيار المناسب بدون تدخل إن أمكن ( ملاحظة : إن كان و لابد من وجود حدث يعتمد عليه البرنامج لوضع الخيار الآلي فهل يمكن وضع حدث عام موحد لكل الأسطر ) أنا حاولت جاهداً للوصول لحل في هذا المجال لكن المشكلة التي واجهتني هي لم اتمكن من وضع آلية أو حلقات If في البرمجية تستطيع وضع الشرط الآلي في كل مرة تتغير فيها صلاحية الترويج مرفق الملف الذي حاولت فيه و لكن وقفت عاجزاً عن اكماله آسف جداً على الاطالة و اتمنى ان اكون قد وضعت شرحاً واضحاً 18.rar

أكرر رجائي يا جماعة تساعدوني