طلب نسخ شيتات و تسميتها من نطاق معين

[عزيز عرابي]

الأخوة الأكارم

 

السلام عليكم و رحمة الله و بركاته ,,,

 

لدي ملف أصممه ليكون برنامج لعلامات طلاب في صف معين

 

لدي اسماء مواد في النطاق E10:E29 في الصفحة Data Base

 

اريد نسخ ورقة موجود في الملف و اسمها " المحصلة " بعدد مرات المواد المذكورة في النطاق E10:E29 الموجود في الورقة Data Base ( بمعني اذا كان هناك 14 مادة يتم نسخ الورقة التي اسمها المحصلة عدد 14 مرة فقط ) و يجب ان يتم تسمية الاوراق الجديدة المنسوخة عن ورقة المحصلة باسماء المواد المذكورة في النطاق E10:E29 

 

اضافة لذلك اتمنى مساعدتكم ايضاً بعد انجاز المطلوب ان يتم نسخ اسم كل ورقة جديدة منسوخة عن المحصلة الى محتوى الخلية K1 ( مثلاً ان يتم نسخ اسم الورقة " اللغة الانكليزية " إلى الخلية K1 )

 

شاكراً لكم حسن تجاوبكم و تعاونكم معي

 

أخوكم عزيز عرابي

برنامج سجل الصفوف.rar

تم تعديل أبريل 4, 2014 بواسطه عزيز عرابي

[وليد زقزوق]

الاخ

عزيز عرابي

اريد ان اعرف كيف جمعت نص مع معادله الجمع

وبالنسبه ل فكره البرنامج فهي جديده

[عزيز عرابي]

الأخ وليد زقزوق

 

بالنسبة لاستفسارك فإن كان قصدك هو " مجموع المواد : 15 " أو " مجموع العلامات : 5000 " فإنه بامكانك استخدام دالة الجمع بالاضاقة الى تنسيق الخلايا لتحديد النسق "مجموع العلامات \: General" في حقل مخصص

 

أرجو ان اكون قد أفدتك و بانتظار من يفيدني في طلبي

 

و دمتم

[عزيز عرابي]

الأخوة الأكارم ,,,

 

طلبي شبيه بالملف المرفق ( من ناحية انشاء ورقات عمل من نطاق معين ) و قد وجدته في المنتدى ,,, لكن للأسف لم استطيع أن افهمه و اعدله ليناسب احتياجاتي

 

الملف المرفق من تصميم الاستاذ طارق محمود

 

اتمنى المساعدة

 

و لكم الشكر

دليل المرتبات5 (1).rar

[عبدالله باقشير]

السلام عليكم

Sub kh_Start()
Dim cel As Range
Dim NamSheet As String
Application.ScreenUpdating = False
For Each cel In Range("E10:E29")
    NamSheet = Trim(cel)
    If Len(NamSheet) = 0 Then GoTo 1
    If IsError(Evaluate("'" & NamSheet & "'!A1")) Then
        Call kh_CopySheet(NamSheet)
    End If
1
Next
Application.ScreenUpdating = True
End Sub

Sub kh_CopySheet(iName As String)
Sheets("المحصلة").Copy After:=Sheets(Sheets.Count)
With Cells.Worksheet
    .Name = iName
    .[k1] = iName
End With
End Sub

 

شاهد المرفق 2010

برنامج سجل الصفوف.rar

[عزيز عرابي]

استاذنا القدير عبد الله باقشير أشكرك من كل قلبي على مساعدتك الكريمة

 

بقيت لدي هذه المشكلة بانني اريد تصميم ورقة اسمها "السجل" لتكون بمثابة كشف علامات لكل طالبة (اسم الطالبة موجود في قائمة منسدلة في الخلية B2 يتم تغيير الاسم من خلال هذه القائمة ) ,,, هذه الورقة ستكون موجودة قبل انشاء الورقات التي تمثل اسماء المواد التي يتم انشائها بواسطة الكود kh-start .

 

المشكلة التي تواجهني هي حساب النتائج من بقية الورقات التي تمثل نتائج المواد .

 

في محاولة بائسة قمت باستخدام الدالة Vlookup لكن قيم الخلايا تحولت إلى #REF! بسبب خطأ في اسم الورقة ( حيث انني اقوم بانشاء جميع ورقات المواد و من ثم اقوم بحساب النتائج في هذه الورقة التي اسمها "السجل" ثم اعادة مسح ورقات المواد )

 

هل هناك طريقة لحساب نتائج المواد في صفحة السجل للمواد ( علماً ان هذه المواد هي نفسها المكتوبة في صفحة Data Base في النطاق F10:F29 )

 

مرفق الملف و به شرح اوضح

 

و لكم الشكر

___برنامج سجل الصف السابع - نسخة - نسخة - نسخة.rar

[أم عبد الله]

الأستاذ / عزيز عرابي

 

السلام عليكم ورحمة الله وبركاته

 

إليك الملف لعله المطلوب على حسب ما فهمت.

___برنامج سجل الصف السابع - نسخة - نسخة - نسخة.rar

[عزيز عرابي]

الأخت أم عبد الله المحترمة ,,,

 

أشكرك جداً على مساعدتكم

 

الحل لم يكن كافياً لأنه في حال حذف ورقات المواد بعد احتساب النتائج تتحول النتائج الى #REF!

 

و لكم الشكر

[عبدالله باقشير]

السلام عليكم

 

ضع هذه المعادلة في الخلية  B4

في ورقة السجل

=IFERROR(VLOOKUP($B$1;OFFSET(INDIRECT(ADDRESS(6;2;;;$A4));;;42;16);8;0);"")

واسحبها على الصفوف

[أم عبد الله]

الأستاذ / عزيز عرابي

 

السلام عليكم ورحمة الله وبركاته

 

إليك الملف بعد تطبيق الدالة الرائعة لأستاذنا الكبير علاّمة الوطن العربي / عبد الله باقشير جزاه الله خيراً وجعله الله في ميزان حسناته وزاده الله من فضله وعلمه.

___برنامج سجل الصف السابع1 - نسخة - نسخة - نسخة.rar

[عزيز عرابي]

أستاذنا العالم عبد الله باقشير ,,, أقل ما يمكن قوله أن حلولك أكثر من رائعة بارك الله بك و جزاك عنا كل خير

و إن أمكن أن تشرح لنا الصيغة

 

الأخت أم عبد الله أشكرك لمساعدتك لي و بارك الله فيكي و حزاكي عنا كل خير

 

شكراً جزيلاً لكم