zoom10 قام بنشر يونيو 17, 2013 قام بنشر يونيو 17, 2013 السلام عليكم . برفقه ملف إكسل به ورقتين الورقة الأولى فيها المواد والأسماء . وكل ما أريده هو عند إضافة مادة في الورقة الأولى تنضاف تلقائيا في الورقة الثانية ولكن بنفس التنسيق الموجود مسبق في الورقة الثانية وبنفس النسب والمجموع الشرح داخل الملف ويوضح أكثر إن شاء الله بارك الله في جهودكم . zxs.rar
طارق محمود قام بنشر يونيو 18, 2013 قام بنشر يونيو 18, 2013 السلام عليكم أخي العزيز تفضل الرفق zxs2.rar
zoom10 قام بنشر يونيو 18, 2013 الكاتب قام بنشر يونيو 18, 2013 ماشاء الله تبارك الله . زادك الله من علمه . وبارك الله فيك هناك بعض الملاحظات التي أتمنى أن يتسع صدرك لقرائتها وحلها حتى نصل إلى الحل الأمثل . قمت بمسح جميع المواد لأبدأ من جديد فإذا الجدول في الورقة الثانية يقوم بالإدراج تلقائيا حتى نهاية الورقة ؟؟ أيضا يوجد بعض الملاحظات مكتوبة على الورقة رقم 2 أتمنى قراءتها وحلها . أسأل الله العلي القدير أن يبارك في مالك وأولادك . zxs3.rar
طارق محمود قام بنشر يونيو 20, 2013 قام بنشر يونيو 20, 2013 السلام عليكم غيرت الكود تماما كالتالي Private Sub Worksheet_Activate() If IsEmpty(Sheet1.[c5]) Then MsgBox "لايوجد مواد للترحيل .... !!" & Chr(10) & "الورقة الأولي بها خطأ": Sheet1.Select: Exit Sub If IsEmpty(Sheet1.[b6]) Then MsgBox "لايوجد طلاب .... !!" & Chr(10) & "الورقة الأولي بها خطأ": Sheet1.Select: Exit Sub Application.ScreenUpdating = False ' حذف السابق [A9:B999].ClearContents With [C4:V100] .UnMerge .FillDown End With ' ترحيل المواد n1 = Sheet1.[B5].End(xlToRight).Column - 2 For x = 1 To n1 c = 1 + x * 2 Sheet3.Columns("A:B").Copy Cells(1, c) Cells(5, c).FormulaR1C1 = "=ورقة1!RC[-" & x - 1 & "]" Cells(9, c).FormulaR1C1 = "=ورقة1!R[-3]C[-" & Int((c - 2) / 2) & "]" Cells(9, c + 1).FormulaR1C1 = "=R6C[-1]*RC[-1]" Next ' ترحيل الطلاب With Sheet1 nr = .[b6].End(xlDown).Row .Range(.[b6], .Cells(nr, 1)).Copy [A9] End With nr = [b8].End(xlDown).Row Range([C9], Cells(nr, "W")).FillDown Application.ScreenUpdating = True End Sub ليوافق طلباتك وزودت أعمدة المواد حتي 10 مواد تفضل المرفق zxs4.rar
أبو عبد النور قام بنشر يونيو 20, 2013 قام بنشر يونيو 20, 2013 السلام عليكم، بعد إذن الاخ طارق، هذه طريقة أخرى لحل المشكلة بالمرفقات. zxs4_v002.rar
zoom10 قام بنشر يونيو 20, 2013 الكاتب قام بنشر يونيو 20, 2013 الله يبارك فيكم وفي جهودكم . ولا يحرمكم الأجر والثواب بالنسبة لعمود المجموع في الورقة رقم 2 هل هناك طريقة لإزاحته ناحية اليسار كلما أضفت مادة ويقوم بحساب مجموع النسب ؟؟؟؟ أتمنى من العباقرة إيجاد طريقة ليكتمل الحل . ولو أنني اثقلت عليكم بأسألتي بارك الله فيكم فسامحوني .
طارق محمود قام بنشر يونيو 20, 2013 قام بنشر يونيو 20, 2013 أخي العزيز أي تغيير في الورقة الأولي حتي 14 مادة وأي زيادة أو نقصان في المواد أو الطلاب سيتم تحديثها في الورقة الثانية تفضل المرفق zxs5.rar
emmsh قام بنشر يونيو 20, 2013 قام بنشر يونيو 20, 2013 بارك الله فيك بصراحة ابداع رائع ولى سؤال فى الشيت الذى يحتوى كثير من الدوال هل ترحل الدوال تلقائى طبقا لاول row
طارق محمود قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 السلام عليكم لى سؤال فى الشيت الذى يحتوى كثير من الدوال هل ترحل الدوال تلقائى طبقا لاول row الكود يعمل معادلات في اول صف وفي آخر الكود يتم عمل نسخ عن طريق خاصية Filldown لكافة المجال ثم حذف الأعمدة الفارغة
حمادة عمر قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 السلام عليكم الاستاذ القدير المهندس / طارق محمود بارك الله فيك دائما في عون الجميع بابداعاتك جعله الله في ميزان حسناتك جزاك الله خيرا
أبو عبد النور قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 السلام عليكم، نسخة جديدة من الملف بالمرفقات. أرجو ان يناسبك. zxs5_v002.rar
emmsh قام بنشر يونيو 23, 2013 قام بنشر يونيو 23, 2013 شكرا لك اخى الفاضل ولكن لم اتمكن من تطبيق الكود لترحيل الاسماء فارجو شرح الكود لتكتمل المعلومة واتمكن من تطبيقة متى اريد وشكرا للافادة
zoom10 قام بنشر يونيو 24, 2013 الكاتب قام بنشر يونيو 24, 2013 آسف على تأخري في الرد أكرر شكري وتقديري لكل من ساهم معي في حل هذه المسألة وأخص بالشكر استاذي الفاضل طارق محمود والأخ الكريم أبو عبدالنور . أسأل الله العلي القدير أن يجزيكم الجنة ويبارك لكم في رزقكم ويبلغكم رمضان وأنتم في أكمل صحة وعافية .
zoom10 قام بنشر يونيو 25, 2013 الكاتب قام بنشر يونيو 25, 2013 أتمنى أن الموضوع لم يقفل بعد بدأت في تطبيق ما قمتوا مشكورين في حله على مشروعي وواجهتني بعض المشاكل . ويعلم الله أني حاولت بأن أغيير في الكود ولكن لم أستطع : الصورة توضح المشكلة قمت بإضافة عامودين وعشرة صفوف ولكن لم تستطع الورقة الثانية قبول ذلك . فما الحل بارك الله فيكم ؟
أبو عبد النور قام بنشر يونيو 25, 2013 قام بنشر يونيو 25, 2013 السلام عليكم، قم بارفاق مثال عن ذلك حتى يتسنى للاعضاء التجريب عليه.
zoom10 قام بنشر يونيو 26, 2013 الكاتب قام بنشر يونيو 26, 2013 شكرا لردك يا أبو عبدالنور بالنسبة للمثال فهو الذي قمتوا بالتعديل عليه . عموما هذه هي : أيضا هناك مشكلة وهي النسب لما أقوم بتغييرها لأن لكل مادة نسبة معينة فعند تغييرها ثم إضافة مادة جديدة تعود جميعها نفس النسب السابقة 4.76 zxs5.rar zxs5_v002.rar
أبو عبد النور قام بنشر يونيو 27, 2013 قام بنشر يونيو 27, 2013 السلام عليكم، في الملفات المرفقة لا يوجد في الورقة 2 ما أشرت اليه بالصورة في الرد رقم 15
zoom10 قام بنشر يونيو 27, 2013 الكاتب قام بنشر يونيو 27, 2013 الله ينور عليك يابو عبدالنور تفضل يا أخي الملف الخاص بي وليس به أي أكواد . zzz.rar
أبو عبد النور قام بنشر يونيو 28, 2013 قام بنشر يونيو 28, 2013 أيضا هناك مشكلة وهي النسب لما أقوم بتغييرها لأن لكل مادة نسبة معينة فعند تغييرها ثم إضافة مادة جديدة تعود جميعها نفس النسب السابقة 4.76 ومن اين تاتي بالنسب الخاصة بكل مادة ؟
zoom10 قام بنشر يونيو 28, 2013 الكاتب قام بنشر يونيو 28, 2013 بالنسبة للنسب بارك الله فيك أتمنى أن تكون أصفارا لكي أتمكن من وضعها بنفسي لأني لست من يحدد النسب .
طارق محمود قام بنشر يونيو 28, 2013 قام بنشر يونيو 28, 2013 بالنسبة للنسب بارك الله فيك أتمنى أن تكون أصفارا لكي أتمكن من وضعها بنفسي لأني لست من يحدد النسب . يوجد ورقة مخفية "ورقة3" بالملف يأخذ منها الكود النسخة حسب السطر المشار إليه فيما يلي … … … ' ترحيل المواد n1 = Sheet1.[B5].End(xlToRight).Column - 2 For x = 1 To n1 c = 1 + x * 2 Sheet3.Columns("A:B").Copy Cells(1, c) 'هذا السطر المقصود Cells(5, c).FormulaR1C1 = "=ورقة1!RC[-" & x - 1 & "]" Cells(9, c).FormulaR1C1 = "=ورقة1!R[-3]C[-" & Int((c - 2) / 2) & "]" Cells(9, c + 1).FormulaR1C1 = "=R6C[-1]*RC[-1]" Next … … … يمكنك إظهارهذه الورقة وغير النسب كما تريد ثم اخفيها مرة أخري
zoom10 قام بنشر يونيو 28, 2013 الكاتب قام بنشر يونيو 28, 2013 نفس المشكلة أخي طارق . لما أقوم بتغيير النسبة في الورقة رقم 3 إلى صفر وعند القيام بإعطاء كل مادة نسبتها وعند إضافة مادة تعود النسب جميعها إلى أصفار . لأن الكود يقوم بنسخ العامودين A+B ومن ثم يقوم بلصقهما وهو في الأصل يحمل القيمة صفر . وهذه بحد ذاتها مشكلة أنا أريد أن أضع لكل مادة نسبة !! أكرر اسفي على ازعاجكم كما أتمنى أن تصبروا علي وعلى أسألتي الكثيرة .
طارق محمود قام بنشر يونيو 28, 2013 قام بنشر يونيو 28, 2013 تفضل أخي المرفق به الحل تم إضافة جدول بالورقة 3 لنسب المواد تغير به كما تشاء ومنه تتغير النسب بالورقة الأخري zxs6.zip
zoom10 قام بنشر يونيو 29, 2013 الكاتب قام بنشر يونيو 29, 2013 بارك الله فيك أخي طارق . معنى كلامك بأنني سأقوم بكتابة جميع المواد ونسبها في الجدول المعمول في الورقة رقم 3 . ماشي لكن هل جربت بأن تضيف مادة جديدة وتضع لها نسبة ؟؟؟!! لاحظ عندما أضفت مادة التفسير :
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.