سليم حاصبيا

جرب هذا الكود Sub Get_names() m = 0 For i = 2 To Sheets.Count Sheets("sheet1").Range("b" & m + 2) = Sheets(i).Range("b2") m = m + 1 Next End Sub

كيف نقوم بادراج سلسلة أرقام بمواصفات معينة special_sequence.rar

لك ما تريد تجميع المدفوع بالتاريخ salim.rar

طبعاً .... اذا تم تنسيق خلايا الوقت كما ذكرت لك تستطيع كتابة لوقت كما يلي 22:15 اي العاشرة و 22 دقيقة ليلاً

جرب المرفق (اذا اردت ان تحسب يوم الخروج يجب ان تزيد واحد الى المعادلة) انتبه الى تنسيق الوقت بالخلايا (10:15 وليس 10.15) هذا ما تفعله المعادل التي وضعتها لك كسر ال 24 ساعة (اي كسر اليوم): اذا كان اكبر من ساعة يحسب الفرق بين التاريخين بالايام + يوماً كاملاً اذا كان اقل من ساعة يحسب الفرق بين التاريخين بالايام فقط لوضع الوقت صباحاً او مساء يجب كتابة PM او AM بعد الوقت (توضع مسافة قبل PM او AM) مثلاً: PM 10:15 PM

جرب المرفق (اذا اردت ان تحسب يوم الخروج يجب ان تزيد واحد الى المعادلة) انتبه الى تنسيق الوقت بالخلايا (10:15 وليس 10.15) حساب اليوم بالوقت salim.rar

من طبيعة الاكسل لا يمكن التراجع عن اي عمل تم تنفيذه عن طريق الكود

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

اليك هذه المعادلة =VLOOKUP(MONTH(B6),{1,"يناير";2,"فبراير";3,"مارس";4,"ابريل";5,"مايو";6,"يونيو";7,"يوليو";8,"اغسطس";9,"سبتمبر";10,"نوفمبر";11,"اوكتوبر";12,"ديسمبر"},2,0) اذا لم تعمل استبدل الفاصلة بقاصلة منقوطة لتصيح هكذا =VLOOKUP(MONTH(B6);{1,"يناير";2,"فبراير";3,"مارس";4,"ابريل";5,"مايو";6,"يونيو";7,"يوليو";8,"اغسطس";9,"سبتمبر";10,"نوفمبر";11,"اوكتوبر";12,"ديسمبر"};2;0)

تم التعديل على الملف كي يعمل مع ارقام الموظفين (في قائمة منسدلة غير مكررة) كذلك في حالة وجود اكثر من يوم عطلة يذكرها جميعها انظر الى الصفحة Salim من هذا الملف Off days salim.rar

جرب هذه المعادلة في الخلية F1و اسحب نزولاً =IF(AND(E1>=B1,E1<=C1)+AND(E1<=B1,E1>=C1)>=1,"Yes","No")

جرب هذا الملف Book1 salim.rar

جرب هذا الملف مبدئياً مخزن مكونات إنتاج salim.rar

و عليك ان تزيد الاحتمالات ضمن الاقواس {} مثلاً 12 يقالبها 1125 11 يقابلها 1200 ..... تكتب هكذا 12,1125 ثم 11,1200 كما في المعادلة

استعمل هذه المعادلة =C4+Y4+VLOOKUP(J4,{12,1125;11,1200;10,1250;9,1300;8,1350;7,1400},2,0)

بعد اذن اخي بن علية هذا الملف 3alamat.rar

ربما ينفع هذا الملف بطاقة عمل.rar

و هذه معادلة ثانية (في حال كانت رؤوس الاعمدة غير مرتبة في الجدولين) توضع في N5 استعملها مع (Ctrl+Shift+Enter) ثم اسحب يساراً و نزولاً ";" في حال لم تعمل المعادلة استبدل الفاصلة "," بفاصلة منقوطة =SUMPRODUCT(INDEX($D$2:$H$25,,MATCH(N$4,$D$1:$H$1,0))*($C$2:$C$25=$M5))

اثراءً للموضوع هذه المعادلة في N5 استعملها مع (Ctrl+Shift+Enter) ثم اسحب يساراً و نزولاً =SUM(($C$2:$C$25=$M5)*(D$2:D$25))

معادلتك ايضاً رائعة لكن حاول بدون عامود مساعد

جرب هذا الملف sum 31 32.rar

نم التعديل على الملف وتفادي الخطأ انظر الى التعديل الذي جرى في معادلات العامود الاول جمع للورقه salim2.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) Sub my_sum_for_All() Dim Lr, Lc As Integer, My_sheet As Worksheet Set My_sheet = Sheets("ورقة1") If ActiveSheet.Name <> My_sheet.Name Then Exit Sub With My_sheet Lc = Cells(4, Columns.Count).End(xlToLeft).Column Lr = Application.Max(.Range("a:a")) + 4 Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents .Cells(Lr + 2, 2) = "اجمالى الكشف" For i = 3 To Lc .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i))) Next End With End Sub الملف جاهز تم التعديل جمع للورقه salim1.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) Sub my_sum_for_All() Dim Lr, Lc As Integer, My_sheet As Worksheet Set My_sheet = Sheets("ورقة1") If ActiveSheet.Name <> My_sheet.Name Then Exit Sub With My_sheet Lc = Cells(4, Columns.Count).End(xlToLeft).Column Lr = Application.Max(.Range("a:a")) + 4 Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents .Cells(Lr + 2, 2) = "اجمالى الكشف" For i = 3 To Lc .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i))) Next End With End Sub الملف جاهز جمع للورقه salim.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) Sub my_sum_for_All() Dim Lr, Lc As Integer, My_sheet As Worksheet Set My_sheet = Sheets("ورقة1") If ActiveSheet.Name <> My_sheet.Name Then Exit Sub With My_sheet Lc = Cells(4, Columns.Count).End(xlToLeft).Column Lr = Application.Max(.Range("a:a")) + 4 Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents .Cells(Lr + 2, 2) = "اجمالى الكشف" For i = 3 To Lc .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i))) Next End With End Sub