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

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


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

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

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

الكود التالي يقوم بتسمية  الصفحات باسم الطالب الموجود في الخلية 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

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

بالتوفيق

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

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

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

Important Information