Tách số ra khỏi chuỗi, giữ nguyên số 0 phía trước (1 người xem)

[tuana2mk]

Chào mọi người
Mình đang gặp chút khó khăn với việc tách số, khi tách nó bị mất số 0 đở đầu
Xin hỏi mọi người có cách nào giữ nguyên số 0 ở đầu không
Mình sử dụng đoạn code sau
"Function ExtractNumber(rCell As Range)
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
ExtractNumber = CLng(lNum)
End Function"
Tách ok nhưng không giữ được số 0 ở đầu
vd: 001234abc cần tách ra thành 001234
01234abc cần tách thành 01234
Cảm ơn mn

 

[huonglien1901]

Chào mọi người
Mình đang gặp chút khó khăn với việc tách số, khi tách nó bị mất số 0 đở đầu
Xin hỏi mọi người có cách nào giữ nguyên số 0 ở đầu không
Mình sử dụng đoạn code sau
"Function ExtractNumber(rCell As Range)
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
ExtractNumber = CLng(lNum)
End Function"
Tách ok nhưng không giữ được số 0 ở đầu
vd: 001234abc cần tách ra thành 001234
01234abc cần tách thành 01234
Cảm ơn mn

thử bỏ chữ CLng thử xem.

 

[tuana2mk]

thử bỏ chữ CLng thử xem.

được rồi, cảm ơn bạn nhiều nha

 

[Phuocam]

Hình như chủ đề lộn box, góp vui:

Function ExtractNumber(ByVal sText As String)
Dim lCount As Long
For lCount = 1 To Len(sText) Step 1
    If IsNumeric(Mid(sText, lCount, 1)) = False Then Mid(sText, lCount, 1) = " "
Next lCount
ExtractNumber = Replace(sText, " ", "")
End Function