اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

استخراج بيانات من خلية


إذهب إلى أفضل إجابة Solved by lionheart,

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

السلام عليكم 

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

أحتاج مساعدتكم في استخراج بيانات من خلية 

لدي ملف اكسيل (المرفق) به أكثر من الفين سجل 

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

احتاج فقط طريقة تظهر لي بيانات الاحداثيات X  &  Y  الموجودة في الخلية  لتكون احداثية X في عمود واحداثية Y في عمود آخر

وضعت مثال في الصف الاول يبين المطلوب 

كل الشكر والتقدير  مقدماً على عطائكم الدائم  لاحرمكم الله الثواب والأجر😊

بيانات وهمية.xls

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

  • أفضل إجابة
Sub Test()
    Dim r As Range, i As Long, c As Long
    Application.ScreenUpdating = False
        With CreateObject("VBScript.RegExp")
            .Global = True
            .Pattern = "\d+[.]\d+"
            For Each r In Range("C2", Range("C" & Rows.Count).End(xlUp))
                c = 4
                If .Test(r.Value) Then
                    For i = 0 To .Execute(r.Value).Count - 1
                        Cells(r.Row, c).Value = .Execute(r.Value)(i)
                        c = c + 1
                    Next i
                End If
            Next r
        End With
    Application.ScreenUpdating = True
End Sub

 

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

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

اريد ان تظهر الاحداثيات  بجانب كل خلية  يوجد بها احداثيه 

بحيث اعرف الاحداثيه  في عمودين   والبيانات  تبقى كما هي في الخليه c 

 

اتمنى اني قدرت اوضح طلبي  ربي يسعدكم 

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

الف شكر اخوي lionheart 

ماقصرت  الله يسعدك يارب 

اشتغل معي الكود الان بشكل صحيح  ,  والنتائج  مثل مااريد  بالضبط 

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

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

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