Jak przekonwertować ciągi na odpowiednią wielkość liter za pomocą vba

W łańcuchu poprawna jest wielkość liter, jeśli pierwsza litera każdego słowa w ciągu jest duża, a wszystkie pozostałe litery każdego słowa są małe.

Możesz użyć następującej składni w VBA, aby przekonwertować zakres komórek zawierających ciągi znaków na właściwą wielkość liter:

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

Ten konkretny przykład skonwertuje każdy ciąg z zakresu A2:A10 na odpowiednią wielkość liter i wyświetli wyniki w zakresie B2:B10 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Konwertuj ciągi znaków na odpowiednią wielkość liter za pomocą języka VBA

Załóżmy, że w Excelu mamy następującą kolumnę ciągów:

Załóżmy, że chcemy przekonwertować każdy ciąg w kolumnie A na właściwą wielkość liter i wyświetlić wyniki w kolumnie B:

W tym celu możemy utworzyć następujące makro:

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B wyświetla każdy ciąg z kolumny A w odpowiednim przypadku.

Uwaga : Pełną dokumentację funkcji StrConv w VBA znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak porównać ciągi w VBA
Jak usunąć spacje z ciągu w VBA
Jak zamienić znaki w ciągu w VBA