بحث مخصص فى أوفيسنا

سليم حاصبيا

أوفيسنا
  • Content count

    3,475
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    51

سليم حاصبيا last won the day on January 20

سليم حاصبيا had the most liked content!

السمعه بالموقع

2,226 Excellent

عن العضو سليم حاصبيا

  • الرتبه
    مشرف
  • تاريخ الميلاد 08 مار, 1985

Profile Information

  • Job Title
    استاذ ثانوي

اخر الزوار

2,268 زياره للملف الشخصي
  1. معادلتك ايضاً رائعة لكن حاول بدون عامود مساعد
  2. جرب هذا الملف sum 31 32.rar
  3. نم التعديل على الملف وتفادي الخطأ انظر الى التعديل الذي جرى في معادلات العامود الاول جمع للورقه salim2.rar
  4. ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) 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
  5. ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) 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
  6. ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) 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
  7. يجب تشغيل الماكرو من جديد كلما تم التعديل على البيانات يمكن وضع رز يقوم بتشفيل الماكرو
  8. جرب هذا الماكرو Sub my_sum() Dim Lr As Integer, My_sheet As Worksheet Set My_sheet = Sheets("ورقة1") With My_sheet Lr = Application.Max(.Range("a:a")) + 4 .Range("b" & Lr + 2 & ":" & "e" & Lr + 2 & "").ClearContents .Cells(Lr + 2, 2) = "اجمالى الكشف" .Cells(Lr + 2, 3) = Application.Sum(Range("c4:c" & Lr)) .Cells(Lr + 2, 4) = Application.Sum(Range("d4:d" & Lr)) .Cells(Lr + 2, 5) = Application.Sum(Range("e4:e" & Lr)) End With End Sub
  9. اكتب في الخلية C7 هذه المعادلة =(QUOTIENT(B7,1)*60+MOD(B7,1)*100)/60 و في الخلية D7 هذه الاخرى =QUOTIENT(B7,1)*60+MOD(B7,1)*100
  10. جرب الملف المرفق (يمكن زيادة عدد الصفحات و الاعمدة والتحكم بالبيانات مثل ما تريد) ALL_In_One Sheet.rar
  11. جرب هذا الماكرو Sub Copy_To_Next_Row() Dim my_sh As Worksheet Dim LastRow As Integer Set my_sh = Sheets("test") If ActiveSheet.Name <> "test" Then Exit Sub LastRow = Cells(Rows.Count, 1).End(3).Row For i = 2 To LastRow +7 Step 3 If Not IsEmpty(Cells(i, 2)) Then Cells(i + 2, 2) = Cells(i + 1, 2) End If Next End Sub
  12. الكود بعمل على اكثر من ذلك بكثير (مهما كان عدد الاسماء حنى و لو 2000000 اسم) انا ارسلت لك نموذج فقط و لا اعرف ما السبب عندك ربما كانت الاسماء مختلقة او التاريخ محتلف يين شيت و اخر
  13. انظر الى المرفق كنموذج من 20 اسم sample salim.rar