Hỏi về hàm extracnumber giữ định dạng (1 người xem)

[babyrock2009]

Mọi người cho mình hỏi khi mình dúng extracnumber thì nó sẽ bị mất số 00 ở đầu, có cách nào giữ nguyên số đó ko ạ
Ví dụ Cột A1 : TV001234
Cột A2 : TVBC02345
nếu mình dùng exttractnumber thì nó chỉ ra 1234 và 2345 mà ko phải là 001234 và 02345

 

[Phuocam]

Mọi người cho mình hỏi khi mình dúng extracnumber thì nó sẽ bị mất số 00 ở đầu, có cách nào giữ nguyên số đó ko ạ
Ví dụ Cột A1 : TV001234
Cột A2 : TVBC02345
nếu mình dùng exttractnumber thì nó chỉ ra 1234 và 2345 mà ko phải là 001234 và 02345

Bạn đưa file mẫu có công thức đang sử dụng lên, để các thành viên khác hỗ trợ tốt hơn.

 

[Horse]

Mọi người cho mình hỏi khi mình dúng extracnumber thì nó sẽ bị mất số 00 ở đầu, có cách nào giữ nguyên số đó ko ạ
Ví dụ Cột A1 : TV001234
Cột A2 : TVBC02345
nếu mình dùng exttractnumber thì nó chỉ ra 1234 và 2345 mà ko phải là 001234 và 02345

Hình như cái hàm ExtractNumber là hàm tự tạo thì phải. Bạn vào hàm đó bỏ lệnh chuyển đổi chuỗi thành số thử xem

 

[babyrock2009]

Hình như cái hàm ExtractNumber là hàm tự tạo thì phải. Bạn vào hàm đó bỏ lệnh chuyển đổi chuỗi thành số thử xem

đúng rồi , hàm tự tạo nhưng chuyển về định dạng số luôn nên nó mất số 0 ở đầu dãy số

 

[lehuong1409]

đúng rồi , hàm tự tạo nhưng chuyển về định dạng số luôn nên nó mất số 0 ở đầu dãy số

Hàm tự tạo thì bạn gửi code lên rồi mọi người chỉ bạn chỉnh code bạn nhé

 

[Horse]

đúng rồi , hàm tự tạo nhưng chuyển về định dạng số luôn nên nó mất số 0 ở đầu dãy số

Vậy bạn Copy Code đưa nên cho mọi người xem thử hoặc tìm trong Code thử có chữ "CLng" không. Nếu có thì xóa nó đi

 

[Horse]

Có phải cái hàm này không

Function ExtractNumber(rCell As Range, Choose As Boolean)
    Dim lCount As Long
    Dim sText As String
    Dim lNum As String
    sText = rCell
    For lCount = Len(sText) To 1 Step -1
        If IsNumeric(Mid(sText, lCount, 1)) Then
            lNum = Mid(sText, lCount, 1) & lNum
        End If
    Next lCount
    If Choose = True Then ExtractNumber = CLng(lNum)
    If Choose = False Then ExtractNumber = lNum
End Function

Mình thêm 1 cái lựa chọn nữa
+ Nếu chọn là "True" hoặc 1 thì cho kết quả là số
+ Nếu chọn là "False" hoặc 0 thi cho kết quả là chuỗi

 

[HieuCD]

Mọi người cho mình hỏi khi mình dúng extracnumber thì nó sẽ bị mất số 00 ở đầu, có cách nào giữ nguyên số đó ko ạ
Ví dụ Cột A1 : TV001234
Cột A2 : TVBC02345
nếu mình dùng exttractnumber thì nó chỉ ra 1234 và 2345 mà ko phải là 001234 và 02345

dùng công thức mảng

=MID(A1,MIN(IFERROR(FIND({0,1,2,3,4,5,6,7,8,9},A1),11)),10)

Nhấn Ctrl+Shift+Enter

 

[Nguyễn Hồng Quang]

Có phải cái hàm này không

Function ExtractNumber(rCell As Range, Choose As Boolean)
    Dim lCount As Long
    Dim sText As String
    Dim lNum As String
    sText = rCell
    For lCount = Len(sText) To 1 Step -1
        If IsNumeric(Mid(sText, lCount, 1)) Then
            lNum = Mid(sText, lCount, 1) & lNum
        End If
    Next lCount
    If Choose = True Then ExtractNumber = CLng(lNum)
    If Choose = False Then ExtractNumber = lNum
End Function

Mình thêm 1 cái lựa chọn nữa
+ Nếu chọn là "True" hoặc 1 thì cho kết quả là số
+ Nếu chọn là "False" hoặc 0 thi cho kết quả là chuỗi

Bạn xem thêm giúp mình trường hợp này với
Mình dùng hàm ExtractNumber nhưng áp dụng với nhiều dữ liệu thì báo lỗi

 

[PacificPR]

Bạn xem thêm giúp mình trường hợp này với
Mình dùng hàm ExtractNumber nhưng áp dụng với nhiều dữ liệu thì báo lỗi

Bạn thử thay như thế này xem sao

Sub Button1_Click()
    Dim I As Long
    For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Range("B" & I) = ExtractNumber(Range("A" & I), True)
    Next I
End Sub

 

[Nguyễn Hồng Quang]

Bạn thử thay như thế này xem sao

Sub Button1_Click()
    Dim I As Long
    For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Range("B" & I) = ExtractNumber(Range("A" & I), True)
    Next I
End Sub

Chuẩn rồi PacificPR ơi
Hôm nay mới để ý hình đại diện của bạn thay áo mới đó nha.
Nhưng mình thích cô ấy cái lúc thay áo hơn.....

 

[dhn46]

Một hàm khác áp dụng cho dữ liệu của bạn để bạn tham khảo.

Function ExtractNumber(ByVal rCell As Range) As String
    With CreateObject("Vbscript.Regexp")
        .Pattern = "\d+$"
        ExtractNumber = .Execute(rCell)(0)
    End With
End Function

 

[PacificPR]

Chuẩn rồi PacificPR ơi
Hôm nay mới để ý hình đại diện của bạn thay áo mới đó nha.
Nhưng mình thích cô ấy cái lúc thay áo hơn.....

Cái trên mà đưa vào Code này thì không chạy được

Sub Tachso()
    Dim sArr(), dArr(), I As Long
    sArr = Range("A1", Range("A" & Rows.Count).End(3)).Value
    ReDim dArr(1 To UBound(sArr), 1 To 1)
    For I = 1 To UBound(sArr)
        dArr(I, 1) = ExtractNumber((sArr(I, 1)), True)
    Next I
    Range("B1").Resize(I - 1, 1) = dArr
End Sub

Nếu mình dùng cái hàm đó mình sẽ sửa lại như thế này

Function ExtractNumber(sText As String, Choose As Boolean)
    Dim lCount As Long
    Dim lNum As String
For lCount = Len(sText) To 1 Step -1
    If IsNumeric(Mid(sText, lCount, 1)) Then
        lNum = Mid(sText, lCount, 1) & lNum
    End If
Next lCount
If Choose = True Then ExtractNumber = CLng(lNum)
If Choose = False Then ExtractNumber = lNum
End Function

 

[phulien1902]

Bạn xem thêm giúp mình trường hợp này với
Mình dùng hàm ExtractNumber nhưng áp dụng với nhiều dữ liệu thì báo lỗi

Bài này đơn giản thế này thôi:

Sub abc()
    Columns(2).Value = Columns(1).Value
    With Columns(2)
        .Replace "TV--00", ""
        .Replace "-ABC", ""
        .Replace "0  0", ""
    End With
End Sub