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

**قصي** · فبراير 4, 2015

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

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

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

أ محمد عبد الصمد · فبراير 5, 2015

يا ريت ترفعه على موقع تانى علشان الموقع مش بيفتح معايا

عبدالباري البنا · فبراير 5, 2015

يا ريت ترفعه على موقع تانى علشان الموقع مش بيفتح معايا

الرابط الموجود فى المشاركة 21 يعمل بكفاءة

http://ge.tt/150Fxj92/v/1?c

جرب واعلمنى بالنتيجة

عبدالباري البنا · فبراير 5, 2015

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

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

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

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

**قصي** · فبراير 5, 2015

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

الرابط ممتاز

الفرماوى · فبراير 5, 2015

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

مصطفى كمال متولى · فبراير 5, 2015

تسلم ايدك .. جعله الله فى ميزان حسناتك

**ناصر سعيد** · فبراير 5, 2015

رائع قوي فعلا كيف يمكن تغيير اسم المستخدم والباسوورد

عبدالباري البنا · فبراير 5, 2015

رائع قوي فعلا كيف يمكن تغيير اسم المستخدم والباسوورد

تفضل اخى العزيز

عبدالباري البنا · فبراير 5, 2015

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

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

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

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

**قصي** · فبراير 6, 2015

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

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

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

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

وكوده الاتي


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

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

الفرماوى · فبراير 6, 2015

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

تم تعديل فبراير 6, 2015 بواسطه الفرماوى

**قصي** · فبراير 6, 2015

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

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

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

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

KH_COPY.rar

**قصي** · فبراير 6, 2015

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

بعد التحيه

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

ولكن

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

الفرماوى · فبراير 7, 2015

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

mhrrd · فبراير 7, 2015

برنامج قوي

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

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

=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))

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

mhrrd · فبراير 7, 2015

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

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

عبدالباري البنا · فبراير 7, 2015

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

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

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

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

وكوده الاتي


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

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

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

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

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

عبدالباري البنا · فبراير 7, 2015

استاذ عبد الباري عايز افهم هذا الامر من الكود
kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1")

اخى الحبيب

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

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

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

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

mhrrd · فبراير 7, 2015

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

لي سؤال

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

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

علي فاهم · فبراير 7, 2015

اسلوبك في الحوار استاذ عبد الباري راائع

حتى العمل متقن لكن خليك مع الاخوه الاساتذه ختى يخرج هذا العمل في قمة الاعمال

mhrrd · فبراير 8, 2015

للرفع حتى يستفيد منه اكثر عدد

**قصي** · فبراير 8, 2015

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

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

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

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

وكوده الاتي


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

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

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

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

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

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

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

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

**قصي** · فبراير 8, 2015

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

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

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

وأوفيس 2007

تقبل تحياتى

ملفات مرفقة

نقل البيانات بدون تكرار ومرتبة أبجديا OFFICE 2003.rar 7.21كيلو 1 عدد مرات التحميل
نقل البيانات بدون تكرار ومرتبة أبجديا OFFICE 2007.rar 6.99كيلو

تم تعديل فبراير 8, 2015 بواسطه قصي

سـامي 169 · فبراير 12, 2015

جزاك الله خيرا .... عمل رائع

تسجيل الدخول

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

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

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

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

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

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

Posted Images

Join the conversation

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

Important Information