hanyvip قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 السلام عليكم ورحمة الله وبركاته الرجاء من الجميع محاولة المساعدة في تحويل الارقام من الصيغة المرفقة بالملف الى الصيغة الجديدة الموجودة السنوات موجودة في الاعمدة اريدها السنوات وبياناتها تنقل تحت بعض بحيث يكون هناك عمود للاعوام ويقابل كل عام بياناته وشكرا على الاهتمام والمساعدة وانا اثق في قدرات اعضاء المنتدى ومشرفيه Book2.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 السلام عليكم تفضل المرفق عن طريق المعادلة =OFFSET($A$3,MATCH(A18,$A$4:$A$9),MATCH(B18,$B$3:$D$3)) Book2-Tareq.rar رابط هذا التعليق شارك More sharing options...
hanyvip قام بنشر يوليو 27, 2010 الكاتب مشاركة قام بنشر يوليو 27, 2010 شكرا اخي العزيز طارق بس يا روقة انا اللى اتمناه انى احول الجدول اللى فوق الى الجدول الموجود تحت يعني الجدول اللى فوق فيه السنوات بطريقة جنب بعض وكل سنة قيمها تحتها المطلوب هو السنوات كلها في عموم واحد ومقابل كل دولة وكل سنة القيمة المقابلة لها (كما في الجدول الثاني) جزاك الله خير وفي انتظار ابداعك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 بارك الله فيك باشمهندس طارق مبدع دائماً وأبداً وكل يوم نتعلم منك المزيد والمزيد الأخ هاني طلبك غير واضح إلى حدٍ ما عموماً اللي فهمته :::: ممكن تنسخ الجدول الأول وتقف في خلية فارغة وليكن H1 ثم اضغط كليك يمين واخنر الأمر Paste Special ثم علم علامة صح بجانب كلمة Transpose أخوك أبو البراء رابط هذا التعليق شارك More sharing options...
hanyvip قام بنشر يوليو 27, 2010 الكاتب مشاركة قام بنشر يوليو 27, 2010 شكرا لكم جميعا وبانتظار الطريقة جزاكم الله خير اخي العزيز ببساطة ما اريد هو البيانات بها السنوات في الاعمدة وكذلك الدول بالاعمدة المطلوب وضع البيانات كما يلي: - بقاء عمود الدول كما هو - عمل عمود بالسنوات المتاحة (تحت بعض وحسب ترتيب الدول السابق) - أمام كل عام وكل دولة القيمة المقابلة لها وطريقة التدوير لا تصلح هنا النهاية : شكل البيانات تكون قابلة لعمل قاعدة بيانات: عمود للدول - عمود للسنوات - عمود للقيم الموجودة والف شكر لمن ساهم ويحاول معنا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 السلام عليكم أخي الحبيب ياسر - أبو البراء جزاك الله خيرا علي كلامك الطيب حسب ما فهمت أن الأخ هاني لايريد النسخ بل يريد النقل بالمعادلات عموما مرفق ماطلب حسب ما فهمت Book3-Tareq.rar رابط هذا التعليق شارك More sharing options...
hanyvip قام بنشر يوليو 27, 2010 الكاتب مشاركة قام بنشر يوليو 27, 2010 الف الف شكر يا طارق وجزاك الله خيرا لو بس يتسع صدرك لماذا 17 - 1 في Last Row ولك كل الشكر والتقدير هل لأنك بدأت التحويل في السطر رقم 17؟ رابط هذا التعليق شارك More sharing options...
hanyvip قام بنشر يوليو 27, 2010 الكاتب مشاركة قام بنشر يوليو 27, 2010 اخي طارق جزاك الله خيرا وجعله في ميزان حسناتك سؤالى الاخير لك لماذ 17 - 1 في دالة last row رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 (معدل) الحمد لله ردا علي سؤالك في الجدول العلوي عدد البلاد 6 عدد السنوات 3 إجمالي 3×6 =18 أي ان هذه البيانات سيتم إفرادها في 18 صف بدءا من الصف 17 وحيث أن الصف 17 يدخل في العدد فنطرح 1 في الجدول السفلي نبدأ من الصف 17 وستلاحظ أن المعادلات موجودة أسفل الصف الأخير 34 ولكنها لاتعطي شيئا لأن صفها اكبر من 34 بحيث أن لو الجدول العلوي زاد صف أو صفين أو عدة أعمدة فيتغير الناتج هذه الخلية تم تعديل يوليو 27, 2010 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 (معدل) هذا نقل بالكود امسح البيانات واضغط الزر 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 رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 السلام عليكم جزاكم الله خيرا احبائي ولاثراء الموضوع هنا حل بالكود التالي ومرفق ملف 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 رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 أخواني وأحبائي / طارق و عماد مدارس وإبداعات . تحياتي أبو عبدالله رابط هذا التعليق شارك More sharing options...
hanyvip قام بنشر يوليو 28, 2010 الكاتب مشاركة قام بنشر يوليو 28, 2010 الف شكر للجميع واحد واحد TareQ M الحسامي kemas أبو عبد الله والله انا عاجز عن الشكر وخصوصا انها حلت مشكلة كبيرة بالنسبة للتعامل مع قواعد البيانات والتقارير هل نستطيع التعميم على الكود بحيث يكون لا نهائي يعنى لا يشترط معرفة عدد الخلايا مسبقا؟ ايه رأيكم في التحديات دي وووووووانتم أدها وجزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 28, 2010 مشاركة قام بنشر يوليو 28, 2010 طبعا يمكن إن شاء الله لكن المشكلة أن الجدول الأصلى غير منظم خاصة خانة السنة رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 28, 2010 مشاركة قام بنشر يوليو 28, 2010 السلام عليكم بارك الله فيك اخي ابو عبدالله على كلامط الطيب والجميل اخي هاني لجعل هذا الكود غير مرتبط بعدد السنوات وجعله يعمل بناءا على عدد السنوات فقط قم بتغير الحد الاعلى لجملة الدوران بهذا السطر For i = 2 To Application.WorksheetFunction.CountA(Range("b3:iv3")) + 1 عماد الحسامي رابط هذا التعليق شارك More sharing options...
hanyvip قام بنشر يوليو 29, 2010 الكاتب مشاركة قام بنشر يوليو 29, 2010 السلام عليكمورحمة الله وبركاته بارك الله فيكم الخوة ابو عبدالله و الأخ عماد الحسامي نفعنا الله بعلمكم وزادكم تقوى وعلم ونور من الله وسبحانه وتعالى وجعله الله لكم طريقا الى الجنة وزاد لكم في رزقكم ووسع عليكم من فضله وبركاته كل الشكر لكم اخواني الاعزاء وجزاكم الله عنا كل خير رابط هذا التعليق شارك More sharing options...
hanyvip قام بنشر أغسطس 1, 2010 الكاتب مشاركة قام بنشر أغسطس 1, 2010 (معدل) هل من مساعدة فقد فشلت في التطبيق اريد فقط البيانات في صورة اربعة اعمدة 1- المتغير (القياس) 2- الدولة 3- العام 4- القيمة مع العلم انه يوجد اكثر من متغير اسفل هذا المتغير والحكمة من العمل هو التعميم بحيث يطبق العمل على اى عدد من السنوات والدول والمتغيرات طمعان في كرمكم وعلمكم وجزاكم الله خيرا officena Dataset.rar تم تعديل أغسطس 1, 2010 بواسطه hanyvip رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 1, 2010 مشاركة قام بنشر أغسطس 1, 2010 السلام عليكم تفضل المرفق به كود مقتبس من كود أخونا الحسامي بارك الله فيه وفي أعماله officena Dataset2.rar رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر أغسطس 1, 2010 مشاركة قام بنشر أغسطس 1, 2010 السلام عليكم ما شاء الله عليك أخي طارق تعلمنا وسنتعلم منك بارك الله فيك وجزاك الله خيراً وهنا تعديل على الكود السابق officena Dataset11.rar رابط هذا التعليق شارك 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.