عادل جلال

السلام عليكم ورحمة الله وبركاته بعد إذن الأخوه الأفاضل مرفق ملف بالضغط عليه يخفض مستوى أمان الماكرو فى أكسيل 2007 12.rar

السلام عليكم ورحمة الله وبركاته الأخ / أبو أسامة بارك الله فيك وجعله الله فى ميزان حسناتك لى طلب من سيادتكم وهو أضافة على الفورم الحالى بحيث يعمل على عمودين معاَ مرفق ملف موضح فيه الإضافة وجزاكم الله خيراَ _____33.rar

السلام عليكم ورحمة الله وبركاته الأخ/ نزار بارك الله فيك

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

السلام عليكم ورحمة الله وبركاته أنظر الملف المرفق _____________________4.rar

السلام عليكم ورحمة الله وبركاته الملف بعد تعديل الإحصاء _____________________3.rar

السلام عليكم ورحمة الله وبركاته الأخ/هشام كلامك وسام على صدرى بارك الله فيك الملف بعد تعديل الإحصاء _____________________2.rar

السلام عليكم ورحمة الله وبركاته الأخ / محمد فيروز با رك الله فيك الباسورد صحيح تأكد من أن لغة لوحة المفاتيح إنجليزية الأخ/ صابر الأخ/ محمد بالنسبة لعمل البرنامج كالآتى :- بعد الدخول على صفحة إدخال بيانات الطلبة وفك الحماية (123) كليك يمين على زر نسخ البيانات بعدد الطلاب تظهر نافذة نختار -تحرير - (Edit) تظهر نافذة الفيجوال بيزك بها مجموعة من الموديولات والماكروهات والزر السابق يخص الكود الآتى:- Sub MacroFil1() Application.ScreenUpdating = False Sheets("بيانات الطلبة").Range("a7:o7").Select Selection.AutoFill Destination:=Range("a7:o" & ['الرئيسية'!s12] + 6) Sheets("رصد نصف العام").Select Range("a7:n7").Select Selection.AutoFill Destination:=Range("a7:n" & ['الرئيسية'!s12] + 6) Sheets("ملف الإنجاز1 ").Select Range("a7:k7").Select Selection.AutoFill Destination:=Range("a7:k" & ['الرئيسية''!s12] + 6) Sheets("رصد آخر العام ").Select Range("a7:cd7").Select Selection.AutoFill Destination:=Range("a7:cd" & ['الرئيسية'!s12] + 6) Sheets("بيانات الطلبة").Select Range("A4").Select Application.ScreenUpdating = True End Sub السطر الأول فى الكود هو اسم الماكرو السطر الثانى هو إلغاء تحديث الشاشة (الغاء مشاهدة تنفيذ الماكرو) السطر الثالث تحديد البيانات الموجودة فى أول صف من صفوف بيانات الطلاب من الخلية (a7)إلى الخلية (o7) السطر الرابع نسخ المعادلات والدوال الموجود فى المدى السابق بعدد الطلاب الموجود فى الصفحة الرئيسية من السطر الخامس حتى السطرالثالث عشر تكرار نفس عمليتى التحديد والنسخ فى الصفحات ( رصد نصف العام - ملف الإنجاز1 - رصد آخر العام ) حتى تكون الصفحات جاهزة لأستقبال وربط البيانات السطر الرابع عشر الرجوع إلى صفحة بيانات الطلبة السطر الخامس عشر الوقوف فى الخلبة (a4) السطر السادس عشر عكس السطر الثانى السطر السابع عشر نهاية الكود ثم زر إظهار السرى Sub إظهار() Dim Answer As String Answer = InputBox(" فضلاَ أدخل كلمة المرور ") If Answer <> Sheets("بيانات الطلبة").Range("S2") Then MsgBox "كلمة المرور غير صحيحة ولم يتم تنفيذ المطلوب " Exit Sub End If MsgBox "كلمة المرور صحيحة وسيتم تنفيذ المطلوب " Columns("c:d").Select Selection.EntireColumn.Hidden = False Columns("s:s").Select Selection.EntireColumn.Hidden = True Range("b7").Select End Sub هذا الكود اسمه إظهار وهو يقوم بعملية إظهار عمود الرقم السرى كلآتى:- تظهر نافذة تطلب إدخال كلمةالمرور وهى موجودة فى صفحة بيانات الطلبة فى الخلية (s2) إذا كانت لاتساوى الكلمة الموجودة فى الخلية (s2)لم يتم تنفيذ المطلوب وتخرج من الكود إذا كانت تساوى يتم تنفيذ المطلوب وهو تحديد وعدم إخفاء العمودين (c , d)الموجود بهما سرى نصف العام وآخر العام وتحديد و إخفاء العمود (s)الموجود كلمة المرور ثم زر إخفار كلمة السرى يقوم بعكس عملية الإظهار وإلى لقاء قريب بمشيئة الله

السلام عليكم ورحمة الله وبركاته الأخ / صابر لقد قمت بإعادة رفع الملف بعد تعديل خلية الحاسب الآلى فى أول شهادة لآخر العام حسب المعطيات التى زوتنى بها بصفتك تنتمى إلى التعليم الإبتدائى . وأى طلب فى البرنامج .... أنا حاضر بإذن الله ولمعرفة عمل الأزرار فك الحماية وكليك يمين على الزر وأقرأ الكود باسورد الورقة( 123) باسورد الفيجوال(adel66) وإليك هذا الموضوع لأستاذى/ أكرم الغامدى سوف يفيدك جداَ بأذن الله http://www.officena.net/ib/index.php?showt...p;hl=تعلم+بنفسك __________.rar

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

الأخ/أيسم السلام عليكم أعمل الأتى:- قف فى أى خلية ثم من شريط القوائم أختر تنسيق خلايا رقم مخصص dd/mm/yyyy ثم عدلها كالآتى:- yyyy/m/d موافق فى رعاية الله

السلام عليكم الأخ / صابر جارى عمل اللازم بمشيئة الله الأخ / هشام أشكرك جزيلاَ وهذا بعض ماعندكم

السلام عليكم الأخ / صابر تفضل بإحصاء أخر العام والله الموفق عادل ___________.rar

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

السلام عليكم أخى هل تريد عمل إحصائيات لنصف العام أم أخر العام أم للإثنين؟ إذا شمل الإحصاء نصف العام أبعث الدرجات التى تعتبر الطالب فيها ناجح إعتبارياَ( مجازاَ )...! عادل 1

السلام عليكم أخى أضف النهاية الصغرى فى شهادة أخر العام للصف الثانى حتى يتم حساب النجاح والرسوب عادل

السلام عليكم أخى أضف النهاية الصغرى فى شهادة أخر العام حتى يتم حساب النجاح والرسوب عادل

للرفع

السلام عليكم إذا أرد أن أنسخ الدالة (if(or(c10=t5;c10=t6);0;1= فى الخلية cf10 بإستخدام الكود فيكون الكود بالشكل التالى Range("cF10").Formula = "=if(or(c10=t5,c10=t6),0,1)" وإذا أرد أن أنسخ الدالة (if(or(c10=$t5$;c10=$t6$);0;1= فى الخلية cf10 فكيف يكون الكود ؟

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

السلام عليكم الأخ/هشام شاهد المرفق Book1.rar

السلام عليكم أخى تم إضافة مادة التربية الدينية ولكن لم ترسل النهاية الكبرى لها وقد إعتبرتها 30 111Copy_of______2.rar

السلام عليكم الأخ/ العزيز تم عمل عدد 3 شهادة فى الورقة الواحدة الأميل almokhtaser@yahoo.com 11Copy_of______2.rar

السلام عليكم تفضل أخى ونحن فى الإنتظار لآى تعديل Copy_of______2.rar

السلام عليكم ورحمة الله وبركاته الأخ / saeedmg لك ماطلبت كشوف ملاحظة لثلاثة صفوف وبدون إحتياطى والله الموفق ______________3_________________.rar