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

  • Thread starter Hugolina
  • Ngày gửi
H

Hugolina

Guest
12/11/05
37
0
0
Thành phố Hồ Chí Minh
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
 
Khóa học Quản trị dòng tiền
adam_tran

adam_tran

Guitar inspiration
17/5/05
1,373
36
48
48
Goooogle
H

Hugolina

Guest
12/11/05
37
0
0
Thành phố Hồ Chí Minh
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
 
Sửa lần cuối:
F

farway72

Guest
22/12/05
53
0
0
53
HN
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.
 
H

Hugolina

Guest
12/11/05
37
0
0
Thành phố Hồ Chí Minh
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

Ánh Sao

Trung cấp
16/12/06
115
0
0
38
1a Hòa hưng-Q 10
Quá dễ :
=left(ô chứa họ tên, len(ô chứa họ tên)-len(ô chứa tên))
 
H

Hugolina

Guest
12/11/05
37
0
0
Thành phố Hồ Chí Minh
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
 
H

Hugolina

Guest
12/11/05
37
0
0
Thành phố Hồ Chí Minh
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
 
HongViet

HongViet

Cao cấp
10/11/05
286
10
18
Đà nẵng
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
 
K

KIMCUC_HP

Guest
25/5/06
22
0
0
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

HongViet

Cao cấp
10/11/05
286
10
18
Đà nẵng
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:
 

Đính kèm

  • HoTen.rar
    6.6 KB · Lượt xem: 268

Xem nhiều