فضل حسين قام بنشر سبتمبر 4, 2013 قام بنشر سبتمبر 4, 2013 (معدل) سلام الله عليكم ورحمته وبركاته الى خبراء واعضاء منتداى العزيز والعظيم مرفق الملف موضح به المطلوب (معادلتين عن طريق الكود لاختصار كم المعادلات الموجودة ) وجزاكم الله كل خير على كل ماتقدمونه من علم نافع . معادلتين بالكود.rar تم تعديل سبتمبر 4, 2013 بواسطه فضل 1
بن علية حاجي قام بنشر سبتمبر 4, 2013 قام بنشر سبتمبر 4, 2013 السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق لعلك تجد فيه ضالتك... أخوك بن علية الملف المرفق : معادلتين بالكود.rar
فضل حسين قام بنشر سبتمبر 4, 2013 الكاتب قام بنشر سبتمبر 4, 2013 (معدل) استاذى الكبير / بن علية سلام الله عليكم ورحمته وبركاته انا سعيد جدا بمرورك الكريم على المشاركة . بل انا تشرفت ياحبيبى واستاذى بن علية بهذه المشاركة ربنا يخليك لنا ياحبيبى ويباركلنا فيك ودعائى لك ولجميع الاسرة بالخير واليمن والبركات . حبيب قلبى / بن علية للاسف ليس هذا المطلوب ولكن المطلوب بالتحديد بالنسبة للمعادلة الموجودة تحت ( عدد مواد الرسوب ) والموجودة بالخلية (10 bv )والتى تستجلب او بتحصل على قيمتها من مجموع المعادلات التى تحت اسم المواد عربى و انجليزى وفرنساوى وعلم نفس والخ انا اريد بالتحديد ان اعمل لهذة الخلية وهى الخلية bv10 معادلة خاصة بها ولكن بالكود واستغنى و امسح واحذف باقى المعادلات التى تحت المواد عربى وانجليزى وغيره. اى اختصر المعادلة الموجودة فى الخلية bv10 والتى تعتمد على اكثر من معادلة بمعادلة واحدة فقط لاغير عن طريق معادلة بالكود وحذف باقى المعادلات الاخرى التى تحت المواد , وطلبتها بالكود لاننى لو طلبتها معادلة عادية سوف تكون المعادلة طويلة جدا وهكذا الحالة بالنسبة للمعادلة التى بجانبها وهى مواد لاتحسب ضمن الرسوب وعلى فكرة حلك او كودك اعتمد على المعادلات التى تحت المواد عربى وانجليزى وغيرها وهذا مالااريده لاننى سوف اقوم بحذفهم بعد عمل المعادلة التى بالكود , شكرا ياحبيبى وجزاك الله كل ونورتنا وشرفتنا بمشاركتك الجميلة مثلك تم تعديل سبتمبر 4, 2013 بواسطه فضل 1
بن علية حاجي قام بنشر سبتمبر 4, 2013 قام بنشر سبتمبر 4, 2013 السلام عليكم ورحمة الله أخي الكريم فضل، لم أفهم مقصودك اعتقدت أنك تريد استبدال إدخال المعادلات يدويا بإدخالهما بواسطة الكود... المهم حصل خير وقد قمت بالتعديل على الكود (تغييره جذريا) يقوم بالاستغناء على جزء كبير من المعادلات (إلا اثنتين لم أجد استعمالهما في المعادلتين المراد تغييرهما فتركتهما)... أرجو هذه المرة أني فهمت جيدا المطلوب وأني استوفت حقه... الكود يضع في الخلايا المناسبة نتائج المعادلات مما يجعل الملف يعمل بأكثر سرعة... والله أعلى وأعلم أخوك بن علية الملف المرفق : معادلتين بالكود_1.rar 2
فضل حسين قام بنشر سبتمبر 5, 2013 الكاتب قام بنشر سبتمبر 5, 2013 السلام عليكم ورحمة الله وبركاته استاذى الفاضل / بن علية هذا هو المطلوب فعلا وهذا مااريده . بارك الله فيك وجزاك الله كل خير وتسلم الايادى ياحبيبى ولكن ظهرت لى مشكلة اخرى من وجهة نظرى هى كبيرة لاننى اثناء العمل بحتاجها كثيرا والمشكلة هى عند تنفيذ كود سيادتكم الرائع مثلكم عندما اقوم بمسح اى رقم واحب ان استرجعه ب CTRL + Z لم يتم استرجاعة وهذة الخاصية هام لى جدا لاننى بستعملها كثيرا وبالذات مع هذا النوع من الشيتات . الملحوظة الاخرى عايز شرح بسيط ومختصر لهذا السطر من الكود ( C = Choose(X, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 58 فى النهاية انا شاكر لك ياحبيبى دائما تغمرنا بأعمالك الجميلة مثلك اجمل المنى وارق التهانى لشخصكم الكريم
بن علية حاجي قام بنشر سبتمبر 5, 2013 قام بنشر سبتمبر 5, 2013 السلام عليكم ورحمة الله أخي الكريم فضل، بالنسبة للمشكل الذي اعتبرته صعبا فهذا بإذن الله حله بسيط، يمكن تغيير الكود في حدث الورقة باستعمال الخاصية Worksheet_Calculate أو يمكن جعل تنفيذ الكود يدويا بوضعه في موديول Module وربطه بزر لتنفيذه يدويا... أما فيما يخص شرح السطر (C = Choose(X, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 58 فالأعداد المذكورة في هذه الصيغة تمثل أرقام أعمدة "المجموع" للمواد على الترتيب والتي تخصها العملية نفسها (عندما تكون "خلية عمود المجموع للمادة المختارة أصغر من قيمة الخلية من العمود نفسه من السطر 9 الثابت" أو كانت "قيمة خلية العمود الذي قبله -عمود آخر العام- أصغر من قيمة الخلية من العمود نفسه من السطر 9 أو كانت هذه الخلية تحوي حرف غ" تكون نتيجة الدالة IIF العدد 1 و 0 إذا كان غير ذلك)... والدالة CHOOSE بهذا الشكل تقوم باختيار رقم عمود المادة بالترتيب حسب قيمة X المتغير من 1 إلى 12... ثم نتائج الدالة IIF حسب المواد والشرط المذكور أعلاه يتم جمعها في متغير سمّي S والذي يُستعمل في نتيجة المعادلة في العمود BV حسب رقم الصف الذي يحدده المتغير I في الكود... أرجو أني وُفقت في الشرح.... أخوك بن علية
فضل حسين قام بنشر سبتمبر 6, 2013 الكاتب قام بنشر سبتمبر 6, 2013 استاذى الفاضل / بن علية جزاك الله كل خير وصلت الفكرة وبارك الله فيك تعلمنا من سيادتكم الكثير ومازلنا نتعلم ربنا يزيدكم علما ويجعل كل ماتقدمونه من علم نافع فى ميزان حسناتكم اكرر شكرى وامتنانى وتحياتى لسيادتكم فى رعاية الله وامنه سلام الله عليكم ورحمته وبركاته
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.