طارق محمود

السلام عليكم أخي العزيز أهلا ومرحبا بك بين إخوانك كما قال أخونا أشرف (أبومحمد) الأفضل دائما إرفاق ملف يسهل علي من يريد المساعدة ولكن كتحية بك حيث هذه أول مشاركاتك ، تفضل المرفق قف بالماوس علي أي من الخلايا الملونة بالعمود I تلوين الموردين.rar

السلام عليكم أخي الكريم تفضل المرفق أي رقم يوضع في ذلك العمود سيكون بالأرقام الهندية (المعروفة دارجا بالعربية) MENU.rar

السلام عليكم أرجو أن يكون المرفق هو ماتريدين مع ملاحظة أنه يمكنك التعديل علي جدول الجزاءات في الورقة الأولي (اللوائح) تجدين الجدول باللون الاخضر تأخيرات الموظفين2.rar

السلام عليكم أخي مراد تفضل المرفق إن شاء الله أكون تفاديت هذا الخطـأ فاتورة جديدة7.rar

السلام عليكم تفضل أخي الكريم المرفق به التاريخ هجري وبه زر صفحات الموظفين بالضغط عليه يتم تكوين صفحة لكل موظف تأخيرات الموظفين_شمالي2.zip

السلام عليكم الأخت االفاضلة حسب آخر تعديل ، انه بمجرد أن يصل أو يتجاوز الدقيقة ال 120 لأول مرة (مش مهم أي شريحة) ، يتم عمل انذار كتابى ثم تحسب التأخيرات كما بالجدول بالصورة المرفقة يرجي مراجعته وتأكيد أو تعديل اللون الأحمر

أخي الحبيب محمود لي (جمال - أبا محمود) مروركم شرف لنا لك مثل مادعوت وأكثر ان شاء الله

السلام عليكم أخي الكريم لقد فهمت أن من أكمل للتو 4 سنوات فهو لم يكن يستحق التصحيح قبل ذلك ، ولهذا جعلت معاملا للمدة ولكن كما تريد ان يتساووا جميعا في هذا المعيار فلاباس تفضل المرفق اختيار المعلمين للتصحيح2.zip

السلام عليكم تم الحل بطريقة الجداول المحورية (Pivot Table) بلامعادلات ولاأكواد اللهم إلا كود من سطر واحد في ورقة Result-2 لتحديث الجدول حيث من عيوب طريقة الجداول المحورية (Pivot Table) أن الجدول يحتاج تحديث كلما غيرت في البيانات الكود هو Private Sub Worksheet_Activate() ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh End Sub ولإتقان وشرح طريقة الجداول المحورية (Pivot Table) عليك بالبحث في المنتدي عن ذلك ستجد الكثير إن شاء الله ولاتتردد إن إحتجت اي سؤال

السلام عليكم أخي العزيز عبد الله المجرب (أبا أحمد) مشكور ياحبيبي علي المرور الطيب أخي العزيز أحمد يعقوب زمان ماأنا إلا تلميذكم مشكور ياغالي علي المرور الطيب أخي العزيز أبوسارة الحمد له أن وفقنا لقضاء حاجة أخ غالي علينا ولكم جميعا مثل الدعاء وأكثر

استبدل الكود بالتالي Sub mm() c = [B1] * 5 - 3 Sheet1.Activate x = WorksheetFunction.CountA(Range(Cells(5, c + 1), Cells(200, c + 3))) If x > 0 Then MsgBox "يوجد بيانات في هذا اليوم من قبل" & Chr(10) & "لن يتم الترحيل": Exit Sub Sheet2.[B4:F200].Copy Cells(4, c) End Sub

السلام عليكم أخي العزيز جرب المرفق مجلد به ملف اكسل وزر وفي نفس المجلد به ملف تيكست إسمه alburag.txt وبه أكثر من 200,000 رقم والكود بالإكسل بسيط يمكنك تعديله Sub nnn() On Error Resume Next pt = ActiveWorkbook.Path myFile = pt & "\alburag.txt" Open myFile For Input As #1 Do While Not EOF(1) Input #1, x i = i + 1 Cells(i, 2) = "'" & x Loop Close #1 End Sub أولا فك ضغط الملفين في مجلد واحد ثم افتح الإكسل وجرب تضغط الزر Al_Burg.rar

السلام عليكم أخي الكريم تفضل ماطلبت بالمرفق اجمالي شهري تغذية.rar

السلام عليكم أخي العزيز جرب المرفق " اختيار المعلمين للتصحيح" ستجد بالأعمدة D,E معادلات تقييم بمعاملات افتراضية لحالات " مدة التدريس الصف الثالث" و "آخر سنة تصحيح" يمكنك تغييرها كما يناسبك في المرفق تجد أن الأولي بالإختيار من ترتيبه رقم 1 أي (إسم 010) ثم رقم2 وهكذا اختيار المعلمين للتصحيح.rar

السلام عليكم تفضل أخي الكريم بالمرفق تجد ماتريد باستخدام الجداول المحورية (مع كود صغير لتنشيطها اوتوماتيكيا) تأخيرات الموظفين_شمالي.rar

السلام عليكم ماذا لو تأخر الموظف (بعد الدقيقة 120) حسب التالي اول مرة في حدود 15 دق ثاني مرة من 46-60 دق ثالث مرة من 16-30 دق أقصد أن يكون تأخيراته متغيرة وليست علي نسق واحد وهذا الطبيعي فهل سيكون الحساب كالتالي: اول مرة في حدود 15 دق أول مرة انذار كتابى ثاني مرة من 46-60 دق ثاني مرة 75% لأنه اول مرة يتأخر هذا التأخير الكبير أم خصم يوم ونصف علي أساس أنه في الشريحة الكبيرة ثالث مرة من 16-30 دق ثالث مرة يتم الحساب علي أساس أنه في أي شريحة تأخير؟

السلام عليكم أخي العزيز راجع الموضوع التالي ستجد في الملف الذي أرفقته أنا في ردي أقرب مايكون لما تريد http://www.officena.net/ib/index.php?showtopic=46380

السلام عليكم أخي العزيز تفضل المرفق عدم تكرار2.rar

السلام عليكم أخي العزيز لزيادة الإختيارات من التنسيق الشرطي أضف شرط جديد ثم إختر آخر خيار : use a formula to detrmine... ثم في القاعدة و الشرط ضع الشرط لأول خلية في المجال وهي I3 علي أن تكون صيغة الشرط كالتالي =$I3="XX" حيث XX هي الكلمة المعيار للشرط وعلامة الدولار قبل حرف I لتدل البرنامج أن الصف كله في مجال تفعيل الشرط يتأثر بهذا العمود فقط وأخيرا تأكد أن مجال تفعيل الشرط هو $A$3:$I$30

السلام عليكم الأخت الفاضلة بالمرفق وضعت أسماء تجريبية لعدد من الموظفين وفرضت أوقات الحضور للعمل علي أساس الموعد الرسمي الساعة 8:00 ووضعت شهر كامل (إفتراضي) جربي وأخبريني تأخيرات الموظفين.rar

السلام عليكم الحل بالتنسيق الشرطي ستكون الألوان ثابتة كما إقترحتها أنت 010_2.rar

السلام عليكم أخي العزيز قد يكون المرفق أقرب إلي ماتحتاج ففيه ترحيل واستدعاء Shift_Recall_Invoice2.rar

تفضل أيضا ملفك بعد التعديل فرزt.rar

السلام عليكم أخي العزيز أنظر المرفق فرز بيانات_magid_o.rar

السلام عليكم لاأفهم هي بالفعل كل 12 ساعة فقط أنا فرضت ان ساعة تسليم الوردية هي السادسة (ص/م) إذا كانت غير ذلك ، فما عليك إلا استبدال الرقم 6 في الخلية R6 بما يتناسب مع الحالة عندك أي أنها كل 12 ساعة مع امكانية تغيير ساعة البداية يعطيك الإكسل امكانية وضع فاصلة بعد 3 أرقام ولكن من جهة اليمين وليس اليسار من تنسيق الأرقام بالخلية إختر إختياري ثم ضع #,###