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

[el_gazar]

عاوز اجيب التاريخ الوصول الاول والتاريخ الأخير لكل بند

 

sheet.xlsx

[سليم حاصبيا]

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

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

 

My_sheet (1).xlsx

[el_gazar]

الاول احب اشكرك علي مجهودك 

بس انا كونت عاوز البند (a2)

CODE
H4946-STR-111
H4946-STR-111
H4946-STR-111

لكل رقم من  (a2) التاريخ الاول والتاريخ الاخير

[سليم حاصبيا]

انا أفضل الماكرو لعمل هذا الشيء (الضفحة  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

[سليم حاصبيا]

اكتب في الكود اسم الصفحة التي تعمل عليها مكان "salim"

[el_gazar]

ممكن تجرب على الشيت ده ولو في عندك شرح لية اكون شاكر ليك جداً

هذا هو الملف

my_sheet-_dict.xlsm

[el_gazar]

ارجو الرد 

[سليم حاصبيا]

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

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

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

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

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

my_Big_sheet-_dict.xlsm

[el_gazar]

ممكن تقولي اعملها على الاكسيس ازاي لان الشيت بيكبر ومش نافع علي الاكسل

   

[سليم حاصبيا]

حقيقة ليست لي الحبرة الكافية في الاكسيس

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

[el_gazar]

المشكلة اني اكتشفت بعض التواريخ مش صحيحة