İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Mətn dizgələrindən başlıca məktubla başlayan böyük harf və ya sözləri necə çıxarmaq olar?

Mətn dizilərinizin bir siyahısı varsa, indi bütün böyük hərfləri və ya hüceyrələrdən gələn böyük bir məktubla başlayan sözləri çıxarmaq istəyir. Excel-də bunu necə həll edə bilərsən?

İstifadəçi Tanımlı funksiyası ilə mətn dizələrindən baş harfləri çıxarın

İstifadəçi Tanımlı funksiyası ilə mətn dizələrindən başlıqlı məktublarla başlayan sözləri çıxarın


İstifadəçi Tanımlı funksiyası ilə mətn dizələrindən baş harfləri çıxarın


Aşağıdakı VBA kodu hüceyrələrdən yalnız başlıca məktubları çıxarmanıza kömək edə bilər, xahiş edirik bunu edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Yalnız mətn lentlərindən baş harfləri çıxarın:

Function ExtractCap (Txt As String) kimi String 'Updateby Extendoffice Application.Volatile Dim xRegEx Olarak Obyekt Olarak xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Set xRegEx = Heç bir end funksiyası

3. Sonra kodu saxlayıb bu kodu bağlayın, iş səhifəsinə qayıdın, bu formulu daxil edin: = EXTRACTCAP (A2) nəticəni çıxardığınız boş bir hüceyrəyə daxil edin və sonra doldurucu tutamağı bu formulu tətbiq etmək istədiyiniz hüceyrələrə sürüşdürün və bütün başlıca məktublar bir seferde çıxarılıb ekran görünüşünə baxın:


İstifadəçi Tanımlı funksiyası ilə mətn dizələrindən başlıqlı məktublarla başlayan sözləri çıxarın

Mətn dizgələrindən böyük bir məktubla başlayan sözləri çıxarmaq istəyirsinizsə, aşağıdakı VBA kodu sizə kömək edə bilər.

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, sonra aşağıdakı kodu kopyalayıb yapışdırın Modules Pəncərə.

VBA kodu: Baş harf ilə başlayan sözləri çıxarın:

Function StrExtract (Str As String) kimi String 'Updateby Extendoffice Application.Volatile Dim xStrList Variant Dim xRet As Uzun String Dim kimi I Len (Str) = 0 Sonra Exit Function xStrList = Split (Str, "") UBound (xStrList (XStrList (I) = StrConv (xStrList (I), vbProperCase) Sonra xRet = xRet & xStrList (I) & "" End if Next = StrExtract = Sol (xRet, Len (xRet) - 0) End if End Function

3. Və kodu saxlayıb kod pəncərəsini bağlayın, bu formulu daxil edin: = StrExtract (A2) məlumatlarınızın yanında boş bir hüceyrəyə daxil edin, sonra doldurma tutamağını nəticəni almaq istədiyiniz hüceyrələrə sürüşdürün və böyük bir başlıq ilə başlayan bütün sözlər çıxarılır, ekran görüntüsünə baxın:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.
    Sonia · 2 months ago
    hi,

    thanks for this formula, however my =EXTRACTCAP(A2) keeps coming back with an error.

    can you help?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hi, Sonia,
      The above User Defined Function works well in my Excel workbook, which Excel version do you use?
      Or have you copied and pasted the above code into your VBA module?
      • To post as a guest, your comment is unpublished.
        12 · 1 months ago
        У вас так и написано "вставьте следующий код в модуль".
        У меня тоже ошибка