☰

이 매크로를 사용하여 쉼표 뒤의 첫 글자를 대문자로 변환할 수 있나요?

tag-icon • tag-icon microsoft-excel macros
이 매크로를 사용하여 쉼표 뒤의 첫 글자를 대문자로 변환할 수 있나요?

나는 이 작은 매크로를 사용하여 첫 글자를 다음으로 변환합니다.대문자특정 범위에서:

Sub TitleCase()
  Dim rng As Range, cell As Range
  Set rng = Range("D4:D999")
  For Each cell In rng
      If (cell.Value <> "") Then
          cell.Value = UCase(Left(cell.Value, 1)) & Right(cell.Value, Len(cell.Value) - 1)
      End If
  Next cell
End Sub

이제 쉼표( ,) 뒤의 문자를 다음으로 변환해야 합니다.대문자. 어떻게 할 수 있나요?

답변1

바꾸다:

 cell.Value = UCase(Left(cell.Value, 1)) & Right(cell.Value, Len(cell.Value) - 1)

와 함께:

 comma = InStr(cell.Value, ",")
 If comma <> 0 Then
    cell.Value = Left(cell.Value, comma) & UCase(Mid(cell.Value, comma + 1, 1)) & Right(cell.Value, Len(cell.Value) - comma - 1)
End If

다음과 같이 변환됩니다.대문자문자열의 첫 번째 쉼표 뒤의 문자입니다.

당신이 가지고 있다면하나 이상의 쉼표셀에서 매크로를 다음으로 바꾸세요.

Sub TitleCase()
Dim rng As Range, cell As Range
Dim buffer() As String 'Creates an empty array
Set rng = Range("D4:D99")
For Each cell In rng
If (cell.Value <> "") Then
    buffer = Split(StrConv(cell.Value, vbUnicode), Chr$(0)) 'split characters into array
    ReDim Preserve buffer(UBound(buffer) - 1)
    iscomma = False
    changedstring = ""
    For i = LBound(buffer) To UBound(buffer)
        If iscomma = True Then
            buffer(i) = UCase(buffer(i))
            iscomma = False
        End If
        If buffer(i) = "," Then
            iscomma = True
        End If
        changedstring = changedstring & buffer(i)
    Next i
    cell.Value = changedstring
End If
Next cell
End Sub

답변2

이것을 사용하십시오:

Private Function convertTitleToUppercase(s As String)
    Dim sSplit() As String: sSplit = Split(s, ",")
    Dim tmp As String

    Dim v As Variant: For Each v In sSplit
        tmp = IIf(tmp = "", tmp, tmp & ",") & StrConv(v, vbProperCase)
    Next v

    convertTitleToUppercase = tmp

End Function

예:

Debug.Print convertTitleToUppercase("LANTERNE, FHIA, ANTIK MESSING")

보고:

Lanterne, Fhia, Antik Messing

관련 정보