Không cho nhập tiếng Việt có dấu

[LanAnh19]

Các bạn cho hỏi có cách nào, không cho nhập tiếng Việt có dấu tại Sheet TH từ ô A5 đến ô A1000 không? Cảm ơn các bạn

 

[Tình nghĩa giang hồ]

Các bạn cho hỏi có cách nào, không cho nhập tiếng Việt có dấu tại Sheet TH từ ô A5 đến ô A1000 không? Cảm ơn các bạn

Sao bạn không suy nghĩ ngược lại. Bất cứ dữ liệu nào từ ô A5 đến A1000 nếu có dấu thì sẽ thành không dấu.
Cách này thì dễ hơn bạn.

 

[cantl]

Các bạn cho hỏi có cách nào, không cho nhập tiếng Việt có dấu tại Sheet TH từ ô A5 đến ô A1000 không? Cảm ơn các bạn

Có lẽ cần 1 cao thủ kết nối Excel với VBA khi ở trong ô đấy thì tắt Unikey đi.
Hoặc 1 cao thủ khác tạo sự kiện xử lý khi ô đang được chỉnh sửa, chưa enter thoát ô.
Cả 2 món này hình như cao cấp đấy.

Với cách nông dân của mình thì cứ Alt+Z, công nhận làm nhiều tốn thời gian nhưng tạm trong lúc chờ.

 

[Châu Bá Thông]

Các bạn cho hỏi có cách nào, không cho nhập tiếng Việt có dấu tại Sheet TH từ ô A5 đến ô A1000 không? Cảm ơn các bạn

Data validation, type= customs
Formula =AND(ISNUMBER(SEARCH(MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1), "0123456789abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ")), LEN(A1)>0)
Các hạ muốn cho nhập ký tự gì thì thêm vào chuỗi.

 

[befaint]

Người ta bảo không cho NHẬP tiếng Việt thôi, còn tiếng mán tiếng tàu thái hàn nhật tây ban nha đức ý pháp không cấm.
NHẬP không chỉ có gõ gõ mà bao gồm cả cóp piiiiiiiii pếttttttttttt.
Ha ha ha haaaaaaaa.

 

[Châu Bá Thông]

Người ta bảo không cho NHẬP tiếng Việt thôi, còn tiếng mán tiếng tàu thái hàn nhật tây ban nha đức ý pháp không cấm.
NHẬP không chỉ có gõ gõ mà bao gồm cả cóp piiiiiiiii pếttttttttttt.
Ha ha ha haaaaaaaa.

Khả năng công lực của bần đạo tới đó thôi, mong các hạ chỉ giáo thêm.

 

[LanAnh19]

Data validation, type= customs
Formula =AND(ISNUMBER(SEARCH(MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1), "0123456789abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ")), LEN(A1)>0)
Các hạ muốn cho nhập ký tự gì thì thêm vào chuỗi.

Cảm ơn bạn nhiều nhé

 

[cantl]

Cảm ơn bạn nhiều nhé

Với sự trợ giúp của Cô bé của bebo, yêu cầu có 2 tính năng sau để thỏa mãn Lan Anh 19 tuổi, Mr Lão ngoan đồng và Mr befaint:

Data validation

Ghi chú như ảnh nếu cần.

=AND(NOT(ISNUMBER(SEARCH(MID(A5, ROW(INDIRECT("1:" & LEN(A5))), 1), "ắằẳẵặấầẩẫậếềểễệốồổỗộớờởỡợứừửữựằáàảãạăâđéèẻẽẹêíìỉĩịóòỏõọôơúùủũụưýỳỷỹỵ"))), LEN(A5)>0)

cóp piiiiiiiii pếttttttttttt

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim invalidChars As String
    Dim inputStr As String
    Dim i As Integer
    Set rng = Intersect(Target, ActiveSheet.Range("A5:A1000"))
    invalidChars = ChrW(7855) & ChrW(7857) & ChrW(7859) & ChrW(7861) & ChrW(7863) & ChrW(7845) & ChrW(7847) & ChrW(7849) & ChrW(7851) & ChrW(7853) _
                 & ChrW(7871) & ChrW(7873) & ChrW(7875) & ChrW(7877) & ChrW(7879) & ChrW(7889) & ChrW(7891) & ChrW(7893) & ChrW(7895) & ChrW(7897) _
                 & ChrW(7899) & ChrW(7901) & ChrW(7903) & ChrW(7905) & ChrW(7907) & ChrW(7913) & ChrW(7915) & ChrW(7917) & ChrW(7919) & ChrW(7921) _
                 & ChrW(7857) & ChrW(225) & ChrW(224) & ChrW(7843) & ChrW(227) & ChrW(7841) & ChrW(259) & ChrW(226) & ChrW(273) & ChrW(233) & ChrW(232) _
                 & ChrW(7867) & ChrW(7869) & ChrW(7865) & ChrW(234) & ChrW(237) & ChrW(236) & ChrW(7881) & ChrW(297) & ChrW(7883) & ChrW(243) & ChrW(242) _
                 & ChrW(7887) & ChrW(245) & ChrW(7885) & ChrW(244) & ChrW(417) & ChrW(250) & ChrW(249) & ChrW(7911) & ChrW(361) & ChrW(7909) & ChrW(432) _
                 & ChrW(253) & ChrW(7923) & ChrW(7927) & ChrW(7929) & ChrW(7925) & ChrW(7854) & ChrW(7856) & ChrW(7858) & ChrW(7860) & ChrW(7862) & ChrW(7844) _
                 & ChrW(7846) & ChrW(7848) & ChrW(7850) & ChrW(7852) & ChrW(7870) & ChrW(7872) & ChrW(7874) & ChrW(7876) & ChrW(7878) & ChrW(7888) & ChrW(7890) _
                 & ChrW(7892) & ChrW(7894) & ChrW(7896) & ChrW(7898) & ChrW(7900) & ChrW(7902) & ChrW(7904) & ChrW(7906) & ChrW(7912) & ChrW(7914) & ChrW(7916) _
                 & ChrW(7918) & ChrW(7920) & ChrW(7856) & ChrW(193) & ChrW(192) & ChrW(7842) & ChrW(195) & ChrW(7840) & ChrW(258) & ChrW(194) & ChrW(272) & ChrW(201) _
                 & ChrW(200) & ChrW(7866) & ChrW(7868) & ChrW(7864) & ChrW(202) & ChrW(205) & ChrW(204) & ChrW(7880) & ChrW(296) & ChrW(7882) & ChrW(211) & ChrW(210) _
                 & ChrW(7886) & ChrW(213) & ChrW(7884) & ChrW(212) & ChrW(416) & ChrW(218) & ChrW(217) & ChrW(7910) & ChrW(360) & ChrW(7908) & ChrW(431) & ChrW(221) _
                 & ChrW(7922) & ChrW(7926) & ChrW(7928) & ChrW(7924)
    If Not rng Is Nothing Then
        For Each cell In rng
            inputStr = cell.Value
            For i = 1 To Len(invalidChars)
                If InStr(inputStr, Mid(invalidChars, i, 1)) > 0 Then
                    cell.ClearContents
                    MsgBox "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" & _
                           "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" & _
                           "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" & _
                           "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" & _
                           "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" & _
                           "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" & _
                           "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
                    Exit For
                End If
            Next i
        Next cell
    End If
End Sub

Cô bé của bebo sẽ giúp ích rất nhiều cho những người viết code và sẽ làm ngu đi những người lười viết code.

 

[VetMini]

...

Cô bé của bebo sẽ giúp ích rất nhiều cho những người viết code và sẽ làm ngu đi những người lười viết code.

Tôi là một trong những người lười viết code nè.
Hèn gì càng ngày càng thấy minh tụt hậu

Chú thích: giải pháp của người tụt hậu và ngu đi là
Tiếng La tin không dấu có mã số dưới 128. Chỉ cần xét vậy thôi. Nễu kỹ hơn thì in một bảng ASCII ra mà chọn các ký tự ngoại lệ.

 

[cantl]

Tiếng La tin không dấu có mã số dưới 128

Em không rõ lắm, nhưng mã tiếng Việt Unicode em thấy 78xx ấy bác.

 

[ptm0412]

Em không rõ lắm, nhưng mã tiếng Việt Unicode em thấy 78xx ấy bác.

Tôi cũng lười code và đang ngu dần đi, nhưng ít ra cũng biết ngược với không cho phép là có cho phép.

 

[cantl]

mã số dưới 128

ngược với không cho phép là có cho phép

Thiệt tình nếu được thì các bác làm mẫu cho em hiểu với. Trên là em đang liệt kê hết các từ có dấu Tiếng Việt luôn ấy.
Em không học lý thuyết nổi đâu.

PS: em đính chính lại là lười học code nhé. Các bác khiêm tốn quá hoá ra 10 lần tự cao đấy. Hehe. @ptm0412 , @VetMini.

 

[ptm0412]

Thiệt tình nếu được thì các bác làm mẫu cho em hiểu với. Trên là em đang liệt kê hết các từ có dấu Tiếng Việt luôn ấy.

Tôi giải thích cho cháu ngoại 6 tuổi như vầy:
Nếu không cho ăn cơm ngon, thay vì phải liệt kê không cho ăn cơm với thịt heo với thịt bò, với gà với trứng, với cá với tôm với cua, với món chiên món xào, với món kho món nấu, với rau với củ, .. thì chỉ cần nói "chỉ được ăn cơm trắng với muối trắng".

 

[cantl]

Tôi giải thích cho cháu ngoại 6 tuổi như vầy:
Nếu không cho ăn cơm ngon, thay vì phải liệt kê không cho ăn cơm với thịt heo với thịt bò, với gà với trứng, với cá với tôm với cua, với món chiên món xào, với món kho món nấu, với rau với củ, .. thì chỉ cần nói "chỉ được ăn cơm trắng với muối trắng".

Cháu bác thông minh đấy chứ. Ước gì em được thông minh như cháu bác.

Vậy nó không hỏi thêm gì nữa sao bác? Vừa thông minh lại vừa ngoan. Nhất bác rồi.

 

[ptm0412]

Vậy nó không hỏi thêm gì nữa sao bác?

Không. Sau đó đưa cho nó 1 món ăn, nó không đối chiếu với danh sách món ăn bị cấm dài dằng dặc mà chỉ so với muối: Một là muối, hai là không phải muối.

Ước gì em được thông minh như cháu bác.

Bạn không phải không thông minh bằng đứa 6 tuổi, chỉ là cái tay nhanh hơn, không cho cái não làm việc.

 

[cantl]

Không. Sau đó đưa cho nó 1 món ăn, nó không đối chiếu với danh sách món ăn bị cấm dài dằng dặc mà chỉ so với muối: Một là muối, hai là không phải muối.

Bạn không phải không thông minh bằng đứa 6 tuổi, chỉ là cái tay nhanh hơn, không cho cái não làm việc.

Khổ, não em kém thật, không nghĩ được, cứ gặp vấn đề gì cần suy nghĩ là lại thôi.

Cứ phải dùng mắt nhìn thấy kết quả rồi mới dùng 1 tí tẹo não để luận ngược lại được. Kiểu như oánh đề ấy, 18h30 ra con số là có thể luận được trong ngày mình đã gặp những gì liên quan đến nó, thế mà trước đó không luận được nên suỵt.

 

[VetMini]

...
Bạn không phải không thông minh bằng đứa 6 tuổi, chỉ là cái tay nhanh hơn, không cho cái não làm việc.

Tôi mới là người nhanh tay nhất ở đây.
Nhiều vấn đề hỏi ởi GPE này được người hỏi liệt vào "làm thủ công sang năm mới xong", tôi làm nhanh hơn họ "động não" đi xin code nhiều.