Nhập một số ký tự thường tự chuyển thành chữ in hoa vẫn ở ô sau khi nhấn Enter (1 người xem)

[titanic20072007]

Tình hình là mình muốn nhập một số ký tự unicode vào vùng A150 và F1:O1 thường hoặc in hoa thì tự động chuyển thành in hoa sau khi nhấn enter hoặc chuyển sang nhập ô khác. Có bác nào ra tay giúp với.

 

[nghiaphuc]

Tình hình là mình muốn nhập một số ký tự unicode vào vùng A150 và F1:O1 thường hoặc in hoa thì tự động chuyển thành in hoa sau khi nhấn enter hoặc chuyển sang nhập ô khác. Có bác nào ra tay giúp với.

Thử code sau xem sao:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range
    If Intersect(Target, Union([A1:D50], [F1:O1])) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Cll In Intersect(Target, Union([A1:D50], [F1:O1])).Cells
        If Not Cll.HasFormula And Cll.Value <> "" Then Cll.Value = UCase(Cll.Value)
    Next
    Application.EnableEvents = True
End Sub

 

[cadafi]

Bạn thử code này xem sao
Lưu ý nếu bỏ đi dòng Application.EnableEvents = False thì excel sẽ báo lỗi.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If (Not Intersect(Target, Union([A1:D50], [F1:O1])) Is Nothing) And (Not Target.HasFormula) Then Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

 

[nghiaphuc]

Bạn thử code này xem sao
Lưu ý nếu bỏ đi dòng Application.EnableEvents = False thì excel sẽ báo lỗi.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If (Not Intersect(Target, Union([A1:D50], [F1:O1])) Is Nothing) And (Not Target.HasFormula) Then Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

Code trên sẽ báo lỗi nếu Target.Count>1 đó anh Kiệt (do Target.Value không xác định được). Tình huống này xảy ra khi copy một vùng nơi khác dán vào hoặc chọn một vùng trong phạm vi [A150] hoặc [F1:O1] để xóa dữ liệu.

 

[ptm0412]

Tình hình là mình muốn nhập một số ký tự unicode vào vùng A150 và F1:O1 thường hoặc in hoa thì tự động chuyển thành in hoa sau khi nhấn enter hoặc chuyển sang nhập ô khác. Có bác nào ra tay giúp với.

Cách dễ nhất là nhấn phím Caps Lock.

 

[Hoàng Trọng Nghĩa]

Cách dễ nhất là nhấn phím Caps Lock.

Đồng ý với Sư phụ 2 tay! Sao nhiều người lại muốn những tiện ích ngộ nghĩnh như vậy, thậm chí phải xuống hàng mà không muốn nhấn phím Enter?! Ẹc ... ẹc ...

 

[titanic20072007]

Cảm ơn các bác đã cho ý kiến và nhiệt tình giúp đỡ. Chả là em có một tệp nhạp điểm cho hs làm cho mọi người trong trường để đỡ phải tính cho vất vả. Có một số cột yêu cầu phải nhập Đ; CĐ; T, G, K, Kém,... nếu mình làm thì ok nhưng nếu một số người không để ý thì nhập thường mà nhập thường thì không đúng qui định nên em muốn có một code nào đó giải quyết vấn đề đó nên hơi ngộ chút. Vì không biết viết code nên em phải dùng bảng mã TCVN3 với định dạng font chữ in hoa cho những cột đó.