اذهب الي المحتوي
أوفيسنا

معادلة جلب التاريخ الاول والتاريخ الاخير لكل بند


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

لا حاجة لرفع الملف بكامله (أكثر من 1100 صف) كان يكفي رفع نموذج عما تريد لا أكثر من 20 صف لمعاينه عمل المعادلات

انظر الى هذا الملف

 

My_sheet (1).xlsx

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

انا أفضل الماكرو لعمل هذا الشيء (الضفحة  salim  من هذا الملف)

الماكرو

Option Explicit

Sub Chercher_Date_by_array()
  Dim I%, lr%, D As Object, arr(), X%
Set D = CreateObject("Scripting.Dictionary")
With Sheets("salim")
  If .Range("G1").CurrentRegion.Rows.Count > 1 Then
  .Range("G1").CurrentRegion.Offset(1).Clear
  End If
    lr = .Cells(Rows.Count, 3).End(3).Row
     For I = 2 To lr
       If Application.CountIf(.Range("A2:A" & I), .Range("A" & I)) = 1 Then
        ReDim Preserve arr(X)
        arr(X) = Range("B" & I)
        X = X + 1
       End If
       D(.Cells(I, 1).Value) = CDate(.Cells(I, 2))
     Next
     
     With .Range("G2").Resize(D.Count)
       .Value = Application.Transpose(D.keys)
       .Offset(, 1).Resize(X) = Application.Transpose(arr)
       .Offset(, 2) = Application.Transpose(D.Items)
        With .Resize(, 3)
        .Value = .Value
        .InsertIndent 1
        .Borders.LineStyle = 1
        .Interior.ColorIndex = 40
        .Font.Bold = True
        .Font.Size = 16
        End With
     End With
   
End With
Set D = Nothing: Erase arr
End Sub

الملف مرفق للتجربة

 

 

My_sheet _Dict.xlsm

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

 أولاً-  الحلقة التكرارية يجب ان تبدأ من الصف الثالث لان الصف الثاني لا يحتوي على تاريخ

ثانياً- عدد الصفوف كبير جداً (حوالي 56000 صف) لذلك يأخذ الماكرو وقتاً كبيراً (دقيقة أو أكثر حسب سرعة الحهاز عندك)كي ييفرز الداتا و ينظمها

ثالثاً -في حالة عدد الصفوف اكثر من 32000 يجب اخذ المتغيرات Long  وليس Integer  لاحظ مثلاُ %I حولتها الى I As Long

رابعاً- مثل هذه قاعدة البيانات من الافضل عملها بواسطة برنامج   Access

تم معالجة الأمر في هذا الملف

my_Big_sheet-_dict.xlsm

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information