Hỏi cách Cắt tên bằng VBA

[feelingyes]

Em có đọc trong sách và có đoạn code ExtractLastName như sau

Function ExtractLastName (FullName as string) as string
Dim SpacePos as integer
SpacePos = instr(fullname,"")
ExtractLastName =Mid$(Fullname,spacePos,Len(fullName)-SpacePos)
End Function

Anh chị ơi tại sao em làm theo nhưng không được?
Tất cả những name trong VBA có cần phải tạo trong Difine Name ko?

Em đang tập tành VBA (chứ ko muốn dùng công thức)
Xin được chỉ giáo

 

[ThuNghi]

Em có đọc trong sách và có đoạn code ExtractLastName như sau

Function ExtractLastName (FullName as string) as string
Dim SpacePos as integer
SpacePos = instr(fullname,"")
ExtractLastName =Mid$(Fullname,spacePos,Len(fullName)-SpacePos)
End Function

SpacePos = instr(fullname,"")

sai 2 nơi
Hàm này là tìm khỏang trắng từ trái qua <> "" => phải là " "
Vậy phải là

SpacePos = instrRev(fullname," ")

ie tìm từ phải qua

Mid$(Fullname,spacePos[B]+1[/B],Len(fullName)-SpacePos)

Vì tìm thấy vị trí " " từ phải qua phải + 1 mới dùng Mid.

 

[feelingyes]

Anh xem lại file giúp em nhé!
Em làm vần không được

 

[ndu96081631]

Bạn cho code vào module là xong

 

[feelingyes]

He he
Em làm được rồi
Anh có thể nói sơ qua cho em hiểu cách để code vào đâu thì phù hợp ko? (trong Module
, Trong thisworkbook, trong sheet)

Thank for ur teaching.

 

[ThuNghi]

Anh xem lại file giúp em nhé!
Em làm vần không được

Code không sai nhưng để sai chỗ, phải insert Module và bỏ vào đó. Không bỏ trong sheet1