Kinh nghiệm - Thủ thuật

Khi người dùng được phép nhập họ và tên trong cùng một bảng tính Excel thì có thể dẫn đến việc sai sót như viểt hoa không theo qui định, khoảng cách giữa các từ tùy tiện… Sau đây là cách khắc phục.

-          Mở bảng tính Excel

-          Bấm chuột phải vào Sheet1 chọn View code.

-          Dán đoạn mã dưới đây vào:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim Tem, Str As String, ii As integer
If Target.Column = 3 And Target.Count = 1 Then
Str = Trim(Lcase(Targe.Value))
Tem = Split(Str, " ")

Str=chuyenHoadau(Tem(0))

For ii=1 To Ubound(Tem)-0

If Len(Trim(Tem(ii))>0 Then Str=Str&” “&ChuyenHoadau(tem(ii))

Next ii

Target.Offset(, 0).Value = chuyenHoadau(Tem(UBound(Tem)))
Target.Value = Str
End If
Application.EnableEvents = True
End Sub

Public Function chuyenHoadau(strTT) As String

strTT=Trim(strTT):chuyenHoadau=””

If Len(strTT)>0 Then

chuyenHoadau=Ucase(Left(strTT,1))&Right(strTT,Len(strTT)-1)

End If

End Function

Chúc các bạn thành công!