İ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 düsturunu Excel-də istisnalarla uyğun vəziyyətə necə çevirmək olar?

Excel-də mətn dizələrini asanlıqla uyğun hala çevirmək üçün Düzgün funksiyanı tətbiq edə bilərsiniz, lakin bəzən mətn dizələrini düzgün ekrana çevirərkən bəzi xüsusi sözləri istisna etməlisiniz. Bu məqalədə, bu işi Exceldə həll etmək üçün bəzi sürətli fəndlər haqqında danışacağam.

Formuladan istifadə edərək istisnalarla mətn dizələrini lazımi vəziyyətə çevirin

VBA kodunu istifadə edərək istisnalarla mətn dizələrini lazımi vəziyyətə çevirin


Formuladan istifadə edərək istisnalarla mətn dizələrini lazımi vəziyyətə çevirin


Aşağıdakı formul bu işlə tez bir zamanda məşğul olmanıza kömək edə bilər, belə edin:

Bu formu daxil edin:

(Yuxarı (A2)) və MID (TRİM (SUBSTITUTE (SUBSTITUTE (SUBSTITUTE (SUBSTITUTE) ("& PROPER (A2) &", "Of", "of"), "A", "a") "," is "," Usa "," ABŞ ")), 2, LEN (A2)) nəticəni almaq istədiyiniz bir hüceyrəyə daxil edin və sonra bu formulu doldurmaq üçün doldurma işarəsini sürükləyin və mətn strings düzgün işə çevrildikdən sonra xüsusi istisnalara baxın, ekran görüntüsünə baxın:

QeydYuxarıda qeyd olunan formada, A2 çevirmək istədiyiniz hüceyrədir, "Of", "A", "Is", "Usa" konvertasiya edildikdən sonra normal normal sözlərdir, "Bir", "bir", "ABŞ" düzgün işdən istisna etmək istədiyiniz sözlərdir. Onları ehtiyaclarınıza dəyişdirə və ya SUBSTITUTE funksiyası ilə digər sözlər əlavə edə bilərsiniz.


VBA kodunu istifadə edərək istisnalarla mətn dizələrini lazımi vəziyyətə çevirin

Əgər yuxarıdakı formulun ehtiyacını anlamaq və dəyişmək bir az çətin olsa, burada da bu vəzifəni bitirmək üçün VBA kodu tətbiq edə bilərsiniz. Aşağıdakı addımları bir-bir ilə 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 Modul Pəncərəsi.

VBA kodu: mətn dizələrini istisnalarla müvafiq hala çevirmək:

Sub CellsValueChange()
'Updateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
    If xPRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            If Not IsNumeric(xRgVal) Then
                xRgVal = CorrectCase(xRgVal, xPRg)
                xDRg.Offset(KK).Value = xRgVal
            End If
            KK = KK + 1
        Next
    Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
    Dim xArrWords As Variant
    Dim I As Integer
    Dim xPointer As Integer
    Dim xVal As String
    xPointer = 1
    xVal = xRgVal
    xArrWords = WordsOf(xRgVal)
    For I = 0 To UBound(xArrWords)
        xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
        Debug.Print xPointer
        Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
    Next I
    CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
    Dim xDelimiters As Variant
    Dim xArrRtn As Variant
    xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
    For Each xEachDelimiter In xDelimiters
        xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
    Next xEachDelimiter
    xArrRtn = Split(Trim(xRgVal), " ")
    WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
    With xERg
        If IsError(Application.Match(xArrWord, .Cells, 0)) Then
            CorrectCaseOneWord = Application.Proper(xArrWord)
        Else
            CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
        End If
    End With
End Function

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və çevirmək istədiyiniz orijinal hüceyrələri seçməyi xatırlatmaq üçün bir əmr qutusu çıxarılıb, ekran görüntüsünə baxın:

4. Və sonra basın OKnəticəni çıxardıqdan çıxardıqda çıxardığınız hüceyrələri seçin, ekran görünüşünə baxın:

5. Kliklə gedin OK, və popup informasiya qutusunda, istisna etmək istədiyiniz mətnləri seçin, ekran görüntüsünə baxın:

6. Və sonra basın OK dialoqlardan çıxmaq və bütün mətn strings düzgün işə çevrilmişdir, lakin sözügedən sözləri istisna edir, 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.

Be the first to comment.