أيسم إبراهيم

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

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

السلام عليكم جميعا كنت سطبت نسخة جديدة وندوز 7 و سطبت عليها أوفيس 2003 و لما جيت أفتح ملف أكسيل وجدت لغة غريبة تظهر في صندوق الرسائل بدلا من اللغة العربية . فما الحل؟؟؟ جزاكم الله خيرا

ألف مليون مبروووووووووووووووووووووك

السلام عليكم للإفادة.... هذا حل من غير أكواد حدد الأعمدة التي فيها بياناتك من قائمة تنسيق ....خلايا..... محاذاة...... التحكم بالنص.... انكماش لمناسبة المساحة format >>> cells >>> allignment >>> text control >>> shrink to fit

السلام عليكم جميعا أخي إسلام نزلت الملف عندي فوجدت الدالة NOW تعمل بشكل طبيعي في الخلية C2 و ما ليها من خلايا عندى سؤال ارجو ان تجيبونى عليه عند جمع ايام وشهور وسنين 27/29/11+4/5/33 كيف الزياده فى كل خليه عن الايام الى شهور وعن الشهور الى سنين ( عند الجمع) وجزاكم الله خيرا

و عليكم السلام أستاذنا سبقتك إلى الخير هذه المرة لكنك ما شاء الله عليك و على مشاركاتك الممتازة حصلت بها الخير الكثير جعله الله في ميزان حسناتك . آميييييييييييييين يا رب العالمين

الرجاء مزيدا من التوضيح أخي الكريم

السلام عليكم استخدم الكود التالي Sub unhide() With Application .DisplayStatusBar = True End With End Sub

امتداده يرمزله الأستاذ خبور بالحرف R و يعني العمود CZ من أول الصف 10 و حتى الصف 110 و لكن اختر منهم كل من هو له دور ثان جرب وضع كلمة ناجح في وسط الراسب ستجد أنه يهملها

عندك حق أخي المفروض CZ تعدل إلى DI لكي يقف الكود و لا يأتي بصفحات كثيرة بيضاء عدل السطر التالي T = Application.CountIf(Sheet1.Range("DI11:DI1000"), "<>ناجح") / 30 ليكون T = Application.CountIf(Sheet1.Range("DI11:DI110"), "<>ناجح") / 30

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

تحت أمرك دا احنا بلديات ( على فكرة أنا من بنها ) معناه لو المدي في العمود (cz) و امتداده® لا يساوي كلمة ناجح ابدأ في تنفيذ الكود التالي

عمل رائع و متقن جزاك الله به كل خير و لكن قل أو اكتب (( إن شاء الله )) لأن كلمة (( إنشاء )) تعني الخلق و الإيجاد = حاش لله =

Sub كشف_دور_ثاني() On Error Resume Next Dim T As Integer, Y As Integer, Z As Integer, V As Integer _ , N As Integer, X As Integer, R As Integer, M As Integer _ , C As Integer, CC As Integer مسح_كشف_دور_ثاني 'هنا نكتب مدى العمود الذي به كلمة ناجح أو راسب من الشيت الأصلي T = Application.CountIf(Sheet1.Range("DI11:DI1000"), "<>ناجح") / 30 '================================ Application.ScreenUpdating = False With ActiveSheet Y = (T * 38) + 39 .PageSetup.PrintArea = Range("B2:N" & Y).Address End With '================================ Z = 40 Range("نموذج_كشف2").Copy For V = 1 To T Range("B" & Z).PasteSpecial xlPasteAll Set ActiveSheet.HPageBreaks(V).Location = Range("B" & Z) Z = Z + 38 Next V Application.CutCopyMode = False '================================ N = 6 With Sheet1 X = .Range("A" & .Rows.Count).End(xlUp).Row For R = 11 To X If .Range("CZ" & R) <> "ناجح" Then M = M + 1 Cells(M + N, 2) = M For C = 1 To 12 'نعدل هذا الرقم ليكون عدد الأعمدة في صفحة الراسبين التي نرحل إليها البيانات 'هنا نكتب أرقام أعمدة المواد التي نريد جلب البيانات منها CC = Choose(C, 3, 2, 26, 35, 44, 53, 64, 69, 74, 84, 94) Cells(M + N, C + 2) = .Cells(R, CC) Next C If M Mod 30 = 0 Then N = N + 8 End If Next R End With Range("A2").Activate '================================ Application.ScreenUpdating = True MsgBox "تم ترحيل " & M & " طالب دور ثاني", vbMsgBoxRight, "الحمدلله" معاينة On Error GoTo 0 End Sub Sub مسح_كشف_دور_ثاني() Dim Y As Integer Application.ScreenUpdating = False With ActiveSheet Y = .UsedRange.Rows.Count + 40 .Rows("40:" & Y).Delete 'نغير الرقم (13) ليكون بعدد أعمدة البيانات في الصفحة المرحل اليها Range("نموذج_كشف2").Offset(5, 0).Resize(30, 13).ClearContents .PageSetup.PrintArea = Range("نموذج_كشف2").Address End With ActiveWindow.ScrollRow = 2 تفضل الشرح أخي الكريم أما الطلب الثاني محتاج نظر

مزيد من التوضيح لو سمحت أخي الكريم

السلام عليكم أخوتي الكرام تفضل أخي ناصر ما طلبت طبعا الأكواد من إبداعات أستاذنا العالم خبور و عدلتها لتناسب ملفك جرب و اخبرني بالنتيجة لا تنسانا من صالح الدعاء ترحيل الدور الثاني.rar

السلام عليكم استخدم الكود التالي و ضعه في موديول Sub Auto_open() Sheets("اسم الورقة").Select End Sub

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

السلام عليكم أخي هاني يبدو أن القلوب عند بعضها الردين في نفس الوقت تماما دمت بخير

السلام علكم تفضل أخي المرفق به ما طلبت دعواتك VLOOKUP.rar

أخي الكريم استخدم المعادلة التالية في الخليةC6 , و انسخها على باقي الخلايا =IF(ورقة1!C6="";"";ورقة1!C6)

البرنامج بالفعل مميز و رائع و جامع لكل ما نحتاج جزاك الله خيرا

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

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