Tách số không dùng vòng lặp (1 người xem)

[ndu96081631]

Sưu tầm được 1 hàm tách số khá hay, xin chia sẽ với mọi người!
Điểm đặc biệt là không dùng tí vòng lập nào!

Function TachSo(Cell As Range) As Double
  Set Temp = CreateObject("VBScript.RegExp")
  Temp.Global = True
  Temp.Pattern = "[^0-9]"
  TachSo = Temp.Replace(Cell, "")
End Function

Các bạn có thể tham khảo và phát triển thêm tùy theo yêu cầu riêng!

 

[VetMini]

Bác ơi, sao em dùng hàm của bác thì chỉ lọc được 15 số trong chuỗi, từ số 16 trở đi thì nó thành số 0. VD: lọc abc0123456789012345xyz thì thành 123456789012345 là đúng nhưng nếu là abc01234567890123456789xyz thì thành 1234567890123460000.

Hệ thống máy tính bình thường chỉ chứa được con số tới 15 chữ số. Kể từ chữ số thứ 16 được trở thành 0 hết.
Có 2 cách để giữ chứ số kể từ 16:
1. chứa trong dạng chuỗi
2. chia làm 2 phần. Ví dụ phần triệu và phần trăm ngàn.

 

[kgt]

Hệ thống máy tính bình thường chỉ chứa được con số tới 15 chữ số. Kể từ chữ số thứ 16 được trở thành 0 hết.
Có 2 cách để giữ chứ số kể từ 16:
1. chứa trong dạng chuỗi
2. chia làm 2 phần. Ví dụ phần triệu và phần trăm ngàn.

Cụ thể là em phải dùng hàm vba trường hợp này như thế nào ạ bác?

 

[befaint]

abc01234567890123456789xyz thì thành 01234567890123456789.

Function TachSo(Cell As Range)
  Set Temp = CreateObject("VBScript.RegExp")
  Temp.Global = True
  Temp.Pattern = "[^0-9]"
  TachSo = CStr(Temp.Replace(Cell, ""))
End Function

 

[TheThienChu]

Bác ơi, sao em dùng hàm của bác thì chỉ lọc được 15 số trong chuỗi, từ số 16 trở đi thì nó thành số 0. VD: lọc abc0123456789012345xyz thì thành 123456789012345 là đúng nhưng nếu là abc01234567890123456789xyz thì thành 1234567890123460000.

Dòng đầu tiên, thay as double thành as string xem sao