Hỏi về cách lấy chữ cái đầu trong họ và chữ lót, ghép chung với tên

[nvtrung36]

chào các bạn, hiện mình đang gặp vấn đề này, mong các bạn giúp đở

vd: nguyen van trung tách thành nvtrung
và nguyen thi be bay thi tach thanh ntbbay
tren diễn dàng mình đã có cách gần giống như vậy nhưng chỉ là đối với tên có ba từ và lấy chữ cái đầu của họ tên luôn, nhưng nếu tên có 2 hoặc 4 từ thì sao ạ dùng các hàm cơ bản được không các bạn

 

[ndu96081631]

chào các bạn, hiện mình đang gặp vấn đề này, mong các bạn giúp đở

vd: nguyen van trung tách thành nvtrung
và nguyen thi be bay thi tach thanh ntbbay
tren diễn dàng mình đã có cách gần giống như vậy nhưng chỉ là đối với tên có ba từ và lấy chữ cái đầu của họ tên luôn, nhưng nếu tên có 2 hoặc 4 từ thì sao ạ dùng các hàm cơ bản được không các bạn

Làm bằng VBA chịu không? Muốn 100 từ cũng được

 

[nvtrung36]

VBA thì em bó tay, chưa dùng thử VBA lần nào

 

[Ba Tê]

VBA thì em bó tay, chưa dùng thử VBA lần nào

Hàm Củ Chuối nè, thử xem có dùng được không.

 

[ndu96081631]

Hàm Củ Chuối nè, thử xem có dùng được không.

Người ta đã nói VBA người ta không biết gì rồi mà
-------------
Tuy nhiên cũng xin góp ý về giải thuật trong code của Ba TêHiện tại bạn đang dùng vòng lập quét qua từng ký tự.... Nên dùng hàm Split tách ra thành 1 mảng rồi quét qua từng phần tử của mảng này, như vậy tốc độ sẽ nhanh hơn

 

[bebo021999]

Xem file đính kèm, mấy từ cũng được.

 

[ndu96081631]

Xem file đính kèm, mấy từ cũng được.

Thấy chỉ có 5 từ thôi chứ đâu mà "mấy từ cũng được"
Vả lại đồng chí làm ngược cha nó rồi! Tên nguyen thi be bay người ta cần ra kết quả là ntbbay còn đồng chí lại ra kết quả BayNTB
Ẹc... Ẹc...

 

[bebo021999]

Thấy chỉ có 5 từ thôi chứ đâu mà "mấy từ cũng được"
Vả lại đồng chí làm ngược cha nó rồi! Tên nguyen thi be bay người ta cần ra kết quả là ntbbay còn đồng chí lại ra kết quả BayNTB
Ẹc... Ẹc...

Hic, có phải em làm đâu ạ. Có hiểu nó viết gì đâu, sưu tầm từ web NN, đang nghiên cứu đảo ngược lại mà chưa ra. Anh chị em nào có ý kiến hay công thức nào khác không?

 

[ChanhTQ@]

To Batê:

Có thể dùng vòng Do. . . .Loop theo khoảng trắng giữa các từ
& chúc vui!
Option Explicit
Function TaoMa(HoTen As String) As String
Dim VTr As Byte, Temp As String
Const KC As String = " "

HoTen = Trim$(HoTen)
TaoMa = Left(HoTen, 1)
Do
VTr = InStr(HoTen, KC)
If VTr Then
HoTen = LTrim$(Mid(HoTen, VTr + 1, 1050))
TaoMa = TaoMa & Left(HoTen, 1)
Else
TaoMa = TaoMa & HoTen
Exit Function
End If
Loop
End Function

 

[ndu96081631]

Hic, có phải em làm đâu ạ. Có hiểu nó viết gì đâu, sưu tầm từ web NN, đang nghiên cứu đảo ngược lại mà chưa ra. Anh chị em nào có ý kiến hay công thức nào khác không?

Bài này nếu là tôi thì tôi dùng phương pháp macro 4 tách chuổi thành mảng (giống hàm Split trong VBA)... chuyện còn lại quá dễ

 

[nvtrung36]

mọi người xem thử dùm mình, sao mình viết công thức đúng rồi mà cứ ra #value là sao nhĩ

 

[concogia]

mọi người xem thử dùm mình, sao mình viết công thức đúng rồi mà cứ ra #value là sao nhĩ

Dữ liệu trong từng cell của bạn chứa những "khoảng trắng" không giống nhau, "khoảng trắng" thứ 2 (ở cell bị #value!) & "khoảng trắng" thứ 3 (của cell có kết quả) có code là 160 (code "khoảng trắng" bình thường là 32)
Chắc dữ liệu xuất ra từ một phần mềm nào đó
Thân

 

[nvtrung36]

Dữ liệu trong từng cell của bạn chứa những "khoảng trắng" không giống nhau, "khoảng trắng" thứ 2 (ở cell bị #value!) & "khoảng trắng" thứ 3 (của cell có kết quả) có code là 160 (code "khoảng trắng" bình thường là 32)
Chắc dữ liệu xuất ra từ một phần mềm nào đó
Thân

vậy có cách nào làm cho các khoãng trắng đó trở về bình thường không bạn

 

[concogia]

vậy có cách nào làm cho các khoãng trắng đó trở về bình thường không bạn

Thử thế này

=FIND(" ",SUBSTITUTE(A7,CHAR(160),CHAR(32)),FIND(" ",SUBSTITUTE(A7,CHAR(160),CHAR(32)),1)+1)

Bạn tùy biến vào công thức của bạn
Thân