Bỏ dấu trong VB (2 người xem)

[huynhson0102]

Mình có hàm thế này

Function CountThien(Rng As Range) As Integer
 Dim Clls As Range, tStr As String, temp As Long
 tStr = "@"
 For Each Clls In Rng
    If Clls <> "" And InStr(1, tStr, "@" & Clls & "@") = 0 And InStr(1, Clls, "Thiên") > 0 Then
        temp = 1 + temp
        tStr = tStr & Clls & "@"
    End If
 Next
CountThien = temp
End Function

Mình muốn tìm công nhân tên Thiện mỗi tháng làm được bao nhiêu công việc. Nhưng mình bỏ dấu thì chữ Thiện bị lỗi (thê này Thi?n) nên không đếm được.
Các bác giúp mình làm cách nào có thể bỏ dấu được không? Cảm ơn.
Các bác xem hình giúp em nhé. Mình đặt công thức cho ô G6, Và muốn thì kiếm từ F11 đến F50. Nãy quên đính kèm excel, giờ sửa, k thấy nút đính kèm.

 

[huynhson0102]

sao lúc sử bài viết không thấy nút đính kèm đâu nhỉ. Nãy quên đính kèm.

 

[dhn46]

Chữ Thiện thể hiện bởi đoạn code sau, bạn cứ thế áp dụng nhé

"Thi" & ChrW(7879) & "n"

 

[huynhson0102]

Mình làm nhiều tên lắm bác ơi. Bác cho mình biết quy tắc được không? à. Giờ sửa thì đính kèm file thế nào vậy bác?

 

[dhn46]

Mình làm nhiều tên lắm bác ơi. Bác cho mình biết quy tắc được không?

Trong đoạn Code trên bạn sẽ thấy những ký tự không dấu sẽ gõ bình thường, rắc rối ở ký tự có dấu (cụ thể chữ ệ => ChrW(7879) )

Vậy để tìm ra quy luật bạn làm như sau:

Đánh ký tự đặc biệt tại A1 (ví dụ: í , ụ, ê ....)

Chạy sub sau:

Sub Test()

Msgbox MsgBox AscW([A1])

End Sub

Kết quả thu được bạn đưa vào hàm ChrW như bài #3 là được.

 

[huynhson0102]

Cậu xem file này giúp mình nhé. xem chạy thế nào để ra kết quả, mình viết VB cái tên của cậu giúp. Mà k chạy đc.
Với lại viết giúp mình 1 button có message box giống cậu nói nhé. cảm ơn nhiều lắm.
http://www.mediafire.com/file/qvpm2is1ovy3gpi/KBI+OF+MRO+(ok).xlsm

 

[quanluu]

Mình làm nhiều tên lắm bác ơi. Bác cho mình biết quy tắc được không? à. Giờ sửa thì đính kèm file thế nào vậy bác?

Cung cấp bang tra cho bạn.