Tách h và tên trong cùng mt ct trên b ng tính Excel 115 

Một phần của tài liệu Microsoft office excel2007 (Trang 115 - 116)

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.

Một phần của tài liệu Microsoft office excel2007 (Trang 115 - 116)

Tải bản đầy đủ (PDF)

(116 trang)