تحويل التقرير من عامودي الى افقي

[mmjksa]

تحية طيبة وكل عام وانتم بخير

لدي ملف اكسل به اسماء كثيره، والتقرير يظهر عامودي، حيث يكرر نفس الاسم والتاريخ والراتب يتغير

المطلوب احبتي: يكون التقرير افقي حسب المرفق

وشكرا

 

Report1.rar

[ياسر خليل أبو البراء]

السلام عليكم

يرجى تغيير اسم الظهور للغة العربية أخي الكريم

جرب الكود التالي .. ضع الكود في موديول عادي وبعد تنفيذ الكود ستجد النتائج في ورقة2

Sub Test()
    Dim coll As New Collection, arr, maxItem As Long, i As Long, j As Long, str1 As String, v1, v2

    arr = Sheets("Sheet1").Range("A1:C" & Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row).Value

    For i = 1 To UBound(arr, 1)
        str1 = CStr(arr(i, 1))

        On Error Resume Next
            coll.Add Key:=str1, Item:=New Collection
        On Error GoTo 0

        If coll(str1).Count = 0 Then coll(str1).Add str1
        For j = 2 To UBound(arr, 2)
            If Len(arr(i, j)) Then coll(str1).Add CStr(arr(i, j))
        Next j
    Next i

    For Each v1 In coll
        If v1.Count > maxItem Then maxItem = v1.Count
    Next v1

    ReDim arr(1 To coll.Count, 1 To maxItem)
    i = 0
    For Each v1 In coll
        i = i + 1
        j = 0
        For Each v2 In v1
            j = j + 1
            arr(i, j) = v2
        Next v2
    Next v1

    For j = 3 To maxItem - 2 Step 2
        arr(1, j + 1) = "الشهر"
        arr(1, j + 2) = "الراتب"
    Next j

    Sheets("Sheet2").Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub

 

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

بعد اذن اخي ياسر

ربما يكون المطلوب (معادلات)

انظر الى الصفحة Salim

 

Report_salim.rar

[mmjksa]

شكرا للجميع جاري التجربه

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب سليم

بعد الإطلاع على ملفك وجدت أنك قمت بتحويل البيانات من أفقي لعمودي ، وليس كما هو مطلوب في عنوان الموضوع من عمودي لأفقي

 

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

2 ساعات مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي الحبيب سليم

بعد الإطلاع على ملفك وجدت أنك قمت بتحويل البيانات من أفقي لعمودي ، وليس كما هو مطلوب في عنوان الموضوع من عمودي لأفقي

 

اخي ياسر 

انا اعتبرت ان الييانات الاساسية من العامود F الى العامود P و عدد الصفوف وضعتها 50

 و تم نقلها الى النطاق C & A (ربما اكون مخطأ لكن لتكن فكرة جيدة عن امكانيات الاكسل)

ساحاول ان أعمل العكس و تنفيذ المطلوب عن طريق المعادلات

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

تم معالجة امر بشكل صحيح

انظر الى الورقة Report

Report_salim.rar

[ياسر خليل أبو البراء]

أخي الحبيب سليم جرب حذف النطاق A5:C6 ولاحظ النتائج ..

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

3 ساعات مضت, ياسر خليل أبو البراء said:

أخي الحبيب سليم جرب حذف النطاق A5:C6 ولاحظ النتائج ..

اخي باسر

تم حذف النطاق المطلوب و لم الحظ اي شيء غير عادي

اليك المرفق

Report_salim1.rar

[ياسر خليل أبو البراء]

قصدت حذف النطاق وليس مسح محتوياته ...

[mmjksa]

بارك الله فيكم لتفاعلكم معي

جربت كود الاستاذ/ ياسر ولكن ظهر لي خطاء ، انظر المرفق

 

وجربت كود الاستاذ/ سليم ولم استطع ان اتحكم في المعادلة

واكرر شكري للجميع

[ياسر خليل أبو البراء]

أخي الكريم ارفق الملف الذي به الخطأ .. لربما اسم ورقة العمل لديك ورقة1 وليس Sheet1 كما بالكود ، لو كان الأمر كذلك قم باستبدال Sheet1 إلى ورقة1 في أسطر الكود ، وSheet2 إلى ورقة2 .. أو ارفق الملف للإطلاع عليه

[mmjksa]

عدلتها حسب طلبك ونفس المشكلة

والملف مرفق وشكرا

 

Report2.rar

تم تعديل يوليو 2, 2017 بواسطه mmjksa

[ياسر خليل أبو البراء]

تم تعديل الكود في المشاركة رقم 2 .. لأن الاسم البرمجي مختلف في ملفك المرفق الأخير .. لذا اعتمدت في التعديل على اسم ورقة العمل Sheet1 وSheet2

النتائج بعد التنفيذ ستكون في ورقة العمل Sheet2

[mmjksa]

ممتاز وبارك الله فيك

سوف اجربه على الملف الكبير

هل بالامكان حذف الاسطر الفارغه  ؟

وكذلك يكون نهاية التقرير عند خلية ( ال ) والباقي يكملة في السطر اللي بعده مثل الصوره

عشان شكل التقرير يطلع جميل ؟

وشكرا

 

 

تم تعديل يوليو 3, 2017 بواسطه mmjksa

[ياسر خليل أبو البراء]

ارفق ملف معبر عن المطلوب بالنسبة للأسطر الفارغة .. الكود يقوم بإظهار النتائج بدون أسطر فارغة أم أن الأسطر الفارغة لديك في البيانات الخام في الملف .. وإذا كان الأمر كذلك لما لا تقوم بحذف الأسطر الفارغة قبل تنفيذ الكود ؟!

[mmjksa]

اخي العزيز، بارك الله فيك، كلام جميل استطيع حذف الفراغات حتى في الناتج النهائي

 

طيب بالنسبة للطلب الثاني هل بالامكان مساعدتي فيه،

لان عند تنفيذه على البيانات الحقيقه ظهر لي سطر طويل جدا، ففي حالة الطباعه صعب وفي حالة مراجعة على الشاشة كذلك صعب.

مع شكري لك باهتمامك

[ياسر خليل أبو البراء]

إذا كانت النتائج في سطر طويل فسيكون من الصعب الطباعة بالفعل .. ولا أعلم كيف لي أن أساعدك بهذه النقطة؟

يمكنك فقط استخدام التبويب View ثم Page Break Preview وتقوم بتحديد نطاق الطباعة بشكل يدوي ، ولكن هذا سيؤثر بالسلب على الشكل العام للورقة المطبوعة ..

هذا والله أعلم

[mmjksa]

بارك الله فيك 

وشكرا على اهتمامك ومساعدتك

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم

والحمد لله الذي بنعمته تتم الصالحات