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

كنترول شيت ابتدائي ..دور اول وثاني ..اصدار2

عبدالباري البنا
 مشاركة

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

  • الردود 61
  • Created
  • اخر رد

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

ياسر خليل أبو البراء
ياسر خليل أبو البراء

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

عبدالباري البنا
عبدالباري البنا

بسم الله الرحمن الرحيم كنترول شيت ابتدائي ..دور اول وثاني ..اصدار2 كلمة سر الدخول : 1111 كلمة سر محرر  الأكواد : 11223344 كلمة سر صفحة الصلاحيات :6666 كلمة سر تصفير الشيت: 6666 رابط التحميل ht

ياسر خليل أبو البراء
ياسر خليل أبو البراء

إنت مش ناسي إخوانك سواء الاعدادي أو الابتدائي .. كدا الجماعة بتوع الثانوي هيزعلوا تقبل تحياتي

Posted Images

عبدالباري البنا

عبدالباري البنا

قام بنشر
  • الكاتب
قام بنشر

.فالقائمة المنسدلة موجوده بالفعل فى الخلية المكتوب قيها اسم الفصل ( C10 ) اقتباس

نريدها تاتي اوتوماتك من صفحة ادخال البيانات

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

حاضر .....جارى العمل على هذا التعديل

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

عبدالباري البنا

قام بنشر
  • الكاتب
قام بنشر

انا اعمل بمدرسة ثانوى عام وطبعا زعلان عشان نسيت الثانوى العام على راى الأستاذ/ ياسر خليل تقبل تحياتى وفى انتظار كنترول الثانوى العام

اخى العزيز .... راجع هذا الرابط وفية شيت للصف الاول والثانى الثانوى

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

http://www.officena.net/ib/index.php?showtopic=58452#entry372886

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

قصي

قام بنشر
قام بنشر

الاستاذ الكريم عبد الباري

هيا بنا نبحر في عملك القوي ليكون درسا للمهتمين بهذا المجال وليكون لك ولنا ان شاء الله عمل صالح ينتفع به

في صفحة بيانات اساسيه وجدنا الكتابة بالخط البارز كيف تم ذلك

 

في صفحة الشيت الورقي يوجد زر سحري اسمه تحديث

وكوده الاتي


On Error GoTo kh_Err
تصفير_محدد
kh_Application False

'=============================================
kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$k$2:$L$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$p$2:$t$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$x$2:$y$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ac$2:$ag$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ak$2:$al$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ap$2:$at$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ay$2:$ba$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bf$2:$bk$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bo$2:$bp$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bt$2:$bx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ca$2:$cb$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ce$2:$ci$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cl$2:$cm$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cp$2:$ct$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cw$2:$cx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$da$2:$de$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dh$2:$di$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dl$2:$dr$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dv$2:$dw$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ea$2:$ek$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$em$2:$em$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$eo$2:$ew$2"), 7, ورقة8.Range("b1")
'=============================================

kh_Err:
kh_Application True

If Err Then
    MsgBox "Err.Number : " & Err.Number
    Err.Clear
'    Else: MsgBox " تم نسخ المعادلات بنجاح", vbMsgBoxRight, "الحمدلله"
End If
End Sub

' MyRng   : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة
' iRow    : اول صف للبيانات
' Lastrow : آخر صف للبيانات

Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long)
Dim Col As Range
Dim R As Long
'========================
For Each Col In MyRng.Cells
    If Col.HasFormula Then
        For R = iRow To Lastrow
            With MyRng.Worksheet
                .Cells(R, Col.Column).FormulaR1C1 = Col.FormulaR1C1
                .Cells(R, Col.Column).Value = .Cells(R, Col.Column)
            End With
        Next R
    End If
Next
'========================
Set Col = Nothing
End Sub

Sub kh_Application(ibol As Boolean)
With Application
    .ScreenUpdating = ibol
    .Calculation = IIf(ibol, -4105, -4135)
    .EnableEvents = ibol
End With
End Sub

نرجو شرحه بارك الله فيك وجغل هذا العمل من باب علم ينتفع به

رابط هذا التعليق
شارك
الفرماوى

الفرماوى

قام بنشر
قام بنشر (معدل)

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

تم تعديل بواسطه الفرماوى
رابط هذا التعليق
شارك
قصي

قصي

قام بنشر
قام بنشر

الاخ الكريم استاذ عبد الباري

مرفق ملف يحدد عدد الصفوف المطلوبه بالضبط للعلامة باقشير

ضفه في ملفك ليزداد قوة على قوته باذن الله

 

نكتب عدد الطلاب ثم نضغط زر فيظهر هذا العدد من الصفوف فقط

 

KH_COPY.rar

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

قصي

قام بنشر
قام بنشر

الاستاذ الفرماوي

بعد التحيه

من حقك تطلب مثل هذا العمل لانه قوي وصاحبه يبتغي وجه الله بدليل انه يرد على كل استفسار

ولكن

اطلب طلبك في موضوع منفصل رجاء حتى لاتتداخل المشاركات

رابط هذا التعليق
شارك
الفرماوى

الفرماوى

قام بنشر
قام بنشر

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

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

mhrrd

قام بنشر
قام بنشر

برنامج قوي

معادلة من ملك المعادلات استاذ جمال عبد السميع

بخصوص اسماء الفصول توماتيكي

=INDEX($C$5:$C$40, MATCH(0, IF(MAX(NOT(COUNTIF($H$4:H12,$C$5:$C$40))*(COUNTIF($C$5:$C$40, ">"&$C$5:$C$40)+1))=(COUNTIF($C$5:$C$40, ">"&$C$5:$C$40)+1), 0, 1), 0))

غشان نريد البرنامج اقوى برنامج في البلد

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

عبدالباري البنا

قام بنشر
  • الكاتب
قام بنشر

الاستاذ الكريم عبد الباري

هيا بنا نبحر في عملك القوي ليكون درسا للمهتمين بهذا المجال وليكون لك ولنا ان شاء الله عمل صالح ينتفع به

في صفحة بيانات اساسيه وجدنا الكتابة بالخط البارز كيف تم ذلك

 

في صفحة الشيت الورقي يوجد زر سحري اسمه تحديث

وكوده الاتي


On Error GoTo kh_Err
تصفير_محدد
kh_Application False

'=============================================
kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$k$2:$L$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$p$2:$t$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$x$2:$y$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ac$2:$ag$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ak$2:$al$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ap$2:$at$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ay$2:$ba$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bf$2:$bk$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bo$2:$bp$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bt$2:$bx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ca$2:$cb$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ce$2:$ci$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cl$2:$cm$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cp$2:$ct$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cw$2:$cx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$da$2:$de$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dh$2:$di$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dl$2:$dr$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dv$2:$dw$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ea$2:$ek$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$em$2:$em$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$eo$2:$ew$2"), 7, ورقة8.Range("b1")
'=============================================

kh_Err:
kh_Application True

If Err Then
    MsgBox "Err.Number : " & Err.Number
    Err.Clear
'    Else: MsgBox " تم نسخ المعادلات بنجاح", vbMsgBoxRight, "الحمدلله"
End If
End Sub

' MyRng   : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة
' iRow    : اول صف للبيانات
' Lastrow : آخر صف للبيانات

Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long)
Dim Col As Range
Dim R As Long
'========================
For Each Col In MyRng.Cells
    If Col.HasFormula Then
        For R = iRow To Lastrow
            With MyRng.Worksheet
                .Cells(R, Col.Column).FormulaR1C1 = Col.FormulaR1C1
                .Cells(R, Col.Column).Value = .Cells(R, Col.Column)
            End With
        Next R
    End If
Next
'========================
Set Col = Nothing
End Sub

Sub kh_Application(ibol As Boolean)
With Application
    .ScreenUpdating = ibol
    .Calculation = IIf(ibol, -4105, -4135)
    .EnableEvents = ibol
End With
End Sub

نرجو شرحه بارك الله فيك وجغل هذا العمل من باب علم ينتفع به

اخى الحبيب قصى

هذا الكود .... مسئول عن نسخ المعادلات الموجوده فى الصف الثانى ذو اللون الاسود وتطبيقها على باقى الشيت ابتداء من الصف السابع

واذا اردت شرحا وافيا ....حاضر من عينيا

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

عبدالباري البنا

قام بنشر
  • الكاتب
قام بنشر

 

استاذ عبد الباري عايز افهم هذا الامر من الكود

kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1")

اخى الحبيب 

الصف الثانى ذو اللون الاسود كما فى الصوره

موجود به معادلات الصفحة كامله.... وهذا الامر مسئول عن نسخ المعادلات الموجوده فى المدى (c2:g2)

وتطبيق المعادلات على باقى الشيت ابتداء من الصف السابع اول صف للبيانات

بمعيه عدد الطلبه الموجدود فى الخليه b1

nV5ZNG.jpg

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

mhrrd

قام بنشر
قام بنشر

تسلم عيونك ويبارك فيك ربنا
 استاذ عبد الباري

لي سؤال

هل من الممكن نجعل المعادلات الكثيره الخاصة بالنسخ الموجوده بالصف الثاني

تكون امر واحد ياخد الصف باكمله او من اول خليه الى اخر خليه مره واحده

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

قصي

قام بنشر
قام بنشر

 

الاستاذ الكريم عبد الباري

هيا بنا نبحر في عملك القوي ليكون درسا للمهتمين بهذا المجال وليكون لك ولنا ان شاء الله عمل صالح ينتفع به

في صفحة بيانات اساسيه وجدنا الكتابة بالخط البارز كيف تم ذلك

 

في صفحة الشيت الورقي يوجد زر سحري اسمه تحديث

وكوده الاتي


On Error GoTo kh_Err
تصفير_محدد
kh_Application False

'=============================================
kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$k$2:$L$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$p$2:$t$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$x$2:$y$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ac$2:$ag$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ak$2:$al$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ap$2:$at$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ay$2:$ba$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bf$2:$bk$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bo$2:$bp$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bt$2:$bx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ca$2:$cb$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ce$2:$ci$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cl$2:$cm$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cp$2:$ct$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cw$2:$cx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$da$2:$de$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dh$2:$di$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dl$2:$dr$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dv$2:$dw$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ea$2:$ek$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$em$2:$em$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$eo$2:$ew$2"), 7, ورقة8.Range("b1")
'=============================================

kh_Err:
kh_Application True

If Err Then
    MsgBox "Err.Number : " & Err.Number
    Err.Clear
'    Else: MsgBox " تم نسخ المعادلات بنجاح", vbMsgBoxRight, "الحمدلله"
End If
End Sub

' MyRng   : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة
' iRow    : اول صف للبيانات
' Lastrow : آخر صف للبيانات

Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long)
Dim Col As Range
Dim R As Long
'========================
For Each Col In MyRng.Cells
    If Col.HasFormula Then
        For R = iRow To Lastrow
            With MyRng.Worksheet
                .Cells(R, Col.Column).FormulaR1C1 = Col.FormulaR1C1
                .Cells(R, Col.Column).Value = .Cells(R, Col.Column)
            End With
        Next R
    End If
Next
'========================
Set Col = Nothing
End Sub

Sub kh_Application(ibol As Boolean)
With Application
    .ScreenUpdating = ibol
    .Calculation = IIf(ibol, -4105, -4135)
    .EnableEvents = ibol
End With
End Sub

نرجو شرحه بارك الله فيك وجغل هذا العمل من باب علم ينتفع به

اخى الحبيب قصى

هذا الكود .... مسئول عن نسخ المعادلات الموجوده فى الصف الثانى ذو اللون الاسود وتطبيقها على باقى الشيت ابتداء من الصف السابع

واذا اردت شرحا وافيا ....حاضر من عينيا

 

تسلم عيونك تسلم عيونك ويبارك فيك ربنا يارب

يجزيك الخير يا استاذ عبد الباري

كرما منك اشرح هذا الكود كاملا

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

قصي

قام بنشر
قام بنشر (معدل)

من ملك المعادلات استاذ جمال عبد السميع الى العبقري استاذ عبد الباري

قد يفيد هذا الموضوع

إليك أخى المطلوب  وفقا لأوفيس 2003

وأوفيس 2007

تقبل تحياتى

ملفات مرفقة

تم تعديل بواسطه قصي
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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


×
×
  • اضف...

Important Information

  I accept