el_gazar قام بنشر مارس 29, 2020 مشاركة قام بنشر مارس 29, 2020 عاوز اجيب التاريخ الوصول الاول والتاريخ الأخير لكل بند sheet.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 29, 2020 مشاركة قام بنشر مارس 29, 2020 لا حاجة لرفع الملف بكامله (أكثر من 1100 صف) كان يكفي رفع نموذج عما تريد لا أكثر من 20 صف لمعاينه عمل المعادلات انظر الى هذا الملف My_sheet (1).xlsx 2 1 رابط هذا التعليق شارك More sharing options...
el_gazar قام بنشر مارس 30, 2020 الكاتب مشاركة قام بنشر مارس 30, 2020 الاول احب اشكرك علي مجهودك بس انا كونت عاوز البند (a2) CODE H4946-STR-111 H4946-STR-111 H4946-STR-111 لكل رقم من (a2) التاريخ الاول والتاريخ الاخير رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 30, 2020 مشاركة قام بنشر مارس 30, 2020 انا أفضل الماكرو لعمل هذا الشيء (الضفحة 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 1 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 30, 2020 مشاركة قام بنشر مارس 30, 2020 اكتب في الكود اسم الصفحة التي تعمل عليها مكان "salim" رابط هذا التعليق شارك More sharing options...
el_gazar قام بنشر مارس 31, 2020 الكاتب مشاركة قام بنشر مارس 31, 2020 ممكن تجرب على الشيت ده ولو في عندك شرح لية اكون شاكر ليك جداً هذا هو الملف my_sheet-_dict.xlsm رابط هذا التعليق شارك More sharing options...
el_gazar قام بنشر أبريل 1, 2020 الكاتب مشاركة قام بنشر أبريل 1, 2020 ارجو الرد رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أبريل 1, 2020 أفضل إجابة مشاركة قام بنشر أبريل 1, 2020 أولاً- الحلقة التكرارية يجب ان تبدأ من الصف الثالث لان الصف الثاني لا يحتوي على تاريخ ثانياً- عدد الصفوف كبير جداً (حوالي 56000 صف) لذلك يأخذ الماكرو وقتاً كبيراً (دقيقة أو أكثر حسب سرعة الحهاز عندك)كي ييفرز الداتا و ينظمها ثالثاً -في حالة عدد الصفوف اكثر من 32000 يجب اخذ المتغيرات Long وليس Integer لاحظ مثلاُ %I حولتها الى I As Long رابعاً- مثل هذه قاعدة البيانات من الافضل عملها بواسطة برنامج Access تم معالجة الأمر في هذا الملف my_Big_sheet-_dict.xlsm 1 رابط هذا التعليق شارك More sharing options...
el_gazar قام بنشر أبريل 2, 2020 الكاتب مشاركة قام بنشر أبريل 2, 2020 ممكن تقولي اعملها على الاكسيس ازاي لان الشيت بيكبر ومش نافع علي الاكسل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 2, 2020 مشاركة قام بنشر أبريل 2, 2020 حقيقة ليست لي الحبرة الكافية في الاكسيس لذلك ارفع سؤالك الى قسم الاكسيس في هذا المنتدى و تحد الاجابة هناك رابط هذا التعليق شارك More sharing options...
el_gazar قام بنشر أبريل 5, 2020 الكاتب مشاركة قام بنشر أبريل 5, 2020 المشكلة اني اكتشفت بعض التواريخ مش صحيحة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان