أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة مطلوب كود استخراج بيانات بالمصفوفات اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة

السلام عليكم أريد من الإخوة ضبط هذا الكود لكى يتم الترحيل من عدة صفحات إلى صفحة Total بارك الله فيكم لمشاهدة الروابط ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


19-03-2018 05:04 صباحا
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 473
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 

السلام عليكم
أريد من الإخوة ضبط هذا الكود لكى يتم الترحيل من عدة صفحات إلى صفحة  Total
 بارك الله فيكم

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
 
  ترحيل من عدة صفحات إلى صفحة واحدة.rar   تحميل rar مرات التحميل :(33)
الحجم :(18.753) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
بارك الله فيك أخي الحبيب حسام ومشكور على حلولك المميزة

إثراءً للموضوع وإفادةً للأعضاء أقدم كود جديد باستخدام المصفوفات حيث يتم تخزين البيانات في كل أوراق العمل داخل مصفوفة ويتم وضع النتائج مرة واحدة  في ورقة النتائج ..
والكود سريع جداً في التعامل مع البيانات الكثيرة داخل الملف
Sub Consolidate_All_Sheets_In_One_Using_Arrays()
    Dim ws          As Worksheet
    Dim temp        As Variant
    Dim arr         As Variant
    Dim f           As Boolean

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Total" Then
            temp = ws.Range("A2:C" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value
            If f Then
                arr = ArrayJoin(arr, temp)
            Else
                arr = temp
                f = True
            End If
        End If
    Next ws

    With Sheets("Total")
        .Range("A1").Resize(1, 3).Value = Array("م", "الاسم", "الرقم الوظيفي")
        .Range("A2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    End With
End Sub

Function ArrayJoin(ByVal a, ByVal b)
    Dim i           As Long
    Dim ii          As Long
    Dim ub          As Long

    ub = UBound(a, 1)
    a = Application.Transpose(a)
    ReDim Preserve a(1 To UBound(a, 1), 1 To ub + UBound(b, 1))
    a = Application.Transpose(a)

    For i = LBound(b, 1) To UBound(b, 1)
        For ii = 1 To UBound(b, 2)
            a(ub + i, ii) = b(i, ii)
        Next ii
    Next i

    ArrayJoin = a
End Function
عرض الإجابة




19-03-2018 09:31 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 747
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة

تفضل اخى الكريم
على حسب ما فهمت شاهد المرفق
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  ترحيل من عدة صفحات إلى صفحة واحدة.zip   تحميل zip مرات التحميل :(69)
الحجم :(20.438) KB

توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


19-03-2018 02:39 مساء
مشاهدة مشاركة منفردة [2]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 473
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة
بارك الله فيك أستاذى الكبير وجزاك كل الخير ورزقك من حيث لا تحتسب
شكرا جزيلا لك

25-03-2018 12:52 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 534
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة
بارك الله فيك أخي الحبيب حسام ومشكور على حلولك المميزة

إثراءً للموضوع وإفادةً للأعضاء أقدم كود جديد باستخدام المصفوفات حيث يتم تخزين البيانات في كل أوراق العمل داخل مصفوفة ويتم وضع النتائج مرة واحدة  في ورقة النتائج ..
والكود سريع جداً في التعامل مع البيانات الكثيرة داخل الملف
Sub Consolidate_All_Sheets_In_One_Using_Arrays()
    Dim ws          As Worksheet
    Dim temp        As Variant
    Dim arr         As Variant
    Dim f           As Boolean

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Total" Then
            temp = ws.Range("A2:C" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value
            If f Then
                arr = ArrayJoin(arr, temp)
            Else
                arr = temp
                f = True
            End If
        End If
    Next ws

    With Sheets("Total")
        .Range("A1").Resize(1, 3).Value = Array("م", "الاسم", "الرقم الوظيفي")
        .Range("A2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    End With
End Sub

Function ArrayJoin(ByVal a, ByVal b)
    Dim i           As Long
    Dim ii          As Long
    Dim ub          As Long

    ub = UBound(a, 1)
    a = Application.Transpose(a)
    ReDim Preserve a(1 To UBound(a, 1), 1 To ub + UBound(b, 1))
    a = Application.Transpose(a)

    For i = LBound(b, 1) To UBound(b, 1)
        For ii = 1 To UBound(b, 2)
            a(ub + i, ii) = b(i, ii)
        Next ii
    Next i

    ArrayJoin = a
End Function

25-03-2018 01:15 مساء
مشاهدة مشاركة منفردة [4]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 473
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة
جزاك الله كل خير أستاذ ياسر وبارك الله فيك
انه حقا كود رائع-أحسنت وجعل الله لك مساعدة من يحتاج فى ميزان حسناتك دائما ,لك الشكر كله

25-03-2018 11:33 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 534
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة
تسلم أخي الكريم هاني .. بارك الله فيك
مشكور على كلماتك الطيبة ودعائك الطيب ، والشكر موصول لصاحب الطلعة الجوية الأولى أخونا حسام

25-03-2018 11:42 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 274
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة
المشاركة الأصلية كتبت بواسطة: YasserKhalil
تسلم أخي الكريم هاني .. بارك الله فيك
مشكور على كلماتك الطيبة ودعائك الطيب ، والشكر موصول لصاحب الطلعة الجوية الأولى أخونا حسام

كود من غير شرح انا كدا زعلت يرضيك ازعل
 
توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
اصلاح ، الترحيل ، صفحات ، صفحة ، واحدة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:34 صباحا