Thamer383 قام بنشر سبتمبر 22, 2021 مشاركة قام بنشر سبتمبر 22, 2021 السلام عليكم ورحمة الله وبركاتة انا اقوم بعمل دراسة بحثية على مجموعة بيانات ولكن الجهه التي صدرت لي البيانات صدرتها لي بطريقة لا تتناسب مع طريقة البحث حيث ان رقم الطالب مكرر 5 مرات بعدد المواد لذلك اريد تحويله الى سجل واحد هذا شكل البيانات التي لدي اريد تحويلها الى هذا الشكل بحيث يكون سجل واحد فيه كل المعلومات الخاصة بالطالب رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 22, 2021 مشاركة قام بنشر سبتمبر 22, 2021 عليكم السلام ورحمة الله وبركاته يفضل إرفاق مثال من الملف للعمل عليه وسيراعي الكود زيادة عدد الصفوف رابط هذا التعليق شارك More sharing options...
Thamer383 قام بنشر سبتمبر 22, 2021 الكاتب مشاركة قام بنشر سبتمبر 22, 2021 @ أ / محمد صالح .. شكرا لسرعة تجاوبك وتم ارفاق مثال من الملف EXAMPLE.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 22, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 22, 2021 تفضل إن شاء اللّه يفيدك هذا المرفق EXAMPLE.xlsb 2 رابط هذا التعليق شارك More sharing options...
Thamer383 قام بنشر سبتمبر 22, 2021 الكاتب مشاركة قام بنشر سبتمبر 22, 2021 @ أ / محمد صالح شكرا لك استاذ محمد , فعلا حليت لي المشكلة بارك الله في علمك وعملك .. تقبل شكري وتقدري 1 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر سبتمبر 22, 2021 مشاركة قام بنشر سبتمبر 22, 2021 Sub Test() Dim cn As Object, rs As Object, i As Long With Worksheets("Data") Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Open ConnectionString:="Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;""" rs.Open "Transform First(Grade) Select ID, Gender, College, GPA, GPA2 From `" & .Name & "$A1:G` Where ID Is Not Null Group By ID, Gender, College, GPA, GPA2 Pivot Subject;", cn, 3 With Worksheets("Report").Range("A1") .CurrentRegion.ClearContents .Range("A2").CopyFromRecordset rs For i = 0 To rs.Fields.Count - 1 .Cells(1, i + 1) = rs.Fields(i).Name Next i End With End With Set cn = Nothing: Set rs = Nothing End Sub 2 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 آمين ولك بالمثل ويزيد رابط هذا التعليق شارك 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.