B c 1: Khi nh p li u vào b ng tính Excel, thơng th ng ta nh p c h và tên vào cùng m t ơ. Tuy nhiên, có khi sau đó ta c n ph i tách riêng tên ra kh i h và tên đ m, n u làm th công b ng thao tác sao chép r i dán qua ơ khác thì s r t b t ti n. N u s d ng hàm Right k t h p v i m t vài hàm khác thì c ng có th cho ra k t qu nh b n mu n, nh ng trong m t s tr ng h p s cho k t qu khơng chính xác. Có m t ph ng pháp t i u h n s giúp b n hoàn thành t t công vi c này, cách th c hi n c ng khá đ n gi n nh sau:
B c 2: Trên b ng tính ch a c t h tên c n tách, nh n Alt+F11
B c 3: Ti p theo, b n nh n menu Insert và ch n Module s xu t hi n m t c a s so n th o.
B c 4: B n nh p đo n mã l nh sau vào c a s so n th o:
Private Function Tachten(ten As String, lg As Integer)
Dim j As Integer
Name = Trim(ten)
For j = Len(Name) To 1 Step -1
If Mid(Name, j, 1) = " " Then
If lg = "1" Then
Tachten = Right(Name, Len(Name) - j)
Else
Tachten = Left(Name, j)
End If
Exit For
Next
End Function
B c 5:- B n nh n Ctrl+S đ l u l i và quay tr v b ng tính Excel.
B c 6:- Bây gi đ ti n hành tách riêng h và tên đ m vào m t ô m i, b n đ t con tr t i ô m i ch a h và tên đ m r i nh p vào công th c =TachTen(B3,0) và nh n Enter s th y ngay k t qu .
- tách riêng tên vào m t ô m i, b n đ t con tr t i ô s ch a tên c n tách và nh p vào công th c =TachTen(B3,1) r i nh n Enter là xong.