Ktrim(text)-Trả về giá trị số, loại bỏ ký tự khác - Custom Function (1 người xem)

[padkhoa]

Chia sẽ hàm mình mới viết thêm :
Mục đích : xử lý giá trị số bị lỗi khi copy từ những nguồn khác ( mail, FB, Zalo...) về excel cái mà hàm trim và substitute không xử lí được
Code :
"
Function kTrim(Chuoi)
Dim i As Integer
Dim Ktext As String
Dim kso As String

For i = 1 To Len(Chuoi)
kso = Mid(Chuoi, i, 1)
If kso = "-" And Len(Ktext) = 0 Then
Ktext = Ktext & kso
Else
If IsNumeric(kso) Or kso = "." Or kso = "," Then Ktext = Ktext & kso
End If
Next i
If Len(Ktext) > 1 Then
kTrim = CSng(Ktext)
Else
kTrim = 0
End If
End Function"

Link hướng dẫn : https://www.youtube.com/channel/UCMsQ2TBWwv-27F-1qq1O4_g

 

[Maika8008]

Dùng in tẹc nét thường xuyên nhưng tôi chưa thấy lúc nào cần phải dùng đến kiểu xử lý này, lạ nhỉ!?

 

[ptm0412]

Hàm này xử lý xong cũng như không, trường hợp dữ liệu chứa số có phân cách hàng ngàn khác với hệ thống, thậm chí còn bị lỗi chỗ CSng

 

[VetMini]

Hàm này xử lý xong cũng như không, trường hợp dữ liệu chứa số có phân cách hàng ngàn khác với hệ thống, thậm chí còn bị lỗi chỗ CSng

CSng bây giờ rất hiếm khi được dùng. Mặc định Excel mới toàn dùng Double hết.

Tôi thì chỉ để ý chỗ này:

Chia sẽ hàm mình mới viết thêm :
Mục đích : xử lý giá trị số bị lỗi khi copy từ những nguồn khác ( mail, FB, Zalo...) về excel cái mà hàm trim và substitute không xử lí được
...

Tác giả không nói đến hàm Clean. Một thiếu sót cực kỳ quan trọng.

Kết luận: hàm này chắc viết từ thế kỷ trước.

 

[befaint]

Dùng in tẹc nét thường xuyên nhưng tôi chưa thấy lúc nào cần phải dùng đến kiểu xử lý này, lạ nhỉ!?

Chủ yếu là 'dụ' vào link vê lốc thôi.

(chứ có phải link hướng dẫn đâu)