jaychou_xd
Thành viên mới

- Tham gia
- 23/6/12
- Bài viết
- 3
- Được thích
- 0

Các bạn cho mình hỏi muốn tách số tiền ra khỏi 1 chuỗi ký tự thì mình kết hợp những hàm gì vậy. Mình có gửi cụ thể 1 ví dụ, bạn nào giúp mình với


Bạn tham khảo thêm cách này nữa nhé.

Bạn thử:
Mã:Function Rut(s As String) As String With CreateObject("VBScript.RegExp") .IgnoreCase = True .Pattern = "\d+(\,\d+){0,10}" Rut = .Execute(s)(0) & " " & ChrW(273) End With End Function





Bạn sửa:Mình không hiểu cách này. Với lại vẫn còn chữ "đ", mình không tính tổng đươc. thanks bạn nhiều nhá
Function Rut(s As String) As String
With CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Pattern = "\d+(\,\d+){0,10}"
Rut = Replace(.Execute(s)(0), ",", "")
End With
End Function