نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية استخراج الحرف الأول من كل كلمة من الخلية؟

لنفترض أن لديك قائمة باسم البلدان في ورقة العمل الخاصة بك، والآن، تحتاج إلى استخراج الحرف الأول من كل كلمة في الخلية كما تظهر لقطات الشاشة التالية. عادة، لا توجد ميزة مباشرة لالتقاط الحرف الأول من كل كلمة في إكسيل. ولكن، هنا، يمكنني أن أتحدث عن وسيلة مفيدة لحل هذه المهمة.

وثيقة استخراج-أولا-letter1

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


السهم الأزرق الفقاعة اليمنىاستخراج الحرف الأول من كل كلمة من خلية مع وظيفة المعرفة من قبل المستخدم


في إكسيل، يمكنك إنشاء وظيفة تعريف المستخدم لاستخراج الحروف الأولى من كل كلمة في خلية. يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في نافذة الوحدة. </ p>

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3. ثم احفظ هذا الرمز وأغلقه، ارجع إلى ورقة العمل، وأدخل هذه الصيغة = GetFirstLetters (A2) (A2 يشير إلى الخلية التي تريد استخراج الحرف الأول، يمكنك تغييره كما تحتاج) في خلية فارغة. انظر لقطة الشاشة:

وثيقة استخراج-أولا-letter1

4. ثم اضغط أدخل مفتاح، وحدد خلية بكسنومك، ثم اسحب مقبض التعبئة إلى الخلايا التي تريد تطبيق هذه الصيغة. وقد تم استخراج جميع الحروف الأولى من سلسلة من الكلمات، انظر قطة:

وثيقة استخراج-أولا-letter1


مقالة ذات صلة:

كيفية استخراج الكلمة الأولى / الأخيرة / نث من سلسلة نصية في إكسيل؟



أدوات الإنتاجية الموصى بها

تبويب أوفيس

الذهب ستارسنومك يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد.

كوتولس ل إكسيل

الذهب ستارسنومك رائعة حقا! زيادة الإنتاجية في دقائق شنومكس. لا تحتاج إلى أي مهارات خاصة، حفظ ساعتين كل يوم!

الذهب ستارسنومك شنومكس ميزات جديدة ل إكسيل، جعل اكسل بكثير سهلة وقوية:

  • دمج الخلية / الصفوف / الأعمدة دون فقدان البيانات.
  • الجمع بين وتوثيق جداول متعددة و المصنفات.
  • مقارنة نطاقات، نسخ نطاقات متعددة، تحويل النص إلى التاريخ، وحدة وتحويل العملات.
  • العد بالألوان، الترحيل الفرعي الفرعي، فرز متقدم وفائق تصفية،
  • المزيد تحديد / إدراج / حذف / نص / تنسيق / رابط / تعليق / المصنفات / أدوات أوراق العمل ...

لقطة شاشة كوتولس ل إكسيل

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Oleg · 10 months ago
    Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы?
  • To post as a guest, your comment is unpublished.
    nawal jha · 2 years ago
    i think it has one bug, it's automatically removed from module when sheet is closed, need to again every time when open sheet same process to be required, please advice how to save this formula in excel permanently.
  • To post as a guest, your comment is unpublished.
    NoOne · 2 years ago
    Please include this part:

    If you create a function called DISCOUNT in a workbook called Personal.xlsb and you call that function from another workbook, you must type =personal.xlsb!discount(), not simply =discount().

    https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
  • To post as a guest, your comment is unpublished.
    Adam Pavey · 2 years ago
    Very helpful. Exactly what I was after.
  • To post as a guest, your comment is unpublished.
    Sridhar · 3 years ago
    Thank you very much.. its working.. u rocks