اذهب الي المحتوي
أوفيسنا

احتاج مساعدة ضرورية في تحويل dataset من عمود الى سجل


Thamer383
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

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

 

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

 

هذا شكل البيانات التي لدي

 

ArgkGKgW3EIGd9L0_9E8CzwM7R10hU0gP5cAgfGVUJ4a9wbVXho966SkPtdG772Y4ZkU2ANAoJe0iSdlxsAt7rmJLUeC9tEup1SwVh8ncMLdJr1MR8SrwQdA5MvC_wedZ_YieApzCFtET8ApqqflEFXVL_8Ah1nUq2u5nLVA7oR5JCiL9TSGGWbHdpN1rjrVmZlPBFL9Mh7y2BtZP7FcgvkgZXPLbWjJbOSSry3Sgbvh-WakdbDI-ugkP-pHiKWEPxcdpYbTAQv2r3Ejt8_uhmFUBF5d_0kkTifQpwvfzEV1fyzM8FP8QdysQcDN6caK51oEj8p43H5Ao6wzR65Ir6YvT-UGbiry6KRKwCq0D4mlvE5ArbtbGnCmNFxEcO7JWKwpumqsajOWUynIaSkEPbfRgfNJQYlOk1ZtQ75pQe57zV2CyLbuwi6NduJjbHvHuaxXYVZMzTksM5EXFhH-cO_RPcz9FrYC3gp0MM0c2JaYgHsR0vmBWWPZ1xwdluuytyj9t3AD2LMOZ2fEVgBGknrAgPnTATtaxX4OQb5TsaOJKIK28YpiouBsYOUZZtC05NHdhZqnnT9kkD6CQgJVxNzXxTbEB37GJQxcG03z_FDEnHDPpL2ciCZao1k-5fCAD4qVkSo5306SfDQwOFd80zHPN9l2CZyK7oQtzAuej6_5HZ6haV7xJ8mIA4P9dfT6qEpqXJP4PcRlM0qIG_nJ00Y0=w588-h277-no?authuser=0

اريد تحويلها الى هذا الشكل بحيث يكون سجل واحد فيه كل المعلومات الخاصة بالطالب

LwZix_y21U4-M8kcQl3KoBzhHuqR_WpWf4y6-RaIDTbQyIbtwUFpc5WHnr3FhBTLx0aFo05WPyxS-YBfGVaSE9HqQRcMdNWoYsBQrIqesKUCmYGmmbTD_RrCfLw4542MFwC2PjpVSaNCrBxtbg24vimvbWFHiaCvcAheC_bBBWzLbj-6xVJN4uss2vHhz5lLmDUI3SvgJbVYxgoprq2F95pD_2NjmGhMPZzo3R7a40w0uk1BrhwW4PcoiY_3uIFRYBppeRMfHCMrVeZUIbDvxwduv5iGhPExgUGAKhuGsZ38wI9s0OtLe0DjL3r83j4Rext51ArKl3zrCFkESrlPjUZCSRz7pd0s-VGkd1k8ozpzpfMBtaLbbvhwA9ccHanVh8pIVrdFT5RmkJRfRLR2P02Kw0pKJrGtaRbeXlLBb2aXm3pNSiND0Zb8tTrPDaCGHzDN-7VSe9phWfRcGPj22v4AijVTKlr9YgsFZVlYb_JtjyAXuin6v54EKQ1DtmTQ6yKLdtD-VJ41bQOve9w-9_R8RDlFHW3mpegLsfN0JwA7wplSQ4X68Ji_Tg4-wt2ILESG2Z7KFvabEkX9roT91IRRVeDlIGwT3CbHXgAe6WHPDGitO5gUjfD53OYKOcxmQuRJ0jSO808Ubkykz5NeYzqUsw54Cd2waLguDdyVVUjVq6cDjUafiCf5yv0kIcdMY6u_MQbJJEqcKIAC6jIgM0UH=w764-h89-no?authuser=0

رابط هذا التعليق
شارك

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

يفضل إرفاق مثال من الملف للعمل عليه

وسيراعي الكود زيادة عدد الصفوف

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل 

إن شاء اللّه يفيدك هذا المرفق

EXAMPLE.xlsb

  • Like 2
رابط هذا التعليق
شارك

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

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information