مساعدة في ترتيب بيانات

[hanyvip]

السلام عليكم ورحمة الله وبركاته

الرجاء من الجميع محاولة المساعدة في تحويل الارقام من الصيغة المرفقة بالملف الى الصيغة الجديدة الموجودة

السنوات موجودة في الاعمدة اريدها السنوات وبياناتها تنقل تحت بعض بحيث يكون هناك عمود للاعوام ويقابل كل عام بياناته

وشكرا على الاهتمام والمساعدة وانا اثق في قدرات اعضاء المنتدى ومشرفيه

Book2.rar

[طارق محمود]

السلام عليكم

تفضل المرفق

عن طريق المعادلة

=OFFSET($A$3,MATCH(A18,$A$4:$A$9),MATCH(B18,$B$3:$D$3))

Book2-Tareq.rar

[hanyvip]

شكرا اخي العزيز طارق

بس يا روقة انا اللى اتمناه انى احول الجدول اللى فوق الى الجدول الموجود تحت

يعني الجدول اللى فوق فيه السنوات بطريقة جنب بعض وكل سنة قيمها تحتها المطلوب هو السنوات كلها في عموم واحد ومقابل كل دولة وكل سنة القيمة المقابلة لها (كما في الجدول الثاني)

جزاك الله خير وفي انتظار ابداعك

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

بارك الله فيك باشمهندس طارق

مبدع دائماً وأبداً وكل يوم نتعلم منك المزيد والمزيد

الأخ هاني طلبك غير واضح إلى حدٍ ما

عموماً اللي فهمته ::::

ممكن تنسخ الجدول الأول وتقف في خلية فارغة وليكن H1 ثم اضغط كليك يمين واخنر الأمر Paste Special ثم علم علامة صح بجانب كلمة Transpose

أخوك أبو البراء

[hanyvip]

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

وبانتظار الطريقة جزاكم الله خير

اخي العزيز ببساطة ما اريد هو

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

المطلوب وضع البيانات كما يلي:

- بقاء عمود الدول كما هو

- عمل عمود بالسنوات المتاحة (تحت بعض وحسب ترتيب الدول السابق)

- أمام كل عام وكل دولة القيمة المقابلة لها

وطريقة التدوير لا تصلح هنا

النهاية : شكل البيانات تكون قابلة لعمل قاعدة بيانات: عمود للدول - عمود للسنوات - عمود للقيم الموجودة

والف شكر لمن ساهم ويحاول معنا

[طارق محمود]

السلام عليكم

أخي الحبيب ياسر - أبو البراء

جزاك الله خيرا علي كلامك الطيب

حسب ما فهمت أن الأخ هاني لايريد النسخ بل يريد النقل بالمعادلات

عموما مرفق ماطلب حسب ما فهمت

Book3-Tareq.rar

[hanyvip]

الف الف شكر يا طارق

وجزاك الله خيرا

لو بس يتسع صدرك

لماذا 17 - 1 في Last Row

ولك كل الشكر والتقدير

هل لأنك بدأت التحويل في السطر رقم 17؟

[hanyvip]

اخي طارق

جزاك الله خيرا وجعله في ميزان حسناتك

سؤالى الاخير لك

لماذ 17 - 1 في دالة last row

[طارق محمود]

الحمد لله

ردا علي سؤالك

في الجدول العلوي

عدد البلاد 6

عدد السنوات 3

إجمالي 3×6 =18

أي ان هذه البيانات سيتم إفرادها في 18 صف بدءا من الصف 17

وحيث أن الصف 17 يدخل في العدد فنطرح 1

في الجدول السفلي

نبدأ من الصف 17

وستلاحظ أن المعادلات موجودة أسفل الصف الأخير 34

ولكنها لاتعطي شيئا لأن صفها اكبر من 34

بحيث أن لو الجدول العلوي زاد صف أو صفين أو عدة أعمدة

فيتغير الناتج هذه الخلية

تم تعديل يوليو 27, 2010 بواسطه TareQ M

[عبد الفتاح كيرة]

هذا نقل بالكود

امسح البيانات

واضغط الزر

Sub Macro3()

'


'


'

    Columns("G:G").ColumnWidth = 14

    Columns("F:F").ColumnWidth = 12.75

    Range("A3:A9").Select

    Selection.Copy

    Range("F3").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("F4:F9").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("F10").Select

    ActiveSheet.Paste

    Range("F16").Select

    ActiveSheet.Paste

    Columns("F:F").EntireColumn.AutoFit

    Range("G3").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "year"

    Range("B3").Select

    Selection.Copy

    Range("G4").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.AutoFill Destination:=Range("G4:G9"), Type:=xlFillDefault

    Range("G4:G9").Select

    Range("C3").Select

    Selection.Copy

    Range("G10").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.AutoFill Destination:=Range("G10:G15"), Type:=xlFillDefault

    Range("G10:G15").Select

    Range("G16").Select

    ActiveCell.FormulaR1C1 = "1979"

    Range("G16").Select

    Selection.AutoFill Destination:=Range("G16:G21"), Type:=xlFillDefault

    Range("G16:G21").Select

    Range("B4:B9").Select

    Selection.Copy

    Range("H4").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("C4:C9").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("H10").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("D4:D9").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("H16").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("F3").Select

    Application.CutCopyMode = False

End Sub

المرفقات

Bookemas2.zip

تم تعديل يوليو 27, 2010 بواسطه kemas

[الحسامي]

السلام عليكم

جزاكم الله خيرا احبائي

ولاثراء الموضوع هنا حل بالكود التالي

ومرفق ملف

r = 18

For i = 2 To 4

For j = 4 To 9

Cells(r, 1) = Cells(j, 1)

Cells(r, 2) = Cells(3, i)

Cells(r, 3) = Cells(j, i)

r = r + 1

Next j

Next i

Book2معدل.rar

[أبوعبد الله]

أخواني وأحبائي / طارق و عماد

مدارس وإبداعات .

تحياتي

أبو عبدالله

[hanyvip]

الف شكر للجميع واحد واحد

TareQ M

الحسامي

kemas

أبو عبد الله

والله انا عاجز عن الشكر

وخصوصا انها حلت مشكلة كبيرة بالنسبة للتعامل مع قواعد البيانات والتقارير

هل نستطيع التعميم على الكود بحيث يكون لا نهائي

يعنى لا يشترط معرفة عدد الخلايا مسبقا؟

ايه رأيكم في التحديات دي وووووووانتم أدها

وجزاكم الله كل خير

[عبد الفتاح كيرة]

طبعا يمكن إن شاء الله

لكن المشكلة

أن الجدول الأصلى غير منظم

خاصة خانة السنة

[الحسامي]

السلام عليكم

بارك الله فيك اخي ابو عبدالله على كلامط الطيب والجميل

اخي هاني

لجعل هذا الكود غير مرتبط بعدد السنوات

وجعله يعمل بناءا على عدد السنوات

فقط قم بتغير الحد الاعلى لجملة الدوران

بهذا السطر

For i = 2 To Application.WorksheetFunction.CountA(Range("b3:iv3")) + 1

عماد الحسامي

[hanyvip]

السلام عليكمورحمة الله وبركاته

بارك الله فيكم الخوة ابو عبدالله و الأخ عماد الحسامي

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

كل الشكر لكم اخواني الاعزاء وجزاكم الله عنا كل خير

[hanyvip]

هل من مساعدة فقد فشلت في التطبيق

اريد فقط البيانات في صورة اربعة اعمدة

1- المتغير (القياس)

2- الدولة

3- العام

4- القيمة

مع العلم انه يوجد اكثر من متغير اسفل هذا المتغير

والحكمة من العمل هو التعميم بحيث يطبق العمل على اى عدد من السنوات والدول والمتغيرات

طمعان في كرمكم وعلمكم

وجزاكم الله خيرا

officena Dataset.rar

تم تعديل أغسطس 1, 2010 بواسطه hanyvip

[طارق محمود]

السلام عليكم تفضل المرفق به كود مقتبس من كود أخونا الحسامي بارك الله فيه وفي أعماله

officena Dataset2.rar

[الحسامي]

السلام عليكم

ما شاء الله عليك أخي طارق

تعلمنا وسنتعلم منك

بارك الله فيك وجزاك الله خيراً

وهنا تعديل على الكود السابق

officena Dataset11.rar