اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

[موضوع مميز]شرح عمل شيت كنترول ( درة أعمال العلامة عبد الله باقشير)[مثبت]


الردود الموصى بها

لجان كنترول مدرسي

باضافه كتابه عدد اللجان المطلوبه فقط

يتم كتابه ارقام اللجان على جميع الطلبه

واضافه خاصيه ان تكون القائمه متساويه

مع عدد اللجنه ( اخفاء الصفوف الفارغه في اللجنه )

 

لجان كنترول مدرسي.rar

===========

بالمصفوفات

رابط هذا التعليق
شارك

توزيع اللجان المدرسيه بالطباعه

لجان كنترول مدرسي.rar

Sub طباعة_الكشوف()
'طباعه كشوف اللجان دفعه واحده
'للمحترم احمد كامل
'====
  Range("F1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 2
Legan_Test
ActiveWindow.SelectedSheets.PrintOut
Loop While ActiveCell.Value <= Range("E1").Value
Range("b1").Select
End Sub

=====

 

Like
  •  

 

رابط هذا التعليق
شارك

  • 3 weeks later...

كود للفرز بمعيارين

ولكن به اضافه مفيده

وهي ازاله المسافات من بين الاسماء

مما تعطي فرزا دقيقا

للمحترم الغالي ياسر العربي

    Dim lr As Long
    lr = Range("E" & Rows.Count).End(xlUp).Row
    For Each Cell In ActiveSheet.Range("E7:E" & lr)
        Cell.Value = Application.WorksheetFunction.Trim(Cell.Value)
    Next
    Range("B7:S" & lr).Sort Key1:=Range("F7:F" & lr), Order1:=2, Key2:=Range("E7:E" & lr), Order2:=1, Header:=xlNo
End Sub
رابط هذا التعليق
شارك

 

بسم الله الرحمن الرحيم

احبابنا في الله

هذا كود خاص باستدعاء بيانات صفحه كامله الى صفحه اخرى مثلها في رؤوس العناوين ولكن بشرط - ( تصفيه بيانات ) -

وهو خاص للمحترم الذي اكن له كل تقدير واحترام

الاستاذ زيزو العجوز

'================
Sub Trans_Data()

'الكود خاص بالمحترم زيزو العجوز
'يحفظه الله
'تم هذا الكود في 15/11/2017
'الهدف من الكود هو استدعاء صفحة كامله بشرط
'================
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


'الاعلان عن اسماء الشيتات'
Dim Main As Worksheet, sh As Worksheet

'  الاعلان عن المصفوفتين
Dim Arr As Variant, Temp As Variant

'(i,j)الاعلان عن ابعاد المصفوفة الاولى ( p  ) وعداد المصفوفة الثانية
Dim i As Long, j As Long, p As Long

' الاعلان عن المتغير الذى سوف يتم العمل عليه
Dim dep As String

Set Main = Sheets("المصدر")
Set sh = Sheets("الهدف")
'=======
'  محو البانات القديمة
sh.Range("A7:CX" & Main.Range("B" & Rows.Count).End(xlUp).Row).ClearContents

'    معيار الاختيار
dep = sh.Range("C1").Value

 '     المصفوفة المصدر
Arr = Main.Range("A7:CX" & Main.Range("B" & Rows.Count).End(xlUp).Row).Value

'     ابعاد المصفوفة الهدف
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))

 '     طول المصفوفة المصدر
For i = 1 To UBound(Arr, 1)

 'رقم عمود الشرط
If Arr(i, 101) Like "*" & dep & "*" Then

'If Arr(i, 101) = dep Then
 '    العداد لتحديد طول المصفوفة الهدف
p = p + 1

 '     عرض المصفوفة الهدف
For j = 1 To UBound(Arr, 2)

'  تعبئة المصفوفة الهدف من المصفوفة المصدر حسب الشرط
Temp(p, j) = Arr(i, j)

Next
End If
Next

 '  خليه البدايه لصفحه الهدف
 'عرض البيانات المطلوبة
If p > 0 Then sh.Range("A7").Resize(p, UBound(Temp, 2)).Value = Temp

       sh.Range("A7:CX" & Rows.Count).Borders.Value = 0
        
        'سطر لاضافة التسطير
       sh.Range("A7:CX" & Cells(Rows.Count, 2).End(xlUp).Row).Borders _
       .Weight = xlMedium
        
     ' .Weight = xlThin
     ' .Weight = xlMedium
     ' .Weight = xlThick

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub

 

==========

 

استدعاء صفحة بشرط.rar

***************************

 

  • Like 1
رابط هذا التعليق
شارك

  • 11 months later...

============

برنامج asc وجميع شروحاته في مدونة أبو يوسف تفضل الرابط

https://gadwlabuyosef.blogspot.com/

======================

http://www.mediafire.com/file/43uoraln194jmbd/roz.zip
رابط جديد لنفس البرنامج  حفظ الله اخي الكريم ظفر الله عسكر

======================

منقول للفائده عن المحترم ظفر الله عسكر

رابط ملف يساعد في الاسناد
http://www.alshref.com/vb/attachment...2&d=1403534037

شروح aScTimeTables باللغة العربيّة هنا
http://www.mediafire.com/download/or...9%88%D8%AD.zip
رابط شرح من موقع الشركه
http://help.asctimetables.com/index.php?lang_id=12
اللهم ارحم واغفرواشفي عسكر وألهمه عملا ترضى عنه وعليه وارزقه حسن الخاتمة
 

=============

ttp://www.mediafire.com/file/43uoraln194jmbd/roz.zip
رابط جديد للجدول  حفظ الله اخي الكريم ظفر الله عسكر

هذا هو دواء البرنامج

k_r_a.zip

لينك اضافي في حالة ان اللينك الاصلي لم يعمل
https://1drv.ms/u/s!AnxsE5oa1nIdhBbG9pnrgMoVE3T7
برنامج متكامل لعمل الجدول المدرسي اليكترونيا بعيدا عن كل التعقيدات

منقول من الاستاذ

ابراهيم محمود مرسي

جزاه الله كل خير

================

https://www.facebook.com/ebrahiem.moursy

رابط هذا التعليق
شارك

  • 1 month later...
  • 10 months later...

أحبتى فى الله
السلام عليكم ورحمة الله وبركاته
==== عاجــــــل ====== روابط التحميل فى نهاية المنشور
تم بحمد الله تعالى ، الاستقرار على النسخة النهائية
لبرنامج كنوز للكنترول المدرسى وشئون الطلبة ـ
الاصدار الخامس 2020
حيث لم يردنى أى ملاحظات كثيرة على النسخة التجريبية التى تم نشرها فى 25/11 سوى 4 ملاحظات خفيفة تتعلق بحماية بعض الأوراق وما شابه ذلك والحمد لله تعالى تم التعديل عليها
=============

الروابط
الصفين الأول والثانى الابتدائى 1 / 11 / 2019
https://up.top4top.net/downloadf-13991rosc1-rar.html

الصف الثالث الابتدائى 1 / 11 / 2019
https://up.top4top.net/downloadf-1399nx4oo1-rar.html

الصفوف الرابع للسادس الابتدائى 1 / 11 / 2019
https://up.top4top.net/downloadf-1398a7qt33-rar.html

منقول للفائدة

رابط هذا التعليق
شارك

روابط اخرى لنقس الاصدار ونفس البرنامج

==

الصففين الاول والثاني

https://up.top4top.net/downloadf-1400luo3b1-rar.html

==

الصف الثالث

https://up.top4top.net/downloadf-1400xi7ad1-rar.html

==

الصفوف الرابع والخامس والسادس

https://up.top4top.net/downloadf-1400f50c81-rar.html

==

روابط فيديوهات برنامج كنوز 2020 على قناة أكاديمية الصقر للتدريب.

https://up.top4top.net/downloadf-1400wr7ze1-rar.html

الروابط

الصف الأول الاعدادى 3 / 11 / 2019
https://up.top4top.net/downloadf-1401n8d2n1-rar.html

الصف الثانى الاعدادى 3 / 11 / 2019
https://up.top4top.net/downloadf-1401rrlbx2-rar.html

رابط هذا التعليق
شارك

  • 2 weeks later...
  • 3 years later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information