وائل احمد المصري

السلام عليك اخي ارفق مثال لايضاح المطلوب

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

الحمد لله ان وفقني في مساعدتك اخي وبارك الله فيكما اخوي على كلماتكما ودعاتكما التي اسال الله ان يقبلها منكما ويعود عليكما بمثلها واكثر تقبولوا مني ارق تحياتي اخوكم في الله ABC

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

اخي السلامعليكم ورحمة الله بالنسبة لموضوع تطبيق قاعدة If فقد قام الأخوة بالمطلوب على اكمل وجة بارك الله لهمواثابهم خيرا" ان شاء الله اما بالنسبةلطلبكالثانياوهوةتكبيرحجم الخط في الكومبوبوكس فاعلم يا اخي ان الكومبوبوكس التي استخدمتهاوالموجودةفي بار Forms لا يمكن تكبير حجم الخط فيها باي وضع كان على حسب معرفتي حيث انها ستاندر لكن كي تحل مشكلتك يمكن ان تستبدلها بالموجودة في بار control toolbox غير انك ستحتاج تعديل صغير بداخل هذا الكومبوبوكس كيما يعطيك قيمة معادة رقمية في صورة 1 وا 2 كما تريد في معادلاتك عموما اخي ارجو ان تطلع على مرفقك بعد تعديل الكمبوبوكس واعلامي بالنتيجةوفقك الله نهاية الخدمة.rar

بارك الله في كلماتك اخي اما بالنسبة للكود فهو موجود في sheet1 في حدث Private Sub Worksheet_SelectionChange(ByVal Target As Range) امالمشكلة التشغيل فضع مستوى الامان للمكرو في ادنى درجة ثم اغلق الاكسيل وافتحة مرة اخرى تحياتي اخي

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

اخي ارفق مثالك كي يستطيع الاخوة مساعدتك اما بالنسبة لسؤالك عن اللون فيمكنك ذلك من خلال conditional formatting وقد ارفقت مثالا لك عسى ان يكون هو مطلبك تحياتي Book111.rar

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

اخي تامر قم بمسح محتوى الخلية التي تحوي الرقم 10012 ثم اعد كتابة الرقم مرة اخرى ! لن تتمكن من الأضافة والامر يسري على اي خلية في العمود C وقام الأخ ابو عبدالله بتطبيق قاعدة التحقق من الصحة على هذا العمود بحيث لا يسمحبعدم التكرار والملف يعمل جيدا تحياتي

اخي العزيز اعتقد انك لا تحتاج لمعادلة sumif في ملفك اطلع على التعديل المرفق عسى ان يكون هو ماتريد تحياتي Book00.rar

انجزت واوفيت كنت على وشك الرد غير انك كنت للحل اسبق كعادتك تقبل تحياتي

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

اخي new4a لم تصل لي مشكلتك بالظبط ولكن لتوضيح الفكرة المدى متغير فاذا كنت تعمل على الملف الخاص بي فلن يكون هناك اي مشكلةفكل ماهوداخل المدى سيتم حسابة الا اذا قمت باضافة عنصر للمدى myRange تاركا خلية فارغة بينة وبين العنصر الذي قبلة اما اذا كنت طبقة الفكرة على ملف خاص بك فلاحظ معي انني قد حدد المدى myRange مطروح منة 1 كي استبعد اسم النطاق في ملف الاكسيل بالخلية G1 وقد جربت وقمت بسحب المدى حتى الصف 112 ولم اجد مشكلة تابعنياو ارفق المشكلة التي لديك تقبل تحياتي

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

المساعدة ايها الاخوة ...... ياخوان امكن وضع الناتج في الصفحة الثانية وليس بنفس الصفحة التي تحوي مجالات العملية الحسابية أخي الكريم تقبل مني هذا الايضاح البسيط لو ارفقت مثالك اصبح التطبيق اوضح واوقع اما بالنسبة لاظهار الناتج بالصفحة التالية فالمسالة بسيطة قم بوضح الاجراء من حدث التغيير بالصفحة الاولى الى الصفحة الثانية مع تغيير نقل المدى المسمى mysumif من الخلية K2 الى اي مكان تريداما عنشرح عمل الملف فقد قمت بتسمية 4 نطاقات هم على التوالي myCriteria وفية العنصر الذي سنقم بالجمع على اساسة والمدى myRange فية نطاق الاسماء التي ستعد , والمدى SumIfRange وفية القيم التي ستجمع والمدى الاخير mysumif وفية سيوضع قيمة المخرجات وبالتالي يمكن تغيير المدى كما تريد لاي مكان ولتطبيق الكود يمكن وضعة باي صفحة تريد في حدث تحديث الصفحة مثلا" ارجو ان اكون قد افدتك ولو بالقليل تقبل تحياتي في انتظار اي استفسار تحياتي.

اخي ابو عبد الله تلك شهادة اعتز بها منك وذلك مما تعلمنا منكم فتقبل اعزازي وتحياتي

أخي أرجو الا اكون تأخرت عليك اطلع على المرفق واطلعني بالنتيجة تحويل عمل الدالة sumif لكود2 vba.rar

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

اخي تقبل مشاركتي عسى ان تجد فيها مطلبك تحياتي تحويل عمل الدالة sumif لكود vba.rar

سامحني اخي لم اتابع طلبك حيث كنت مشغل جدا اما عن سؤالك فالكود كالتالي Workbooks.Open Filename:="c:\officena\MyData\abc.xls" والمرفق به المطلوب تقبل تحياتي البحث عن ملف في الهارديسك ثم فتح الملف .rar

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

اخي الحبيب لم تذكر نص الرسالة التي تظهر معك عموما المفروض ان تظهر لك رسالة found في حالة عدم وجود لبملف abc.xls في المسار c:\officena\MyData\ او عدم وجودة وفي تلك الحالة ستظهر رسالة not found جرب مرة اخرى وانظر هل وضعت الامان للماكرو low? تابعني بالنتيجة لك تحياتي

الحمد لله تقبل تحياتي

اخي انظر المرفق عسى ان تجد فية ضالتك الملف يبحث عن ملف في المسار الذي حددتة في طلبك كثابت لا يتغير والملف محل البحث وضعتة abc.xls حين يجدة تظهر رسالة Found والعكس Not Found والكود بالداخل مع الشرح تقبل تحياتي البحث عن ملف في الهارديسك .rar