Tự viết tắt họ tên với chiều dài quá 18 ký tự (1 người xem)

[phihndhsp]

tôi có 1 yêu cầu mà không làm ra, xin được giúp đỡ. Tự viết tắt nếu chiều dài tên dài qua 18 ký tự, viết tắt bắt đầu từ chữ gần tên nhất và viết tắt đến khi nào cho số ký tự <=18, xin chân thành cảm ơn, tôi có gới file đính kèm bên dưới

 

[Hong.Van]

tôi có 1 yêu cầu mà không làm ra, xin được giúp đỡ. Tự viết tắt nếu chiều dài tên dài qua 18 ký tự, viết tắt bắt đầu từ chữ gần tên nhất và viết tắt đến khi nào cho số ký tự <=18, xin chân thành cảm ơn, tôi có gới file đính kèm bên dưới

Hôm qua có 1 bài này, kg biết bạn thấy chưa, thử áp dụng
http://www.giaiphapexcel.com/forum/...uỗi-Họ-tên-có-giới-hạn-20-ký-tự-để-in-thẻ-ATM

 

[ndu96081631]

tôi có 1 yêu cầu mà không làm ra, xin được giúp đỡ. Tự viết tắt nếu chiều dài tên dài qua 18 ký tự, viết tắt bắt đầu từ chữ gần tên nhất và viết tắt đến khi nào cho số ký tự <=18, xin chân thành cảm ơn, tôi có gới file đính kèm bên dưới

Hàm này thử xem:

Function NameLimit(ByVal Text As String, Length_Limit As Long) As String
  Dim tmp As String, tmpName As String
  Dim Arr
  Dim lPos As Long, length As Long
  On Error Resume Next
  tmp = WorksheetFunction.Trim(Text)
  NameLimit = tmp
  If Len(tmp) > Length_Limit Then
    Arr = Split(tmp, " ")
    lPos = UBound(Arr) - 1
    Do
      Arr(lPos) = Left(Arr(lPos), 1)
      tmpName = Join(Arr, " ")
      length = Len(tmpName)
      lPos = lPos - 1
    Loop Until (length <= Length_Limit Or lPos < 0)
    NameLimit = tmpName
  End If
End Function

Áp dụng: =NameLimit(A3, 18)

 

[phihndhsp]

có cách nào sử dụng công thức không? chứ VBA tôi có thể làm được, tôi có thể viết đệ quy trong VBA

 

[ndu96081631]

có cách nào sử dụng công thức không? chứ VBA tôi có thể làm được, tôi có thể viết đệ quy trong VBA

Cắt và nối chuổi không phải là thế mạnh của công thức. Vì vậy cho dù dùng công thức có thành công thì e rằng sẽ dài lê thê và không hiệu quả

 

[phihndhsp]

dạ, em cũng biết như vậy, nhưng vì xếp muốn em dạy chuyên đề này bằng công thức mới đau đầu đó anh. hi hi cảm ơn anh nhiều chúc anh nhiều sức khỏe

 

[concogia]

dạ, em cũng biết như vậy, nhưng vì xếp muốn em dạy chuyên đề này bằng công thức mới đau đầu đó anh. hi hi cảm ơn anh nhiều chúc anh nhiều sức khỏe

Híc, mới đi ...mừng sinh nhật Thầy Tedaynui & Admin Over Ac về, tưng tưng nên thắc mắc tý tẹo:

...nhưng vì xếp muốn em dạy chuyên đề này bằng công thức mới đau đầu đó anh....

bạn hỏi giúp mình là xếp bạn có giải quyết bài này bằng công thức chưa vậy ??? Đối tượng để dạy công thức của bài này là học sinh khối lớp nào ạ ???
Theo mình, bài này nếu giải quyết bằng VBA thì......dễ ẹct ( ngoài cách của Thầy Ndu còn...cả đống cách), dù rằng đề bài chưa lường hết việc có tên viết tắt đến cuối cùng vẫn hơn 18 ký tự ( cái này có thể ít hoặc không xảy ra nhưng đã là đề bài thì phải tính toán hết mọi trường hợp)
Nếu có thành viên nào giải quyết bài này một cách tổng quát bằng các hàm của Excel thì cũng xứng đáng được tưởng thưởng 5 lon Ken & 1.....con khô mực
Híc

 

[ndu96081631]

Nếu có thành viên nào giải quyết bài này một cách tổng quát bằng các hàm của Excel thì cũng xứng đáng được tưởng thưởng 5 lon Ken & 1.....con khô mực
Híc

Đương nhiên được anh à.
Nhưng cứ nghĩ đến phải đặt 1 mớ name đã thấy ngán ---> Thầy chắc còn muốn xỉu chứ đừng nói là học trò
Ẹc... ẹc...

 

[phihndhsp]

dạ em không dạy học sinh, mà đối tượng dạy của em là những nhân viên đi làm, từ giám đốc đến trưởng phòng kế toán và nhân viên.
hôm trước họ có 1 vân đề như vậy và bắt em phải giải quyết, em cũng giải quyết theo hướng VBA, nhưng họ nói có thể giải quyết bằng công thức không để giảng dạy lại cho toàn thể nhân viên. em suy nghĩ nát óc cũng không ra nên em mới gởi lên diễn đàn để biết thêm có thể giải quyết bằng công thức có được không?
Nếu được thì tốt còn không thì em yên tâm không dạy(vì sợ nếu ai đó tìm được cách giải quyết bằng công thức thì họ sẽ soi mói mình nhiều lắm) dạ em xin chân thành cảm ơn các cao thủ đã giúp em nhiều trong nhiều vấn đề em đưa ra, xin chân thành cảm ơn.

 

[ndu96081631]

Nếu được thì tốt còn không thì em yên tâm không dạy(vì sợ nếu ai đó tìm được cách giải quyết bằng công thức thì họ sẽ soi mói mình nhiều lắm) .

Nghĩ như vậy sẽ.. cực thân lắm!
Đâu phải cứ là thầy thì cái gì cũng biết hơn trò. Nếu trò phát hiện ra "tuyệt chiêu" gì đó mà thầy chưa biết, thiết nghĩ cũng không vì thế mà làm cho uy tín của thầy bị giảm xuống ---> Vô tư đi bạn à, sĩ diện chỉ làm mình mệt mỏi thôi chứ chả được tích sự gì