تعديل على الماكرو الاسم

[محمد عدنان]

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

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

المطلوب حفظ  اسم الشيت باسم الطالب  مكون  من رقم يكون في الخلية aj1  مع الاسم الاول و الاخير  للطالب الموجود في الخلية N14

ما هو التعديل على الماكرو ؟.

Sub Rename_Worksheets()
    Dim i As Long
    For i = 1 To Sheets.count
        If Worksheets(i).Name <> "cer" And Worksheets(i).Name <> "Table" And Worksheets(i).Name <> "VS" Then
            If Worksheets(i).Range(Trim("N14")).Value <> "" Then
                Sheets(i).Name = Worksheets(i).Range(Trim("n14")).Value
            End If
        End If
    Next i
    Sheets("Value").Activate
End Sub

 

 

[أ / محمد صالح]

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

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

=LEFT(N14,FIND(" ",N14)-1)

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

=RIGHT(N14,LEN(N14)-FIND("*",SUBSTITUTE(N14," ","*",LEN(N14)-LEN(SUBSTITUTE(N14," ","")))))

تم تدمج الحلايا الثلاث في خلية واحدة

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

=aj1&" "&aj2&" "&aj3

وتكون هذه هي خلية اسم الشيت

بالتوفيق

[محمد عدنان]

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

الاستاذ @أ / محمد صالح جزاك الله كل خير  في ميزان حسناتك 

كل الاحترام لكم و جزاكم الله كل خير 

[أ / محمد صالح]

جميعا بإذن الله