تقسيم الخلية التي بها بيانات إلى اعمدة

[Medo Basha]

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

ارجو التكرم بالمساعدة عندي خلية بصيغة نص وبها ارقام وتواريخ ونص واريد تقسيمها والفصل بين البيانات إلى اعمدة وخلايا مستقلة حتى استطيع التعامل معها 

retail » <No Org Unit> » 00007691 1.  2015/08/05 14:57:38  no        ret  Assigned      2018/04/17 18:22:57  no      050505        00007691

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

[سليم حاصبيا]

ارفع الملف للمعاينة

[Medo Basha]

اشكرك يا أستاذ سليم ، وافيدكم بأنه تم رفع عينة من الخلية في الطلب الأول

[سليم حاصبيا]

3 دقائق مضت, Medo Basha said:

اشكرك يا أستاذ سليم ، وافيدكم بأنه تم رفع عينة من الخلية في الطلب الأول

لم ار اي عينة من الخلية في الطلب الأول

اين الخلية و ما عنوانها و محتوياتها

[Medo Basha]

اشكرك يا أستاذ سليم ، وافيدكم بأنه تم رفع عينة من الخلية في الطلب الأول

retail » <No Org Unit> » 00007691

1.  2015/08/05 14:57:38  no        ret  Assigned      2018/04/17 18:22:57  no      050505        00007691

[Ali Mohamed Ali]

بعد اذن استاذنا الكريم سليم حاصبيا هذا الملف من أعماله القيمة التى مادامت باقية لنا ومنارة فى التعلم والتقدم

له منا كل الحب والمحبة والإحترام-جزاك الله كل خير

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

بارك الله فيك

 

تقسيم الخلية الى عدة أعمدة.xlsm

[Medo Basha]

تمام يا استاذ علي .. عمل ممتاز جداً وهو ده المطلوب بالفعل ... لكن كيف الطريقة ؟ لأني لم أفهم ولا يوجد معادلات في الورقة 

وبارك الله فيك .. تحياتي

[Ali Mohamed Ali]

هذا العمل بالأكواد VBA

 

[Medo Basha]

هل هناك طريقة لشرحها أو تبسيطها حتى استطيع التعامل مع الملفات 

بارك الله فيك

[Ali Mohamed Ali]

Option Explicit
'Sub split_name(rg)
''Dim MY_Name$
'Dim i%
'Dim k%: k = 7
''st = rg.Value
''MY_Name = Split(st, " ")
'For i = 0 To UBound(rg)
'   Cells(2, k) = rg(i)
' k = k + 1
'  Next
'End Sub
'Sub give_name()
'Dim arr
'Dim k%
'arr = Split(Range("a2"), " ")
'For i = 0 To UBound(rg)
'   Cells(2, k) = rg(i)
' k = k + 1
'  Next
'End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Row > 1 _
    And Target.Count = 1 Then
    Target.Offset(0, 1).Resize(, 4).ClearContents
    Dim i%
    Dim arr, k%: k = 2
    arr = Split(Trim(Target), " ")
        For i = 0 To UBound(arr)
        Cells(Target.Row, k) = arr(i)
         k = k + 1
        Next
  End If

 Application.EnableEvents = True
End Sub

أولا وضع هذا الكود الأول فى حدث ورقة العمل

ثم بعد ذلك قم بعمل وادخال موديول جديد وضع به هذا الكود الثانى :

 

 

 

تم تعديل يوليو 2, 2018 بواسطه ali mohamed ali

[Medo Basha]

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

لكن كيف اضع الكود ؟ وكيف اقوم بعمل وادخال موديول جديد ؟

وأسف على الإزعاج 

تحياتي

تم تعديل يوليو 2, 2018 بواسطه Medo Basha

[Ali Mohamed Ali]

لاحظ الصورة رقم 1 الخاصة بوضع الكود الأول الخاص بورقة العمل .

أما الكود الثانى الذى يوضع فى موديول نقوم بالتالى :

أولا أضغط على Alt F11 من لوحة المفاتيح عند فتح ملف الإكسيل

ستظهر نافذة جديدة كما بالصورة رقم 2 -فأضغط من الأعلى على insert ثم أختار Module

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

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

 

 

[Medo Basha]

بارك الله فيك وفي مجهودك الطيب وجزاكم الله خير  ... لكن للأسف من يومين وانا بحاول لكن لم يحدث شيء للملف ، فهل هناك طريقة شرح ابسط من هذه .. مع العلم أنني قمت بالخطوات بالضبط لكن لا يتغير شيء في الملف .. ومرفق سكرين شوت من العملية .. ولكم الشكر والتقدير 

تقسيم الخلية التي بها بيانات إلى اعمدة.xlsx

تم تعديل يوليو 4, 2018 بواسطه Medo Basha
اضافة ملف

[Ali Mohamed Ali]

أخى الكريم بعد وضع الكود فى ملف اكسيل جديد قم بحفظ الملف بهذه الصيغة :

Excel Macro-Enable Workbook(*.xlsm)

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

[أحمد يوسف]

أحسنت استاذ علي

تم تعديل يوليو 4, 2018 بواسطه أحمد يوسف500