أبن النيل

هل يوجد كنترول شيت للدور الثانى

للصف الأول الثانوى العام

لو موجود ياريت وربنا يجازيكو خير!!!!

السلام عليكم

الاخ /قصي--------------حفظه الله

تم عمل الشهادات

وكشوفات الناجحين ودورثاني

راجع المرفق

________________________________3.rar

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

الاخ /ابن النيل--------------حفظه الله

هل ستحتاج في عملك الى اضافة

7500 دائرة

اعمل بيانات اقرب الى الواقع

حتى تتاكد بشكل قطعي

علم ياباشا

السلام عليكم

الاستاذ الغالى/ خبور بك خير

بعد ما قمت بزيادة عدد الطلاب

فى الشيت حسب مدرستى

حذف الدوائر أصبح ثقيل جداً

يكاد لا يعمل وكذلك الشهادات

هل من حل !!!! جعلك الله عوناً

للغلابه اللى زينا؟؟؟؟؟

___________________________1.rar

السلام عليكم

ISRA

انظر الى الرابط:

بخصوص ساعات بصيغة الفلاش

http://www.officena.net/ib/index.php?showtopic=27879&hl=

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

الاخ / ابن النيل ---------------حفظه الله

تفضل كود اضافة الشهادات مع الدوائر

مع ضبط اعدادات تحضير الشهادات للطباعة

شهادة في كل ورقة

Sub KH_ADD_S()
Dim MyRng As Range, MyCell As Range
Dim X As Integer, R As Integer, Y As Integer
Set MyRng = ورقة1.Range("A12:DL51")
Set MyCell = Range("نموذج_الشهادة")
KH_Clear
Application.ScreenUpdating = False
X = 25
MyCell.Copy
For R = 1 To MyRng.Rows.Count - 1
    Range("B" & X).PasteSpecial xlPasteAll
    X = X + 22
Next R
X = 12
With MyRng
    For R = 1 To .Rows.Count
        Range("F" & X) = .Range("H" & R)
        Range("P" & X) = .Range("B" & R)
        Range("E" & X + 7) = .Range("DK" & R)
        Range("J" & X + 7) = .Range("DL" & R)
        Range("D" & X + 5).RowHeight = 33
        For C = 4 To 19
            .Cells(R, Cells(1, C)).Copy
            Cells(X + 5, C).Select
            ActiveSheet.Paste
            Selection.PasteSpecial xlPasteValues
        Next C
        X = X + 22
   Next R
   With ActiveSheet
        Y = .UsedRange.Rows.Count
        .PageSetup.PrintArea = "$B$3:$T$" & Y
   End With
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

هذا كود حذف الدوائر والشهادات

Sub KH_Clear()
Dim shp As Shape, Y As Integer
Application.ScreenUpdating = False
    With ActiveSheet
        .Range("F12:L12,P12:Q12,D17:S17,E19:H19,J19:S20").ClearContents
        Y = .UsedRange.Rows.Count + 25
        .Rows("25:" & Y).Delete
        .PageSetup.PrintArea = Range("نموذج_الشهادة").Address
    End With
    
    For Each shp In ActiveSheet.Shapes
      If shp.AutoShapeType = msoShapeOval Then shp.Delete
    Next shp
    
    ActiveWindow.ScrollRow = 1
End Sub

تفضل المرفق

]حاجه ولا أروع أنت مبدع وفنان وإيه تانى مش عارف!!!!!!!!!!!!!!!

الأستاذ العلامه الكبير/ خبور

السلام عليكم

هل بمكن تطبيق كود الدوائر

على ورقة الشهادة؟؟

حيث أننى طبقتها على ورقة

شيت ولكن حاولت على الشهادة

ولم أفلح!!!!!!

___________________________1.rar

السلام عليكم

الأستاذ الفاضل

اكتب الدالة الآتية

=IF(OR(AV12<$AV$11;AW12<$AW$11;AY12<$AY$11);"راسب";"ناجح")

علامة $ لتثبيت الخلية علشان لو سحبت الدالة لا تتغير خانة النهاية الصغرى

الحل مطبق على الملف المرفق

تحياتي

أيسم إبراهيم

___________________________1.rar

معلم والله بكسر الميم

السلام عليكم

كيف أكتب معادلة تحقق ثلاث شروط

( مرفق شيت لتوضيح المطلوب)

___________________________1.rar

السلام عليكم

الأستاذ : ابن النيل

تفضل المرفق

تحياتي لشبرا الخيمة و أهلها والعاملين بها

أيسم إبراهيم

___________________________.rar

أشكرك ياغالى ( المعلم الأول للغه الانجليزية)

بمدرسة بيجام ع بنين

شبرا الخيمة تتشرف بك يابن بنها الغالى

هذا ما أفعله

ولا يقبل ذلك

والملف عندك جرب

ولك خالص إحترامى

أخي بن النيل

الدالة Sum

تأخذ حتى 255 متغير

و ليس 32 متغير فقط

أحى العزيز

طب لو سمحت أجمع الخانات ذات القيمة 1

وعددهم 32 فى الخانة 0 أسفل مواد الرسوب

وأكون شاكر جداً

___________________________.rar

بعد السلام عليكم ورحمة الله وبركاته

عند استخدام دالة sum

لجمع عدد 32 خلية غير متتالية لاتعمل

فما الحل !!!!!

الاستاذ/ صفوت

أشكرك والشكر طبعاً

غير كافى !!!

السلام عليكم ورحمة الله وبركاته

الاستاذ الكبير / خبور خير

وضعت الكود الخاص بك على الملف

المرفق ولكنه يضع دوائر على أعمدة

أعمال السنة برغم أنها ليس لها نهاية

صغرى فهل من حل لعدم وضع دوائر

على هذه الأعمدة!!! وشكراً لكم

الملف:______2009.rar

الاخ ابن النيل

ملفك بعد عمل الدوائر جاهز

اللهم بارك فيكم

فى الدنيا وفى الاخرة

1000 مليون شكر

أحباب الله

اللهم بارك فيكم

اللهم أمين!!!!!

السلام عليكم

أرجو حذف المفاتيح الموجودة بالشيت المرفق

لأنها لاتضع الدوائر بشكل صحيح

وعمل أى طريقة لوضع الدوائر بشكل سليم

على الأعمدة التى لها نهاية صغرى طبعاً

أرجوكم أرجوكم أرجوكم أرجوكم أرجوكم أرجوكم

أرجوكم أرجوكم أرجوكم أرجوكم!!!!!!!!!!!!!!!!!

____________.rar

السلام عليكم

هل يمكن حذف مفتاحى اظهار واخفاء الدوائر

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

عليه وأكون شاكر لكم جداً

____________.rar

هل من مجيب ياجماعة الخير

السلام عليكم ورحمة الله وبركاته

فى هذا الشيت

هناك مفتاحين ( اظهار الدوائر + اخفاء الدوائر)

يعملان ولكن بشكل غير سليم

عند اظهار الدوائر يضع دوائر على الخانات غير المطلوبة

رجاء ضبطه على الشيت المرفق وموجوده النهايات الصغرى به

رجاء000000باق يوم واستخدمه؟؟؟؟؟؟؟؟؟؟؟ ياكريم يارب

____________.rar

الاستاذ الغالى/ أبو خالد

ربنا يوفقك يارب فى عملك الجديد

ويجعلك أهلاً له وأنت ان شاء الله

أهلاً له!!!!! ولكن لا تحرمنا من وجودك معنا

( أنت من الناس المحترمين جداً) مثل كل أعضاء

ومشرفى هذا الصرح العظيم!!!!

اشكرك استاذ ياسر بك على

سرعة الرد بارك الله فيك

أخى / خالد بك

بعد التحميل

بأى أمتداد يفتح هذا البرنامج

ولك كل التحية

الاستاذ الفاضل / أيمن بك

لك كل الشكر وبارك الله فيك

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

اخى ابن النيل

السلام عليكم

اليك الشيت عليك ان تقوم بزيادة اعداد الشيت حسب مدرستك

ولك تحياتى

لايسعنى إلا أن أقول لك

أشكرك من أعماق قلبى ياغالى