اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة 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
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information