phihndhsp
Thành viên gạo cội
- Tham gia
- 26/12/09
- Bài viết
- 3,363
- Được thích
- 2,488
- Giới tính
- Nam
- Nghề nghiệp
- Giáo Viên
Hôm qua có 1 bài này, kg biết bạn thấy chưa, thử áp dụngtô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
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
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
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
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: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
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 ạ ???...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....
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
Nghĩ như vậy sẽ.. cực thân lắm!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) .