فصل الاسماء الرباعية الى اسماء ثلاثية

فصل اسم ولى الامر عن الاسم الاول

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

واسم ولى الامر ثلاثي منفصل

ونظرا لاختلاف الاسماء من

على -ابراهيم - اسماعيل - مى

فى طول السلسلة النصية يصعب فصلها من تبويب DATA-TEXT TO COLUMNS

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

اليك الطريقة

1- اذهب للمطور developer

2- فيجوال بيزيك visual Basic

3- ادراج مديول Insert Mediol

4- ادخل الكود التالى والمشروح فى الفيديو

Sub تغيرالاسماء() Dim lr As Long Dim i As Integer Dim arr() As String Dim s As String Dim s1 As String Dim s2 As String With Sheets("اسماء الطلاب") lr = .Cells(.Rows.Count, "c").End(xlUp).Row For i = 2 To lr arr = Split(.Cells(i, 3).Value) s1 = arr(0) s2 = arr(1) & " " & arr(2) & " " & arr(3) s = arr(1) & " " & arr(2) .Cells(i, 5).Value = s .Cells(i, 4).Value = s1 .Cells(i, 6).Value = s2 Next i End With End Sub

5-اذهب للشيت وادرج شكل مستطيل Inserted shapes

6- كليك يمين على الشكل ثم تعيين ماكرو Macro Assignment

واختر الماكرو المحدد امامك

7- الان اضغط على الشكل سيفصل لك الاسماء