Đã tìm được hàm tách số trong chuỗi kí tự...tham khảo nhé!!!

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi kunkun, 26 Tháng hai 2008.

13,970 lượt xem

  1. kunkun

    kunkun (_ __')

    Bài viết:
    468
    Đã được thích:
    0
    Nơi ở:
    Hồ Chí Minh
    viết hàm bang VB nhé:
    1 . ALT + F11 -> Insert -> Module.
    2. Dán đoạn code này vào khoảng trống nhé.

    Function TS(Mystr As String, Optional Dautp As String) As Double
    Dim Kqng, Kqtp, Neg As Double, Kqtam As String
    Dim Sotp As Double, Le As Byte
    Neg = 1
    Le = 0
    For i = 1 To Len(Mystr)
    tam = Mid(Mystr, i, 1)
    Select Case tam
    Case 0 To 9
    Kqtam = Kqtam & tam
    Case "-"
    Neg = -1
    Case Dautp
    Kqng = Kqtam
    Le = 1
    Mystr = Right(Mystr, Len(Mystr) - i)
    Kqtp = TS(Mystr)
    Sotp = Kqtp * 10 ^ (-Len(Mystr))
    End Select
    Next i
    Select Case Le
    Case 0
    TS = Kqtam
    Case 1
    TS = Kqng + Sotp
    End Select
    TS = TS * Neg
    End Function

    3. Chọn Files - > Save as -> save as type - > Micorossoft office excell add-ins ( *.xla) ở dưới cùng.-> lưu name = TS.
    4. Tools -> add - Ins... -> TS -> ok.
    5. khởi động lại excell.
    chỉ cần gõ = TS(ô muốn tách số). là ok...!!!
    Hàm này sẽ giúp ích rất nhiều trong làm sổ sách đấy nhé...1!!!:angel:
     
    #1
  2. kunkun

    kunkun (_ __')

    Bài viết:
    468
    Đã được thích:
    0
    Nơi ở:
    Hồ Chí Minh
    tuy nhiên nếu ai có cách thiết lập hàm tách số mà ko cần thiết lập code trên VB thi cứ đăng tham khảo nhé các bạn
     
    #2

Chia sẻ trang này