Làm sao để tách tên ra khỏi phần Họ và Tên

[Hugolina]

Kính chào các anh chị trên diễn đàn.

Em hiện đang cố tìm cách tách tên ra khỏi họ và tên tự động.

Ví dụ: Nguyễn Văn Mười Hai

Em cần tạo thêm một cột lấy được chữ Hai. Mục đích để sắp xếp tên theo thứ tự.

Mong các anh giúp em gấp gấp.

Cảm ơn các anh rất nhiều

Hugolina

 

[adam_tran]

Dùng công thức bình thường thì rất dài và khó. Bạn nên sử dụng hàm VBA có sẳn AddIn NameManager tại thư viện:
http://webketoan.com/thuvien/comment.php?dlid=33&ENGINEsessID=24ef5da875f2dcc4aebed4996bf47788

Hàm sử dụng: Ten
Code của hàm:
Function ten(n) As String
Dim FirstName As String, LastName As String, cfname As String
LastName = Right(n, Len(n) - InStrRev(n, " "))
ten = LastName
End Function

 

[Hugolina]

Cảm ơn anh đã chỉ dạy. Em dán hàm Ten vào Module là nó chạy liền Hihi.

Tuy nhiên em lại muốn thêm một chút ít nữa. Làm thế nào để tách Họ và tên lót ra khỏi tên.

Ví dụ: Nguyễn Văn A Em muốn tách Nguyễn Văn ra thì phải làm sao. Em bắt chước hàm trên của anh và đổi lại một chút ít. Nó chỉ ra được Nguyễn V Hihi tất cả là do sự dốt VBA của em mà ra

Em theo đường link ở trên và download Tiện ích Excel, rồi vào Tool/ Add-Ins phần tiện ích này.

Chương trình này có 3 công dụng
- Sắp xếp tiếng việt
- Đổi chữ Hoa-Thường :
- Tách – Gộp Họ Tên
Tuy nhiên em lại không hiểu tiện ích này sử dụng như thế nào. Chẳng hạn như Sắp xếp TV có phải Excel nó sẽ sắp xếp theo thứ tự ABC. Rồi đổi chữ Hoa-Thường mình có thể sử dụng hàm upper, lower hay proper cũng được mà. Rồi còn tiện ích tách gộp họ tên nữa. Em nghĩ chương trình này ắt hẳn có điểm hay nhưng sau khi Add-Ins vào rồi em không biết làm bước kế tiếp như thế nào nữa. Mong anh chỉ tiếp dùm em.

Cảm ơn anh nhiều

Hugolina

 

[farway72]

Em theo đường link ở trên và download Tiện ích Excel, rồi vào Tool/ Add-Ins phần tiện ích này.

Chương trình này có 3 công dụng
- Sắp xếp tiếng việt
- Đổi chữ Hoa-Thường :
- Tách – Gộp Họ Tên
Tuy nhiên em lại không hiểu tiện ích này sử dụng như thế nào. Chẳng hạn như Sắp xếp TV có phải Excel nó sẽ sắp xếp theo thứ tự ABC. Rồi đổi chữ Hoa-Thường mình có thể sử dụng hàm upper, lower hay proper cũng được mà. Rồi còn tiện ích tách gộp họ tên nữa. Em nghĩ chương trình này ắt hẳn có điểm hay nhưng sau khi Add-Ins vào rồi em không biết làm bước kế tiếp như thế nào nữa. Mong anh chỉ tiếp dùm em.

Cảm ơn anh nhiều

Hugolina

Sau khi em download add-in này về,giải nén. Em vào tool/addin rồi tìm đường dẫn đến nơi em vừa giải nén, double click vào đó và nhấn Ok. Khi đó trên thanh menu bar sẽ xuất hiện một nút mới. Em click vào đó em sẽ tìm ra câu trả lời.

Chúc em thành công.

 

[Hugolina]

Ui, em làm không được theo hướng dẫn của anh. Sau khi giải nén, em chỉ cần double click vào Setup thì chương trình tự cài, rồi em vào trong Add-ins click chọn nó. Nhưng sau đó em chẳng thấy nút nào xuất hiện hết. Thôi thì anh hãy chỉ em thuật toán tách họ đi. Trần Văn A tách ra thành Trần Văn.

Xin cảm ơn

Hugolina

 

[Ánh Sao]

Quá dễ :
=left(ô chứa họ tên, len(ô chứa họ tên)-len(ô chứa tên))

 

[Hugolina]

Ui, em làm không được theo hướng dẫn của anh. Sau khi giải nén, em chỉ cần double click vào Setup thì chương trình tự cài, rồi em vào trong Add-ins click chọn nó. Nhưng sau đó em chẳng thấy nút nào xuất hiện hết. Thôi thì anh hãy chỉ em thuật toán tách họ đi. Trần Văn A tách ra thành Trần Văn.

Xin cảm ơn

Hugolina

 

[Hugolina]

Ui, em làm không được theo hướng dẫn của anh. Sau khi giải nén, em chỉ cần double click vào Setup thì chương trình tự cài, rồi em vào trong Add-ins click chọn nó. Nhưng sau đó em chẳng thấy nút nào xuất hiện hết. Thôi thì anh hãy chỉ em thuật toán tách họ đi. Trần Văn A tách ra thành Trần Văn.

Xin cảm ơn

Hugolina

 

[Tuanktcdcn]

Tách Họ và tách Tên bằng công thức

Đây là cách tôi lập bằng công thức Excel thuần túy.

 

[HongViet]

Hàm tự tạo đây, thêm cái để bạn tham khảo:

Option Explicit
Function TachHT(HoTen, Optional Ho As Boolean) As String
Dim Ij As Integer, DDai As Integer
DDai = Len(HoTen)
For Ij = DDai - 1 To 1 Step -1
If Mid(HoTen, Ij, 1) = " " Then Exit For
Next Ij
If Ho Then
TachHT = Trim(Left(HoTen, Ij))
Else
TachHT = Trim(Mid(HoTen, Ij, 20))
End If
End Function

Cú pháp hàm sẽ là:
= TachHT("a35", True) ' Để nhận được họ đệm = TachHT("C40") ' Để nhận được tên

 

[KIMCUC_HP]

sao em chẳng làm được có ai chỉ dẫn giúp em cặn kẽ hơn ko?
cú pháp trên loằng ngoằng quá

 

[HongViet]

Hàm tự tạo phải zậy thôi!

:angel:

sao em chẳng làm được có ai chỉ dẫn giúp em cặn kẽ hơn ko? cú pháp trên loằng ngoằng quá

Bạn hãy lạng quạng vô đây thử nha! File đính kèm í!
:bigok: