Giả sử mẹ bạn là một giáo viên trường Văn Hiến. Mẹ bạn vừa nhận chủ nhiệm 4 lớp 10 mới vào, sáng nay mẹ bạn đánh giùm danh sách hs của 4 lớp đó. Bạn đánh một mạch xong hết, nhưng khổ nỗi đó mới chỉ là danh sách lấy theo điểm chưa được sắp xếp theo tên mà họ tên lại chung một cột nữa chứ, làm sao đây ? Đánh lại danh sách đó có chia hai cột họ và tên ư, không đủ can đảm (vì một lớp gần 70 người), hay là cắt tên dán ra một cột riêng thì lâu quá. Bạn sực nhớ lại :" A ! mình đang làm bằng Excel mà. Tại sao mình không viết một hàm để tách họ và tên ra riêng nhỉ ?". Ý tưởng hình thành và thế là bạn bắt tay vào làm ngay.
Trước tiên bạn vào Menu Tools-Macro-Visual Basic Editor- Vào Insert - Module, đánh vào đoạn code dưới đây
Function Tach(ht As String, a As Integer) As String
Dim s1, s2 As String
Dim C, L As Integer
ht = Trim(ht) 'Hàm Trim dùng để cắt những khoảng trắng thừa vô nghĩa đi
L = Len(ht)
s1 = Left(ht, L)
s2 = Right(s1, 1)
Do While s2 <> " "
L = L - 1
s1 = Left(ht, L)
s2 = Right(s1, 1)
Loop
If a = 0 Then
Tach = Left(ht, L)
Else
If a = 1 Then
Tach = Right(ht, Len(ht) - L)
End If
End If
End Function
Xong bạn lưu lại, nhớ chọn ở mục Save as type là Microsoft Excel Add-In(*.xla) rồi ở mục File name bạn đánh tên vào - Save. Đóng khung soạn thảo này lại, vào Tools-Add-Ins... - chọn Browse - nhấp vào tên mà lúc nãy bạn lưu vào - OK. vậy là xong, bây giờ nếu muốn tách họ bạn chỉ chuyện gõ
=tach(A2,0)
tương tự nếu muốn tách tên thì gõ
=tach(A2,1)
(ở đây 0 và 1 chỉ là đối số để phân biệt là mình đang tách tên hay tách họ tương tự như 0 và 1 trong hàm VLOOKUP vậy)
Trước tiên bạn vào Menu Tools-Macro-Visual Basic Editor- Vào Insert - Module, đánh vào đoạn code dưới đây
Function Tach(ht As String, a As Integer) As String
Dim s1, s2 As String
Dim C, L As Integer
ht = Trim(ht) 'Hàm Trim dùng để cắt những khoảng trắng thừa vô nghĩa đi
L = Len(ht)
s1 = Left(ht, L)
s2 = Right(s1, 1)
Do While s2 <> " "
L = L - 1
s1 = Left(ht, L)
s2 = Right(s1, 1)
Loop
If a = 0 Then
Tach = Left(ht, L)
Else
If a = 1 Then
Tach = Right(ht, Len(ht) - L)
End If
End If
End Function
Xong bạn lưu lại, nhớ chọn ở mục Save as type là Microsoft Excel Add-In(*.xla) rồi ở mục File name bạn đánh tên vào - Save. Đóng khung soạn thảo này lại, vào Tools-Add-Ins... - chọn Browse - nhấp vào tên mà lúc nãy bạn lưu vào - OK. vậy là xong, bây giờ nếu muốn tách họ bạn chỉ chuyện gõ
=tach(A2,0)
tương tự nếu muốn tách tên thì gõ
=tach(A2,1)
(ở đây 0 và 1 chỉ là đối số để phân biệt là mình đang tách tên hay tách họ tương tự như 0 và 1 trong hàm VLOOKUP vậy)
Được gửi bởi anhtuan1066