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

[bachiri401]

المثال في النموذج المرفق وبارك الله فيكم

Microsoft Office Excel Worksheet جديد ‫‬.xlsx

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

اذا كانت لا توجد يمكن اختراعها

Function Salim_First_Letter(st As String)
Dim i%
 Dim my_text$: my_text = Left(st, 1)
 Dim arr: arr = Split(st)
  For i = 1 To UBound(arr)
    my_text = my_text & " " & Left(arr(i), 1)
    Next
   Salim_First_Letter = my_text
End Function

 

First_Letters.xlsm

[Ali Mohamed Ali]

أحسنت استاذ سليم بارك الله فيك عمل رائع

[وجيه شرف الدين]

الله عليك استاذ سليم بارك الله فيكم وجعله فى ميزان حسناتك

[bachiri401]

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