• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


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





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

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



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

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





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

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





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




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




13-01-2018 08:32 مساء
مشاهدة مشاركة منفردة [4]
زيزو العجوز
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 52
الجنس : ذكر
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 492
الاعجاب : 83
 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
المشاركات : 368
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 240
الاعجاب : 91
 offline 
look/images/icons/i1.gif كشوف اللجان للمحترم زيزو
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1 »
الاستاذ المحترم زيزو العجوز
وعليكم السلام ورحمة الله وبركاته
فضلك الله بالجنه ان شاء الله ... وبعد:
الكود سريع ومتميز جزاكم الله خيرا .. ولكن لو اخفينا الصفوف الزياده ..عشان الطباعه
او ازلنا الصفوف الزياده هاتكون افضل ان شاء الله
يعني لو التسطير يتم بناء على قسمه عدد الطلاب الاجمالي على عدد اللجان +1
==
يوجد اربع بيانات مطلوب الاتيان بهم برمجيا وهم ريس شئون الطلبه واسمه
وكلمه المدير واسمه
يحفظك الخالق
 

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







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


 







الساعة الآن 04:20 مساء