مجاهد2013 قام بنشر ديسمبر 4, 2018 مشاركة قام بنشر ديسمبر 4, 2018 السلام عليكم إخوتي : عندي في الملف المرفق 1- أريد ترحيل البيانات (الاسم و اللقب – القسم ) من شيت data إلى شيت data2 بحيث كل قسم يأخذ 50صف يعني القسم س1 (50صف حتى لو كان عدد الطلبة أقل من كذا) و يجي وراه القسم س2 بنفس المواصفات ..............الخ بحيث لو أضفت طالب في data في أخر صف يطلع في القسم بتاعه في data2 2- اريد حساب تعداد الطلبة حسب الصفة و الجنس كما هو مبين في الجدول مع اخذ الاعتبار إذا أضفت قسم مثلا س11 يرتبه في اخر الصف في خانة القسم و يحسب تعداده و شكرا مسبقا الطلبة.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 4, 2018 مشاركة قام بنشر ديسمبر 4, 2018 جرب هذا الماكرو Option Explicit Sub give_data() If ActiveSheet.Name <> "data" Then Exit Sub Dim i%: i = 3 Dim Laste_Row%, k%, m% Dim arr, arr_num() Dim rg As Object arr_num = Array(3, 52, 101, 150, 199, 248, 297, 346, 395, 444) Laste_Row = Sheets("data").Cells(Rows.Count, 1).End(3).Row Sheets("data2").Range("a3").Resize(1000, 3).ClearContents Set rg = CreateObject("system.collections.arraylist") With rg Do Until i > Laste_Row If Not .contains(UCase(Range("g" & i).Value)) Then .Add UCase(Range("g" & i).Value) i = i + 1 Loop arr = .toarray End With For i = LBound(arr) To UBound(arr) m = arr_num(i) For k = 3 To Laste_Row% If Sheets("data").Cells(k, "G") = arr(i) Then With Sheets("data2").Cells(m, 1) .Value = Sheets("data").Cells(k, "A") .Offset(, 1) = Sheets("data").Cells(k, "B") .Offset(, 2) = Sheets("data").Cells(k, "G") m = m + 1 End With End If Next Next Set rg = Nothing: Erase arr_num: Erase arr End Sub الملف مرفق std_salim.xlsm 1 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر ديسمبر 4, 2018 الكاتب مشاركة قام بنشر ديسمبر 4, 2018 الف شكر أستاذ سليم . ماشي تمام بس حاجة لو كنت لا أريد تريد الارقام اللي هي في الاصل ارقام ترتيب ماهو السطر الذي على حذفه من الكود 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 4, 2018 مشاركة قام بنشر ديسمبر 4, 2018 3 دقائق مضت, مجاهد2013 said: الف شكر أستاذ سليم . ماشي تمام بس حاجة لو كنت لا أريد تريد الارقام اللي هي في الاصل ارقام ترتيب ماهو السطر الذي على حذفه من الكود اجذف هذا السطر من الكود .Value = Sheets("data").Cells(k, "A") رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر ديسمبر 4, 2018 الكاتب مشاركة قام بنشر ديسمبر 4, 2018 هل ممكن مثال بسيط لحساب التعداد رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 4, 2018 مشاركة قام بنشر ديسمبر 4, 2018 أحسنت استاذ سليم كود ممتاز بارك الله فيك وجزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.