Hướng dẫn sửa code (1 người xem)

[kdang]

Em muốn tạo một hàm chuẩn hóa Tài khoản cho phép xử lý tài khoản nhập sẵn kiểm tra từng ký tự nếu không phải ký tự số hoặc ký tự chữ cái viết hoa thì xóa ra khỏi chuỗi.
Bác nào giúp em với.

Function ChuanhoaTK(str As String) As String
Dim sChuoi As String
Dim mlen As Long
Dim i As Long
Dim j As Integer

'Neu chuoi =0 thi khong xu ly
If Len(str) = 0 Then Exit Function
'Xoa bo cac ky tu trang o dau va cuoi
str = UCase(Trim(str))
'Dem so ky tu chuoi
mlen = Len(str)
sChuoi = ""

For i = 1 To mlen
j = AscW(Mid(str, i, 1))
If j < 47 Or j > 90 Then
str = Replace(str, Mid(str, i, 1), "")
i = i - 1
Else
If j > 57 And j < 65 Then
str = Replace(str, Mid(str, i, 1), "")
i = i - 1
Else
sChuoi = sChuoi & Mid(str, i, 1)
End If
End If
Next
ChuanhoaTK = sChuoi
End Function

Tham khảo từ link mà không chạy được.

http://tinhocvp.blogspot.com/2013/12/ham-chuan-hoa-chuoi-trong-excel.html

 

[VMH0307]

Em muốn tạo một hàm chuẩn hóa Tài khoản cho phép xử lý tài khoản nhập sẵn kiểm tra từng ký tự nếu không phải ký tự số hoặc ký tự chữ cái viết hoa thì xóa ra khỏi chuỗi.
Bác nào giúp em với.

Tham khảo từ link mà không chạy được.

http://tinhocvp.blogspot.com/2013/12/ham-chuan-hoa-chuoi-trong-excel.html

Với tiêu đề bài này thì dễ bị xóa lắm.
Theo ý tưởng hàm kiểu của bạn thì sao không sửa lại thành như sau cho dễ nhìn
[gpecode=vb]Function ChuanhoaTK(Mystr As String) As String
Dim sChuoi As String
Dim mlen, i, j
'Neu chuoi =0 thi khong xu ly
If Len(Mystr) = 0 Then Exit Function
mlen = Len(Mystr)
sChuoi = ""
For i = 1 To mlen
j = Asc(Mid(Mystr, i, 1))
If (j < 57 And j > 47) Or (j > 64 And j < 90) Then
sChuoi = sChuoi & Mid(Mystr, i, 1)
End If
Next
ChuanhoaTK = sChuoi
End Function
[/gpecode]
P/s: Hàm của bạn không đúng với yêu cầu là chữ không viết hoa thì xóa luôn, thay vào đó lại convert chúng hết thành viết hoa.
Riêng với tôi, dạng bài xử lý chuỗi thì dùng Regexp cho khỏe, khả năng tùy biến cao