Tự động chuyển các ký tự sang chữ viết hoa

[dongducnhiem]

Có cách nào khi nhập xong 1 ô (nhập ký tự thường & cả ký tự Hoa) thì ô tự động chuyển tất cảc các ký tự sang chữ hoa
Nhờ các thành viên GPE giúp giùm, cảm ơn

 

[vu_tuan_manh_linh]

Có đấy bạn, nhưng làm như thế phải viết code cho từng file, lằng nhằng lắm. Tốt nhất là cứ nhập bình thường, quét vùng cần convert, chạy đoạn code sau:
Sub PROPER_ALL()
Dim Cll As Range
Application.ScreenUpdating = False
For Each Cll In Selection
If Left(Cll.Formula, 1) = "=" Then GoTo tiep
Cll.Value = UCase(Cll.Value)
tiep:
Next
Application.ScreenUpdating = True
End Sub
--
Điều kiện là sử dụng font Unicode.

 

[nghiaphuc]

Có cách nào khi nhập xong 1 ô (nhập ký tự thường & cả ký tự Hoa) thì ô tự động chuyển tất cảc các ký tự sang chữ hoa
Nhờ các thành viên GPE giúp giùm, cảm ơn

Nếu bạn muốn áp dụng cho sheet nào thì dán code sau cho sheet đó:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range
    For Each Cll In Target.Cells
        If Not Cll.HasFormula And Cll <> "" Then Cll = UCase(Cll)
    Next
End Sub

Nếu bạn muốn áp dụng cho tất cả các sheet trong workbook thì sử dụng code sau cho đối tượng ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Cll As Range
    For Each Cll In Target.Cells
        If Not Cll.HasFormula And Cll <> "" Then Cll = UCase(Cll)
    Next
End Sub

(cách này chỉ áp dụng cho font Unicode).