[HỎI] Code như thế nào để UPPER Cell? (1 người xem)

[lequoctrong]

Tình hình là em đang làm cái Mẫu, để tránh nhập liệu sai thì em muốn Code mặc định cho ô {Họ và tên} khi đánh tên vào dù chữ thường cũng sẽ tự biến thành CHỮ IN HOA mà không cần phải nhấn tổ hợp phím hay phải play module.
Ví dụ là tên giám đốc Công an tỉnh Đồng Nai trong ô màu vàng ạ!
Cảm ơn các bác nhiều!!!

 

[VetMini]

Cho hỏi tại sao lại phải thêm: ";" &

bởi thấy dùng: If InStr("$B$11;$B$19;$B$20", Target.Address) Then thì nó vẫn chạy bình thường?

InStr chỉ là hàm tìm chuỗi bên trong chuỗi.
Ở đây là dò một giá trị bên trong một chuỗi nhiều giá trị. Và kỹ thuật thực hiện nó như vậy. Nên tập làm quen với nó.

 

[batman1]

Cảm ơn Bác! Khá phức tạp cho 1 chuyện nhỏ nhỉ!

If Not Intersect(Target, Me.Range("B11, B19, B20")) Is Nothing Then

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B11, B19, B20")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub

Code trên chỉ đúng khi thay đổi từng ô một. Khi thay đổi vd. 2 ô cùng lúc thì có lỗi. Muốn trường hợp tổng quát, tức có thể thay đổi 1 hoặc nhiều ô cùng lúc thì phải sửa code.