احمدزمان

السلام عليكم تفضل اخي 1.rar

السلام عليكم اخي ezzarqtouni آسف جدا الخطأ من عندي حيث وضعت شرط في العمود AG ان لايكون الإسم مكرر في العمود B حيث اعتقدت ان الملف سوف يستخدم كل شهر لحاله و ذلك تفاديا لتكرار البيانات للطالب رغم انه الصحيح ان يتكرر الإسم كل شهر تم التعديل في المرفق ارجو المعذرة 2ay__________02_ezzarqtouni2.rar

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

السلام عليكم تم استخدام الدالة sumproduct بحيث يتم العد بضرب مطابقة كل نطاق في القيمة المقابلة له في نفس الخلية داخل النطاق اذا كان الناتج اكبر من 1 اذا فهو مكرر و اذا كان الناتج يسوي واحد فهو غير مكرر مع التحية

الآن بالنسبة لموضوع العمود الذي تم اضافته دور هذا العمود هو اخفاء بقية الصفوف التي لايوجد بها بيانات في المرفق تم تعديل كود الترحيل بحيث انه بعد عملية الترحيل يقوم باخفاء بقية الصفوف الفارغة وتبقى الصفوف التي بها بيانات فقط و صف المجموع وذلك باستخدام التصفية آمل التجربة ________Xl0000016nazo2007.rar

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

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

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

السلام عليكم و رحمة الله وبركاته بلإضافة الى حل الأستاذ aah-aah2008 هذه فكرة اخرى ayExample.rar

السلام عليكم فكرة الأستاذ عادل اوحت لي بفكرة جديدة في المرفق آمل تجربتها مع الشكر للأستاذ aah-aah-2008 protectSheets1_________1__________.rar

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

السلام عليكم صباح الخير للجميع اخي ابو اسامة انا فهمت الموضوع بطريقة اخرى اخي الفاضلnazo شاهد المرفق الخلية لاحمراء اذا اكتملت البيانات تصبح خضراء عندها يمكنك ترحيل البيانات تم اضافة عمود لكل صفحة وتم اضافة ورقة جديدة لنا حولهما حديث بعد تجربة الترحيل ________Xl0000016nazo2007.rar

جزاك الله خيرا للعلم انا لم اقوم بالتعديل في اوراق الملف سوى ورقة قسم-شهر-مادة فقط ولكن ممكن تنزل ملف من المرفقات السابقة و تنسخ منه الدوال التي تتحدث عنها انها تعطلت وآمل ان تعوود للعمل مرة اخرى

السلام عليكم و رحمة الله اخي khhanna علشان نستوضح المطلوب اكثر الماكرو الذي سبق و ارسلته كما شرحت لك يقوم باغلاق جميع الخلايا عند فتح الملف يقوم بالمرور على كل خلايا الملف و اي خلية بها كتابة او قيمة يقوم باغلاقها ثم حماية الورقة كاملة اذاكنت تريد اغلاق الخلية التي بها الدالة بحيث لن يستطيع المستخدم الكتابة بها او تعدي الدالة و بدون حماية الورقة يمكنك ذلك عن طريق التحقق من صحة Validation في المرفق تم تعديل الكود السابق بحيث يقوم الكود باغلاق الخلايا التي بها دوال فقط مع حماية كامل الورقة و جرب الغاء الحماية ثم تعديل الدالة الموجود ايضا لن تستطيع تعديلها بسبب استخدام التحقق من صحة Validation آمل ان تفي احد هاتين الطريقتين بالغرض المطلوب protectSheets__________.rar

العفو اخي الكريم سؤال ناتج النسبة صحيح او خطأ ممكن توضح

السلام عليكم و رحمة الله وبركاته معليش المطلوب محتاج توضيح اكثر الترحيل يتم الى صفحة بيانات الموظفين او الى الورقة التي تحمل رقم الموظف

اخي ابو عبيد جزاك الله كل خير ولك مثلها دعوة عظيمة من اخ فاضل

جزاك الله كل خير ابو اسامة

اخي عمر شكرا جزيلا لك

بعد اذن اخي الفاضل - عمر شاهد المرفق ________________________.rar

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

ابحث عن HYPERLINK او ارتباط شعبي في شريط الأدوات اعلى الصفحة واتبع تعليماته و المثال في المرفق HYPERLINK___________.rar

و عليكم السلام أخي آمل ان تتأكد حيث ان فورمات كل خلية مستقلة بذاتها وليس لها علاقة بفورمات الخلية التي يحسب منها والأفضل ان ترفق ملف به مثال لنتمكن من التجربة و التعديل علية ونعرف المشكلة و حلها اين

بالإضافة الى افكار العباقرة الذين سبقوني الأستاذ اكرم الغامدي و الأستاذ ابو اسامة هذه فكرة اخرى تعتمد الفكرة على انيتم المرور على كل اوراق الملف و حماية الورقة و التعامل مع الخلايا الفارغة و قفل جميع الخلايا المكتوب بها من السابق بحيث لن يستطيع المستخدم تعديل اي ادخالات سابقة قبل فتح الملف Private Sub Workbook_Open() For s = 1 To Sheets.Count Sheets(s).Select ActiveSheet.Unprotect E = ActiveSheet.UsedRange.Rows.Count R = ActiveSheet.UsedRange.Columns.Count For q = 2 To R For W = 3 To E If Cells(W, q).Value <> "" Then Cells(W, q).Locked = True Else Cells(W, q).Locked = False End If Next W Next q ActiveSheet.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True _ , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True Next s End Sub ولكن المشكلة الوحيدة للكود انه لن يقوم باغلاق الخلايا التي ناتج الدالة بها = "" فراغ وقد يستطيع احد الأساتذة تعديلة ليشمل ذلك protectSheets_____.rar