[HỎI] xin hỏi Hàm/ code tách chuỗi sau chữ số cuối cùng? (1 người xem)

otonhot · 12/8/14

Mình có rất nhiều ô có cấu trúc số-đơn vị tính hay nóichung la số-chuỗi đằng sau:
- Số có thể dạng 1,234 hoặc 1,234.56 hoặc 1234
- Đơn vị (hay chuỗi liền sau chữ số cuối cùng) gồm có Kí tự chữ a-z & có thể dấu “.” , “-“ , “/”, " ". Ví dụ M/T, M.Tons, M-T …

VD: 1,234 Mts => Mts ; 1,234.56M/Tons. => M/Tons.
Các bạn xem ví dụ như file.

Nói tóm lại là mình muốn lấy chuỗi kí tự bất kì sau chữ số cuối cùng!

Xin cảm ơn.

gtri · 12/8/14

otonhot đã viết:
Mình có rất nhiều ô có cấu trúc số-đơn vị tính hay nóichung la số-chuỗi đằng sau:
- Số có thể dạng 1,234 hoặc 1,234.56 hoặc 1234
- Đơn vị (hay chuỗi liền sau chữ số cuối cùng) gồm có Kí tự chữ a-z & có thể dấu “.” , “-“ , “/”, " ". Ví dụ M/T, M.Tons, M-T …

VD: 1,234 Mts => Mts ; 1,234.56M/Tons. => M/Tons.
Các bạn xem ví dụ như file.

Nói tóm lại là mình muốn lấy chuỗi kí tự bất kì sau chữ số cuối cùng!

Xin cảm ơn.

Dùng hàm tự tạo xem sao. Lấy chuỗi sau ký tự số cuối cùng

otonhot · 12/8/14

gtri đã viết:
Dùng hàm tự tạo xem sao. Lấy chuỗi sau ký tự số cuối cùng

Tks bạn. Mình thấy dòng DONVI = DONVI này thừa?

Mã:

Public Function DONVI(DL As String)
Dim Mau, i As Long
Mau = "0123456789"
    For i = Len(DL) To 1 Step -1
        If InStr(1, Mau, Mid(DL, i, 1), 1) > 0 Then
            DONVI = Trim(Right(DL, Len(DL) - i))
            Exit For
        End If
    Next i
'DONVI = DONVI
End Function

Bài này liệu có dùng được VBScript RegExp? hoặc là cách nào không dùng vòng lặp???

Ba Tê · 12/8/14

otonhot đã viết:
Mình có rất nhiều ô có cấu trúc số-đơn vị tính hay nóichung la số-chuỗi đằng sau:
- Số có thể dạng 1,234 hoặc 1,234.56 hoặc 1234
- Đơn vị (hay chuỗi liền sau chữ số cuối cùng) gồm có Kí tự chữ a-z & có thể dấu “.” , “-“ , “/”, " ". Ví dụ M/T, M.Tons, M-T …

VD: 1,234 Mts => Mts ; 1,234.56M/Tons. => M/Tons.
Các bạn xem ví dụ như file.

Nói tóm lại là mình muốn lấy chuỗi kí tự bất kì sau chữ số cuối cùng!

Xin cảm ơn.

Thêm 1 hàm: =GPE(A3)
[GPECODE=vb]Public Function GPE(Str As String) As String
Dim L As Long, i As Long
L = Len(Str)
For i = L To 1 Step -1
If IsNumeric(Mid(Str, i, 1)) Then
GPE = Application.WorksheetFunction.Trim(Mid(Str, i + 1, L))
Exit For
End If
Next i
End Function[/GPECODE]

Hoàng Trọng Nghĩa · 12/8/14

otonhot đã viết:
Mình có rất nhiều ô có cấu trúc số-đơn vị tính hay nóichung la số-chuỗi đằng sau:
- Số có thể dạng 1,234 hoặc 1,234.56 hoặc 1234
- Đơn vị (hay chuỗi liền sau chữ số cuối cùng) gồm có Kí tự chữ a-z & có thể dấu “.” , “-“ , “/”, " ". Ví dụ M/T, M.Tons, M-T …

VD: 1,234 Mts => Mts ; 1,234.56M/Tons. => M/Tons.
Các bạn xem ví dụ như file.

Nói tóm lại là mình muốn lấy chuỗi kí tự bất kì sau chữ số cuối cùng!

Xin cảm ơn.

Bài này chắc phải dùng VBA thôi.

Hàm tự tạo:

Mã:

Function GetText(ByVal FullText As String) As String
    GetText = Trim(FullText)
    If GetText > "" Then
        Dim s As Long
        Dim KyTu As String
        For s = 0 To 9
            GetText = Replace(GetText, s, "")
        Next
        For s = 1 To Len(GetText)
            KyTu = Left(GetText, 1)
            If LCase(KyTu) = UCase(KyTu) Then
                GetText = Replace(GetText, KyTu, "", 1, 1)
            Else
                Exit For
            End If
        Next
    End If
End Function

Cách dùng:

=GetText(A3)

=GetText("1,234Mts")

VMH0307 · 12/8/14

otonhot đã viết:
Mình có rất nhiều ô có cấu trúc số-đơn vị tính hay nóichung la số-chuỗi đằng sau:
- Số có thể dạng 1,234 hoặc 1,234.56 hoặc 1234
- Đơn vị (hay chuỗi liền sau chữ số cuối cùng) gồm có Kí tự chữ a-z & có thể dấu “.” , “-“ , “/”, " ". Ví dụ M/T, M.Tons, M-T …

VD: 1,234 Mts => Mts ; 1,234.56M/Tons. => M/Tons.
Các bạn xem ví dụ như file.

Nói tóm lại là mình muốn lấy chuỗi kí tự bất kì sau chữ số cuối cùng!

Xin cảm ơn.

Nếu dùng Code bạn tìm hiểu thử trong VBA vbScript Regexp
với Pattern là

Mã:

[a-zA-Z]+(?:/|\.|-| )[a-zA-Z]+(?=$)

Hoàng Trọng Nghĩa · 12/8/14

Nếu loại bỏ số hoàn toàn thì làm như bài #5, nhưng nếu trong cái "đuôi" nó có chứa số mà muốn giữ lại thì dùng hàm này:

Mã:

Function GetText(ByVal FullText As String) As String
    GetText = Trim(FullText)
    If GetText > "" Then
        Dim s As Long
        Dim KyTu As String
        For s = 1 To Len(GetText)
            KyTu = Left(GetText, 1)
            If LCase(KyTu) = UCase(KyTu) Then
                GetText = Replace(GetText, KyTu, "", 1, 1)
            Else
                Exit For
            End If
        Next
    End If
End Function

=GetText("1,234.000 GPE123")

otonhot · 12/8/14

Ba Tê đã viết:
Thêm 1 hàm: =GPE(A3)
[GPECODE=vb]Public Function GPE(Str As String) As String
Dim L As Long, i As Long
L = Len(Str)
For i = L To 1 Step -1
If IsNumeric(Mid(Str, i, 1)) Then
GPE = Application.WorksheetFunction.Trim(Mid(Str, i + 1, L))
Exit For
End If
Next i
End Function[/GPECODE]

Có thể "chế biến" cách khác được không ạ? Thực sự là mình không muốn dùng WorksheetFuntion trong hàm vì có thể hàm đó còn phát triển dùng cho các ứng dụng khác, VD Word VBA chẳng hạn

Hoàng Trọng Nghĩa đã viết:

Bài này chắc phải dùng VBA thôi.

Hàm tự tạo:

Mã:

Function GetText(ByVal FullText As String) As String
    GetText = Trim(FullText)
    If GetText > "" Then
        Dim s As Long
        Dim KyTu As String
        For s = 0 To 9
            GetText = Replace(GetText, s, "")
        Next
        For s = 1 To Len(GetText)
            KyTu = Left(GetText, 1)
            If LCase(KyTu) = UCase(KyTu) Then
                GetText = Replace(GetText, KyTu, "", 1, 1)
            Else
                Exit For
            End If
        Next
    End If
End Function

Cách dùng:

=GetText(A3)

=GetText("1,234Mts")

Hàm này rườm rà nên ứng dụng phải xem xét ạ.
Em thấy trên GPE có nhiều bài dùng VBScript RegExp, liệu bài này có áp dụng được không ạ?

gtri · 12/8/14

otonhot đã viết:
Tks bạn. Mình thấy dòng DONVI = DONVI này thừa?

Mã:

Public Function DONVI(DL As String) Dim Mau, i As Long Mau = "0123456789" For i = Len(DL) To 1 Step -1 If InStr(1, Mau, Mid(DL, i, 1), 1) > 0 Then DONVI = Trim(Right(DL, Len(DL) - i)) Exit For End If Next i 'DONVI = DONVI End Function

Bài này liệu có dùng được VBScript RegExp? hoặc là cách nào không dùng vòng lặp???

Ok. Dùng VBScript RegExp giải quyết chắc là được nhưng giờ mới đang ngâm cứu.

Hoàng Trọng Nghĩa · 12/8/14

otonhot đã viết:
Hàm này rườm rà nên ứng dụng phải xem xét ạ.
Em thấy trên GPE có nhiều bài dùng VBScript RegExp, liệu bài này có áp dụng được không ạ?

Code sử dụng thư viện của VBScript với ứng dụng Class của nó là RegExp. Đứng về góc độ lập trình thì để làm được việc ngắn gọn, các nhà lập trình cũng phải viết những mã lệnh xử lý và có lẽ vẫn là dùng vòng lặp. Quá trình làm việc đó được gói trong một Class với hàm Replace. Việc ngắn gọn đó là do ta nhìn về hình thức thôi.

Hoàng Trọng Nghĩa · 12/8/14

otonhot đã viết:
Có thể "chế biến" cách khác được không ạ? Thực sự là mình không muốn dùng WorksheetFuntion trong hàm vì có thể hàm đó còn phát triển dùng cho các ứng dụng khác, VD Word VBA chẳng hạn

Hàm của Ba Tê tại ảnh kỹ nên mới dùng WF chứ không dùng cũng đúng với yêu cầu vậy!

Mã:

Public Function GPE(Str As String) As String
    Dim L As Long, i As Long
    L = Len(Str)
    For i = L To 1 Step -1
       If IsNumeric(Mid(Str, i, 1)) Then
           GPE = Trim(Mid(Str, i + 1, L))
           Exit For
       End If
    Next i
 End Function

otonhot · 12/8/14

VMH0307 đã viết:
Nếu dùng Code bạn tìm hiểu thử trong VBA vbScript Regexp
với Pattern là

Mã:

[a-zA-Z]+(?:/|\.|-| )[a-zA-Z]+

Mình đã thử nhưng pattern trên lại lấy phần số ạ. Mình muốn lấy chuỗi sau chữ số cuối cùng.

PHP:

Sub RegExp()
With CreateObject("VBScript.RegExp")
      .Global = True
      .Pattern = "[a-zA-Z]+(?:/|\.|-| )[a-zA-Z]+"
      MsgBox .Replace("1,234 M/Tons", "") '=> kết quả 1,234 (Mình muốn kết quả là M/Tons.)
End With
End Sub

Mình nghĩ sẽ dùng cách của Bate, dễ hiểu, dễ dùng, dễ sửa chữa. Tks

Hoàng Trọng Nghĩa đã viết:
Hàm của Ba Tê tại ảnh kỹ nên mới dùng WF chứ không dùng cũng đúng với yêu cầu vậy!

Mã:

Public Function GPE(Str As String) As String Dim L As Long, i As Long L = Len(Str) For i = L To 1 Step -1 If IsNumeric(Mid(Str, i, 1)) Then GPE = Trim(Mid(Str, i + 1, L)) Exit For End If Next i End Function

VMH0307 · 12/8/14

otonhot đã viết:
Mình đã thử nhưng pattern trên lại lấy phần số ạ. Mình muốn lấy chuỗi sau chữ số cuối cùng.

PHP:

Sub RegExp() With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[a-zA-Z]+(?:/|\.|-| )[a-zA-Z]+" MsgBox .Replace("1,234 M/Tons", "") '=> kết quả 1,234 (Mình muốn kết quả là M/Tons.) End With End Sub

Dùng execute nhé, ở đây bạn lại Replace nên còn lại phần số là đúng rồi
tôi có đính chính lại Pattern là:

Mã:

[a-zA-Z]+(?:/|\.|-| )[a-zA-Z]+(?=$)

(bổ sung thêm Lookahead tại cuối dòng)

huuthang_bd · 12/8/14

otonhot đã viết:
Mình đã thử nhưng pattern trên lại lấy phần số ạ. Mình muốn lấy chuỗi sau chữ số cuối cùng.

PHP:

Sub RegExp() With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[a-zA-Z]+(?:/|\.|-| )[a-zA-Z]+" MsgBox .Replace("1,234 M/Tons", "") '=> kết quả 1,234 (Mình muốn kết quả là M/Tons.) End With End Sub

Nếu dùng RegExp thì Pattern phải là ".*\d"
Code như vầy

PHP:

Function GetStr(Str As String) As String
With CreateObject("VBScript.RegExp")
      .Global = True
      .Pattern = ".*\d"
      GetStr = Trim(.Replace(Str, ""))
End With
End Function

otonhot · 12/8/14

huuthang_bd đã viết:
Nếu dùng RegExp thì Pattern phải là ".*\d"
Code như vầy

PHP:

Function GetStr(Str As String) As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = ".*\d" GetStr = Trim(.Replace(Str, "")) End With End Function

Đã test. Rất OK ạ. Many tks.

huuthang_bd · 12/8/14

Nếu muốn công thức thì cũng có luôn.
Công thức mảng:

Mã:

=TRIM(REPLACE(A3,1,MAX(IF(COUNTIF(A3,LEFT(A3,ROW(INDIRECT("A1:A"&LEN(A3))))&(COLUMN($A$1:$J$1)-1)&"*")>0,ROW(INDIRECT("A1:A"&LEN(A3))),""))+1,""))

Excel 2007+

long10 · 12/8/14

Em thấy công thức này chưa có sai sót gì.
=TRIM(RIGHT(A3,LEN(A3)-MAX(IF(ISNUMBER(--MID(A3,ROW($1:$256),1)),ROW($1:$256),""))))

otonhot · 12/8/14

long10 đã viết:
Em thấy công thức này chưa có sai sót gì.
=TRIM(RIGHT(A3,LEN(A3)-MAX(IF(ISNUMBER(--MID(A3,ROW($1:$256),1)),ROW($1:$256),""))))

Công thức mảng. Test OK
Một bài toán, nhiều phương án, GPE quá tuyệt.

VetMini · 12/8/14

Regex:

Đây là hàm tự tạo, phải không?
Cứ mỗi lần tính một ô lại gọi hàm CreateObject để nó tạo một đối tượng Regex mới à?

Giải pháp Regex trong trường hợp này có thể nói là quá phí phạm.
(nếu nhất định muốn dùng thì cũng nên tìm cách bảo vệ đối tượng Regex, chỉ tạo một lần thôi, không để nó chết khi hàm thoát ra)

huuthang_bd · 12/8/14

long10 đã viết:
Em thấy công thức này chưa có sai sót gì.
=TRIM(RIGHT(A3,LEN(A3)-MAX(IF(ISNUMBER(--MID(A3,ROW($1:$256),1)),ROW($1:$256),""))))

Công thức mảng mà tham chiếu đến 256 dòng như thế thì cũng quá phí. Cần bao nhiêu thì lấy bao nhiêu thôi.

Tóc gió thôi bay · 12/8/14

otonhot đã viết:
Công thức mảng. Test OK
Một bài toán, nhiều phương án, GPE quá tuyệt.

dành cho những người ... sức khoẻ yếu

Mã:

=RIGHT(A3,LEN(A3)-SUMPRODUCT(LEN(A3)-LEN(SUBSTITUTE(A3,ROW(1:10)-1,""))))

huuthang_bd · 12/8/14

Tóc gió thôi bay đã viết:
dành cho những người ... sức khoẻ yếu

Mã:

=RIGHT(A3,LEN(A3)-SUMPRODUCT(LEN(A3)-LEN(SUBSTITUTE(A3,ROW(1:10)-1,""))))

Bạn nên thử trước khi post bài.

[HỎI] xin hỏi Hàm/ code tách chuỗi sau chữ số cuối cùng? (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên tích cực

File đính kèm

Thành viên mới

Cạo Rồi Khỏi Gội

Chuyên gia GPE

File đính kèm

real women for private encounters

Chuyên gia GPE

Thành viên mới

Thành viên tích cực

Chuyên gia GPE

Chuyên gia GPE

Thành viên mới

real women for private encounters

Chuyên gia GPE

Thành viên mới

Chuyên gia GPE

File đính kèm

Thành viên mới

Thành viên mới

Đang đi tìm hòn đá

Chuyên gia GPE

Thành viên mới

Chuyên gia GPE

Thời gian đếm ngược.