عمل اختصار لجملة باستخادم أول حرف من كل كلمة

[احمد محمود عبد الفتاح]

السلام عليكم إخواتي الكرام

هل يوجد معادلة تختصر جملة بأخذ أول حرف من كل كلمة

مثلاً لو في خلية A1 = Ahmed Mahmoud Abd Elfattah

معادلة لتحويلها 

 في الخلية A2 = AMAE

شكراً

[ياسر خليل أبو البراء]

وعليكم السلام أخي أحمد

جرب الدالة المعرفة التالية علها تفي بالغرض

Function Initials(str As String) As String
    Dim sTemp()     As String
    Dim i           As Long

    sTemp = Split(str)

    For i = 0 To UBound(sTemp)
        If sTemp(i) Like "[أ-ي]*" Or UCase(sTemp(i)) Like "[A-Z]*" Then
            Initials = Trim(Initials & "" & UCase(Left(sTemp(i), 1)))
        End If
    Next i
End Function

لاستخدام الدالة في ورقة العمل

=Initials(A1)

 

[بن علية حاجي]

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

أضيف إلى حل أخي العزيز أبو البراء، جازاه الله خير الجزاء، ثلاثة حلول اثنين منها بالمعادلات (واحدة مباشرة والأخرى غير مباشرة) والحل الثالث عبارة عن توجيه إلى خاصية جديدة في إكسيل 2013 و 2016...

بن علية حاجي

 

استخراج آوائل حروف كلمات في خلية.rar

[احمد محمود عبد الفتاح]

الان, ياسر خليل أبو البراء said:

وعليكم السلام أخي أحمد

جرب الدالة المعرفة التالية علها تفي بالغرض

Function Initials(str As String) As String
    Dim sTemp()     As String
    Dim i           As Long

    sTemp = Split(str)

    For i = 0 To UBound(sTemp)
        If sTemp(i) Like "[أ-ي]*" Or UCase(sTemp(i)) Like "[A-Z]*" Then
            Initials = Trim(Initials & "" & UCase(Left(sTemp(i), 1)))
        End If
    Next i
End Function

لاستخدام الدالة في ورقة العمل

=Initials(A1)

 

شكراً أخ ياسر  وأخ بن عليه على تعاونكما

وأثقل عليكم بإضافه

لو كانت الخلية تحتوي على كمات باللغة العربية واللغة الإنجليزية ورموز مثل ( الأقواس مثلا)

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

فمثلا الخلية A1 = احمد محمود عبد الفتاح  (Ahmed Mahmoud Abd Elfattah )

أرغب أن يكون الناتج = AMAE

تم تعديل يوليو 17, 2017 بواسطه احمد محمود عبد الفتاح

[ياسر خليل أبو البراء]

جرب تحذف الجزء ده من الدالة المعرفة

sTemp(i) Like "[أ-ي]*" Or