Jump to content
أوفيسنا

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


Go to solution Solved by ياسر خليل أبو البراء,

Recommended Posts

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

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

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

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

 في الخلية A2 = AMAE

شكراً

Link to post
Share on other sites
  • Solution

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

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

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)

 

  • Like 2
Link to post
Share on other sites

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

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

بن علية حاجي

 

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

  • Like 1
Link to post
Share on other sites
الان, ياسر خليل أبو البراء 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

Edited by احمد محمود عبد الفتاح
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...