Thử dùng cái hàm tự tạo "xi-ma-chao" này xem:Xin chào các bạn, các bạn giúp đỡ tôi tác tên cái trong danh sách này với, tôi nghĩ mãi không ra được. Xin cảm ơn các bạn nhiều
Public Function cat(Vung As Range) As String
Dim I As Integer, Tam As String
For I = 2 To Len(Vung)
If Mid(Vung, I, 1) = UCase(Mid(Vung, I, 1)) Then
Tam = Tam & " " & Mid(Vung, I, 1)
Else
Tam = Tam & Mid(Vung, I, 1)
End If
Next
cat = Left(Vung, 1) & Tam
End Function
Function Tachten(Hoten As String, id As Integer) As String
Dim tam, ch, i
For i = 1 To Len(Hoten)
If Asc(Mid(Hoten, i, 1)) = Asc(UCase(Mid(Hoten, i, 1))) Then
ch = ch & ";" & Mid(Hoten, i, 1)
Else
ch = ch & Mid(Hoten, i, 1)
End If
Next
If InStr(1, ch, ";") = 0 Then Tachten = "": Exit Function
tam = Split(ch, ";")
Select Case id
Case Is = 1
Tachten = tam(UBound(tam))
Case Is = 2
Tachten = tam(LBound(tam) + 1)
Case Is = 3
For i = LBound(tam) + 2 To UBound(tam) - 1
Tachten = Tachten & " " & tam(i)
Next
Case Else
Tachten = ""
End Select
End Function
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2