Trường THPT Mạc Đĩnh Chi

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Trường THPT Mạc Đĩnh Chi

Số 4 Tân Hoà Đông Phường 14 Quận 6 Tp Hồ Chí Minh


    Hàm ExtractNumber tách số ra khỏi chuỗi

    qu0cthangprovip95
    qu0cthangprovip95
    ™Đại Uý™
    ™Đại Uý™


    Giới tính : Nam Age : 28
    Ngày sinh : 03/09/1995
    Tham gia : 28/05/2012
    Bài viết : 262
    Danh vọng : 775
    Uy tín : 13
    Huy hiệu : 0
    Status : Sẽ có một thiên sứ thay anh yêu em...

    Hàm ExtractNumber tách số ra khỏi chuỗi Empty Hàm ExtractNumber tách số ra khỏi chuỗi

    Bài gửi by qu0cthangprovip95 Mon Jun 04, 2012 3:54 am

    Hôm nay bỗng nhận được một tập tin excel của khách hàng, trong đó có một cột mã chấm công có số, có chữ lộn xộn nhau không theo một qui luật nào hết (ví dụ: M123E, 155D, F33). Nhưng mình thì cần mã chấm công chỉ toàn số thôi (ví dụ: 123, 155, 33). Làm sao tách được số ra khỏi chuỗi, trong khi excel không có hàm đó. Làm cách nào đây? Chẳng lẽ làm bằng tay, làm biết đến bao giờ cho xong, mấy ngàn dòng dữ liệu lận đó!

    Không sao, trong excel không có hàm tách chuỗi cũng không sao. Chúng ta có thể tự viết hàm ExtractNumber để dùng. Excel có công cụ hỗ trợ chúng ta viết hàm theo ý mình. Đây là cách giải quyết cho bài toán trên.

    Nào chúng ta bắt đầu cùng nhau giải quyết:

    • Bước 1: mở Microsoft Excel lên

    • Bước 2: nhấn Alt + F11 -> mở ra cửa sổ Microsoft Visual Basic -> Insert -> Module


    Hàm ExtractNumber tách số ra khỏi chuỗi Extrac10

    • Bước 3: Bạn nhập đoạn code bên dưới vào cửa sổ Book1-Module1 (Code), hình minh hoại bên dưới:

    Code:
    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

    Hàm ExtractNumber tách số ra khỏi chuỗi Extrac11

    Vậy là bạn đã có thể dùng hàm ExtractNumber để tách số ra khỏi chuỗi rồi đó.

    • Bước 4: Quay lại Microsoft Excel, bạn dùng hàm ExtractNumber như hình bên dưới:


    Hàm ExtractNumber tách số ra khỏi chuỗi Extrac12

    => Chúc bạn thành công

    Góc Kinh Nghiệm

      Hôm nay: Fri Mar 29, 2024 2:25 am