concogia
Gội rồi mới Cạo
- Tham gia
- 17/9/09
- Bài viết
- 3,412
- Được thích
- 6,881
Hihi, bài này viết code thì đơn giản thôi Còi nhỉUi siêu gì đâu, tôi cũng học của các sư phụ và các anh chị trên diễn đàn thôi.
Thứ 2 như thế này : 123bgbf34 = 34 và thứ 2 thế này : fgdh13562fbf12vbfbv78 = 12 khác nhau nhé.
Nếu thứ 2 giống kiểu của bạn thì tôi làm thế này với UDF :
VBA của tôi chắc chưa siêu bằng bạn đâu vì tôi chỉ biết viết những CODE đơn giản thôi!PHP:Function tachSOcuoi(Rng As Range) Dim i As Integer Dim Mys As String Dim j As Integer Dim x Mys = Rng.Value For i = Len(Mys) To 1 Step -1 If IsNumeric(Mid(Mys, i, 1)) Then Exit For Next For j = i To 1 Step -1 If IsNumeric(Mid(Mys, j, 1)) = False Then Exit For x = Mid(Mys, j, 1) & x Next tachSOcuoi = x End Function
Nhưng đề phòng bạn í muốn thêm cụm số thứ 3, rồi thứ 4 .......thứ 100 thì rào trước luôn cho bạn í khỏi hỏi
Mã:
Public Function LaySo(Cll As Range, ThuTu As Integer) As Variant
Dim CoRe, Tach, Kq
Set CoRe = CreateObject("VBScript.RegExp")
With CoRe
.Global = True
.Pattern = "[\D]"
Kq = Application.WorksheetFunction.Trim(.Replace(Cll, " "))
End With
Tach = Split(Kq)
If ThuTu - 1 > UBound(Tach) Then
LaySo = "Làm dech gì có so này"
Else
LaySo = Tach(ThuTu - 1)
End If
End Function

