اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



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





كشوف اللجان للمحترم زيزو

بسم الله الرحمن الرحيم هذا ملف به كود للمحترم زيزو العجوز .. يحفظه الله وحاولت ان اجعل الكود يعمل على هذا الملف ولم استط ..



12-01-2018 11:17 صباحا
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 422
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 433
الاعجاب : 162
 offline 
بسم الله الرحمن الرحيم
هذا ملف به كود للمحترم زيزو العجوز .. يحفظه الله





وحاولت ان اجعل الكود يعمل على هذا الملف ولم استطع . ارجو نضبيط الكود ليتناسب مع الملف
جزاكم الله خيرا

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  كشوف اللجان للمحترم زيزو.rar   تحميل rar مرات التحميل :(9)
الحجم :(40.514) KB







12-01-2018 09:38 مساء
مشاهدة مشاركة منفردة [1]
زيزو العجوز
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 93
الجنس : ذكر
يتابعهم : 0
يتابعونه : 9
قوة السمعة : 712
الاعجاب : 168
 offline 
look/images/icons/i1.gif كشوف اللجان للمحترم زيزو
السلام عليكم ورحمة الله
تفضل اخى الكريم

 
 
 
  كشوف اللجان.rar   تحميل rar مرات التحميل :(16)
الحجم :(47.975) KB


أثارت هذه المشاركة إعجاب: تاج الدين،




13-01-2018 12:40 صباحا
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 293
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 36
يتابعهم : 7
يتابعونه : 199
قوة السمعة : 2049
الاعجاب : 477
 offline 
look/images/icons/i1.gif كشوف اللجان للمحترم زيزو
أخى الكريم / زيزو العجوز
رائع دائما وحلول مميزة
بارك الله فيكم وزادكم علما
-------------------------
ولكن لو سمحت لى أتمنى شرح بالتفصيل لهذا  الكود حتى يتسنى للأخوة التطبيق بأنفسهم على ملفاتهم الخاصة
بدلا من طلبهم المتزايد عليكم  للتطبيق على ملفاتهم المختلفة
------------------------
تقبل تحياتى أخى الكريم

أثارت هذه المشاركة إعجاب: تاج الدين،




13-01-2018 05:54 صباحا
مشاهدة مشاركة منفردة [3]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 422
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 433
الاعجاب : 162
 offline 
look/images/icons/i1.gif كشوف اللجان للمحترم زيزو
الاستاذ المحترم زيزو العجوز
وعليكم السلام ورحمة الله وبركاته
فضلك الله بالجنه ان شاء الله ... وبعد:
الكود سريع ومتميز جزاكم الله خيرا .. ولكن لو اخفينا الصفوف الزياده ..عشان الطباعه
او ازلنا الصفوف الزياده هاتكون افضل ان شاء الله
يعني لو التسطير يتم بناء على قسمه عدد الطلاب الاجمالي على عدد اللجان +1
==
يوجد اربع بيانات مطلوب الاتيان بهم برمجيا وهم ريس شئون الطلبه واسمه
وكلمه المدير واسمه
يحفظك الخالق
 





13-01-2018 08:32 مساء
مشاهدة مشاركة منفردة [4]
زيزو العجوز
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 93
الجنس : ذكر
يتابعهم : 0
يتابعونه : 9
قوة السمعة : 712
الاعجاب : 168
 offline 
look/images/icons/i1.gif كشوف اللجان للمحترم زيزو
شرح الاكواد بناءا على طلب الاستاذ محمد
شرح الكود الاول :
Sub AddLists()
   ' رقم ثابت يمثل طول كل لجنة
Const S = 48
Dim Mn As Worksheet
Dim Dist As Worksheet
Dim List As Worksheet
Dim Arr As Variant
Dim Temp As Variant
Dim x As Integer, y As Integer, z As Integer
Dim LR As Long, n As Long, i As Long, j As Long, p As Long

Application.ScreenUpdating = False
Set Mn = Sheets("بيانات الطلبة")
Set List = Sheets("كشوف اللجان")
     ' ارقام اول لجنتين
List.Range("D4") = 1
List.Range("K4") = 2
On Error Resume Next
    ' ازالة اى لجان قديمة
List.Range("B50:N" & List.Range("D" & Rows.Count).End(xlUp).Row + 49).Clear
   ' الزالة بيانات اول لجنتين فى حالة امتلاؤهما ببيانات سابقة
List.Range("B9:N47").ClearContents
   ' قيمة اكبر لجنة
x = WorksheetFunction.Max(Mn.Range("R7:R" & Mn.Range("E" & Rows.Count).End(xlUp).Row))
    '   اختبارعدد اللجان فردية ام زوجية يطرح منها 1 فى حالة فردية
    '   ويطرح منها 2 فى حالة زوجية
If x Mod 2 = 1 Then
y = Int(x / 2) - 1
Else
y = Int(x / 2) - 2
End If
    ' تحديد آخر صف لآخر لجنة
z = y * S + 50
   ' شرط عدد اللجان اكثر من 2
If y > 1 Then
   '  نسخ اول لجنتين
List.Range("B2:N49").Copy
  '  تحديد بداية ونهاية لصق كل لجنة
For n = 50 To z Step 48
List.Range("B" & n).PasteSpecial xlPasteAll
    ' كتابة ارقام الجلوس للجان التاية بقيمة متزايدة 2 فى كل جهة
List.Range("D" & n + 2) = List.Range("D" & n - 46) + 2
List.Range("K" & n + 2) = List.Range("K" & n - 46) + 2

Next
End If
List.Range("B9").Select
Application.CutCopyMode = False


Application.ScreenUpdating = True

End Sub



شرح الكود الثانى :
Sub FillLists()
Dim Mn As Worksheet
Dim Dist As Worksheet
Dim List As Worksheet
Dim LR As Long, n As Long, i As Long, p As Long, q As Long
Dim x, y, z
Dim xx, yy, zz
Application.ScreenUpdating = False
Set Mn = Sheets("بيانات الطلبة")
Set List = Sheets("كشوف اللجان")
LR = Mn.Range("E" & Rows.Count).End(xlUp).Row
    ' تحديد بدايات ونهايات اللجان كل نجنة على حدة
For n = 4 To List.Range("D" & Rows.Count).End(xlUp).Row Step 48
    ' نطاق مصدر البيانات
For i = 7 To LR
    ' شرط اللجنة اليمنى
If Mn.Cells(i, "R") = List.Cells(n, "D") Then
p = p + 1
     ' نقل البيانات
List.Cells(p + n + 4, "C") = Mn.Cells(i, "B")
List.Cells(p + n + 4, "D") = Mn.Cells(i, "E")
List.Cells(p + n + 4, "E") = Mn.Cells(i, "O")
List.Cells(p + n + 4, "F") = Mn.Cells(i, "P")
List.Cells(p + n + 4, "B") = p

End If
Next
p = 0
For i = 7 To LR
    ' شرط اللجنة اليسرى
If Mn.Cells(i, "R") = List.Cells(n, "K") Then
q = q + 1
     ' نقل البيانات
List.Cells(q + n + 4, "I") = q
List.Cells(q + n + 4, "J") = Mn.Cells(i, "B")
List.Cells(q + n + 4, "K") = Mn.Cells(i, "E")
List.Cells(q + n + 4, "L") = Mn.Cells(i, "O")
List.Cells(q + n + 4, "M") = Mn.Cells(i, "P")

End If
Next
q = 0
Next
Application.ScreenUpdating = True
End Sub



هذا وبالله التوفيق
 





14-01-2018 04:25 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 422
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 433
الاعجاب : 162
 offline 
look/images/icons/i1.gif كشوف اللجان للمحترم زيزو
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1 »
الاستاذ المحترم زيزو العجوز
وعليكم السلام ورحمة الله وبركاته
فضلك الله بالجنه ان شاء الله ... وبعد:
الكود سريع ومتميز جزاكم الله خيرا .. ولكن لو اخفينا الصفوف الزياده ..عشان الطباعه
او ازلنا الصفوف الزياده هاتكون افضل ان شاء الله
يعني لو التسطير يتم بناء على قسمه عدد الطلاب الاجمالي على عدد اللجان +1
==
يوجد اربع بيانات مطلوب الاتيان بهم برمجيا وهم ريس شئون الطلبه واسمه
وكلمه المدير واسمه
يحفظك الخالق
 

يحفظك الله ويرعاك





11-02-2018 11:40 صباحا
مشاهدة مشاركة منفردة [6]
تاج الدين
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-02-2018
رقم العضوية : 4153
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 4-11-66
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif كشوف اللجان للمحترم زيزو
بارك  الله فيك  الأستاذ زيزو
 







الكلمات الدلالية
كشوف ، اللجان ، للمحترم ، زيزو ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.




الساعة الآن 03:43 مساء

أعلن هنا
أعلن هنا
أعلن هنا