Nhờ các Bác giúp em hàm tự tạo viết hoa ký tự đầu

[QuangMinhtb]

Trân trọng chào cả nhà GPE!
Em nhờ các Bác giúp em viết một hàm tự tạo để Viết in Hoa ký tự đầu của nội dung một ô trong excel.
Cảm ơn cả nhà GPE.

 

[snow25]

Trân trọng chào cả nhà GPE!
Em nhờ các Bác giúp em viết một hàm tự tạo để Viết in Hoa ký tự đầu của nội dung một ô trong excel.
Cảm ơn cả nhà GPE.

Cái này cần gì hàm VBA nhỉ.Ở excel được mà.

 

[QuangMinhtb]

Cái này cần gì hàm VBA nhỉ.Ở excel được mà.

Dùng hàm kết hợp à anh? Em biết ạ!

 

[snow25]

Dùng hàm kết hợp à anh? Em biết ạ!

Bạn tách 1 ký tự đầu ra rồi viết hoa nó lên rồi ghép lại với cái còn lại là xong.

=UPPER(LEFT(B4,1))&RIGHT(B4,LEN(B4)-1)

 

[vc_đi chơi]

Dùng hàm kết hợp à anh? Em biết ạ!

Thử coi, hơi dài chút:

Function Viethoa_Kytudau(ByVal strContent As String) As String
    Dim m As Object
    strContent = LCase(strContent)
    strContent = Application.Replace(strContent, 1, 1, UCase(Left$(strContent, 1)))
    With CreateObject("VBScript.RegExp")
        .Pattern = "\.\s."
        .Global = True
        For Each m In .Execute(strContent)
            strContent = Application.Replace(strContent, m.FirstIndex + 1, m.Length, UCase(m.Value))
        Next
    End With
    Viethoa_Kytudau = strContent
End Function

 

[QuangMinhtb]

Thử coi, hơi dài chút:

Function Viethoa_Kytudau(ByVal strContent As String) As String
    Dim m As Object
    strContent = LCase(strContent)
    strContent = Application.Replace(strContent, 1, 1, UCase(Left$(strContent, 1)))
    With CreateObject("VBScript.RegExp")
        .Pattern = "\.\s."
        .Global = True
        For Each m In .Execute(strContent)
            strContent = Application.Replace(strContent, m.FirstIndex + 1, m.Length, UCase(m.Value))
        Next
    End With
    Viethoa_Kytudau = strContent
End Function

Cảm ơn anh nhé! Hơi dài nhưng vẫn ngon

 

[saobekhonglac]

Cảm ơn anh nhé! Hơi dài nhưng vẫn ngon

Mặc định khi viết mỗi ô thì chữ đầu đều là hoa thì tiện, chứ còn làm hàm như thế này thì khác gì dùng công thức hoa cho 1 ký tự đầu rồi nối chuỗi lại.

 

[snow25]

Mặc định khi viết mỗi ô thì chữ đầu đều là hoa thì tiện, chứ còn làm hàm như thế này thì khác gì dùng công thức hoa cho 1 ký tự đầu rồi nối chuỗi lại.

Thì đúng là 1 chữ đầu tiên viết hoa mà.

 

[be_09]

Trân trọng chào cả nhà GPE!
Em nhờ các Bác giúp em viết một hàm tự tạo để Viết in Hoa ký tự đầu của nội dung một ô trong excel.
Cảm ơn cả nhà GPE.

Thử dùng hàm sau để thay thế ký tự đầu tiên của câu.

=REPLACE(LOWER(A2),1,1,UPPER(LEFT(A2,1)))

 

[vc_đi chơi]

Mặc định khi viết mỗi ô thì chữ đầu đều là hoa thì tiện, chứ còn làm hàm như thế này thì khác gì dùng công thức hoa cho 1 ký tự đầu rồi nối chuỗi lại.

Bác có cách nào để "Mặc định khi viết mỗi ô thì chữ đầu đều là hoa" giúp em mới nhé! em cũng đang cần.

 

[snow25]

Bác có cách nào để "Mặc định khi viết mỗi ô thì chữ đầu đều là hoa" giúp em mới nhé! em cũng đang cần.

Có dùng code sự kiện là được.

 

[vc_đi chơi]

Có dùng code sự kiện là được.

bạn giúp mình nhé!

 

[be_09]

bạn giúp mình nhé!

Chọn vùng cần cho ký tự đầu là chữ Hoa rồi chạy thử code sau:

Sub KyTuDau()
Dim Cell As Variant
For Each Cell In Selection
    If Len(Cell.Text) <> 0 Then
        Cell.Formula = UCase(Left(Cell.Text, 1)) & _
        LCase(Right(Cell.Text, Len(Cell.Text) - 1))
    End If
Next
End Sub

 

[vc_đi chơi]

Chọn vùng cần cho ký tự đầu là chữ Hoa rồi chạy thử code sau:

Sub KyTuDau()
Dim Cell As Variant
For Each Cell In Selection
    If Len(Cell.Text) <> 0 Then
        Cell.Formula = UCase(Left(Cell.Text, 1)) & _
        LCase(Right(Cell.Text, Len(Cell.Text) - 1))
    End If
Next
End Sub

Chân thành cảm ơn Anh!