عادل جلال

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

السلام عليكم تفضل المرفق وأى إستفسار عادل جلال

الأخ / جمال فى الربط التالى شرح مفصل لدالة vlookup المستخدمة فى الشهادة للأخ الفاضل/ يحيى جزاه الله خيراَ http://www.officena.net/ib/index.php?showt...mp;#entry139444 وأى إستفسار عادل جلال

السلام عليكم ورحمة الله وبركاته العلامة / خبور بارك الله فيك ......... كلامك وسام على صدرى الأخ / جمال فى الربط التالى شرح مفصل لدالة vlookup المستخدمة فى الشهادة للأخ الفاضل/ يحيى جزاه الله خيراَ http://www.officena.net/ib/index.php?showt...mp;#entry139444 وأى إستفسار عادل جلال

السلام عليكم ورحمة الله وبركاته تفضل المرفق وأى إستفسار ____________.rar

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

السلام عليكم ورحمة الله وبركاته هل يمكن عدم تفعيل أمر ( قص-cut) فى ورقة أكسيل؟ بإستخدام لوحة المفاتيح أو بالماوس وجزاكم الله خيراَ

السلام عليكم ورحمة الله وبركاته بعد إذن الأخوه الأفاضل مرفق ملف بالضغط عليه يخفض مستوى أمان الماكرو فى أكسيل 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

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

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

للرفع