Tự động đổi chữ thường ra chữ hoa sau khi nhập liệu

[jackylai]

Dear all,
Mình có một vấn đề rất mong anh chị em trong diễn đàn giúp đỡ:
Mình có một range (vd: A1:A10) trong Sheet1 và muốn mỗi lần nhập liệu vào bất kỳ cell nào trong range này dữ liệu sẽ tự động được chuyển từ chữ thường sang chữ in hoa.Rất mong nhận được sự giúp đỡ.
(Đã dùng hướng dẫn trong thread này: http://www.giaiphapexcel.com/forum/showthread.php?3239 nhưng không có tác dụng)

 

[ongke0711]

dạ, Thầy cho em hỏi sử dụng hàm này như thế nào ạ? Em muốn sử dụng cho việc nhập họ tên ở cột C từ ô C5:C250 trong sheet1 ạ?

Đừng gọi Thầy, gọi anh cũng được rồi (cho thấy trẻ).
Ý bạn là muốn nhập xong thì nó tự chỉnh sửa hay trình tự thao tác như thế nào?

 

[hcl_pt]

Đừng gọi Thầy, gọi anh cũng được rồi (cho thấy trẻ).
Ý bạn là muốn nhập xong thì nó tự chỉnh sửa hay trình tự thao tác như thế nào?

Cảm ơn anh! Ý là nhập xong thì nó tự chỉnh sửa ạ!

 

[Hoàng Tuấn 868]

nhập xong thì nó tự chỉnh sửa ạ!

Bạn xem thử, không biết đúng ý chưa?

 

[ongke0711]

Bạn xem thử, không biết đúng ý chưa?

Không biết Office tôi có lỗi hay không chứ tôi chạy thử trên Office 2013 (32bit) và Office 365 (64) đều bị treo và thoát Excel sau nhập liệu và bấm Enter.

 

[Hoàng Tuấn 868]

Không biết Office tôi có lỗi hay không chứ tôi chạy thử trên Office 2013 (32bit) và Office 365 (64) đều bị treo và thoát Excel sau nhập liệu và bấm Enter.

Em dùng Office 2021 (32bit), chạy bình thường không thấy bị sao mới dám gửi lên anh ạ.

 

[hcl_pt]

Xin cảm ơn các thầy đã giúp đỡ! Em mày mò chắp vá cũng ra được cái này rồi ạ!

 

[Hoàng Tuấn 868]

Xin cảm ơn các thầy đã giúp đỡ! Em mày mò chắp vá cũng ra được cái này rồi ạ!

Không nên gọi là thầy nhé.
Code của bạn vòng vèo quá, nhưng chạy được là tốt rồi, file của mình trên máy tính bạn chạy có vấn đề gì giống như của ongke0711 không?
File của bạn nên tạo Userform nhập liệu sẽ nhanh và chính xác hơn nhiều.

 

[ongke0711]

Em dùng Office 2021 (32bit), chạy bình thường không thấy bị sao mới dám gửi lên anh ạ.

Máy tôi nó phản ứng lạ quá. Win11 + O365 bản quyền.
Sự kiện trong Sheet Excel không rành nên khó bắt sự kiện AfterUpdate và OnExit như trên Form.
Code này của tôi phải bấm quay ngược lại cái Cell vừa gõ nó mới cập nhật.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim oldCellText As String
    Dim intersectRange As Range
    Dim lastRow As Long
    Const targetCol As String = "C"
    Const startRow As Long = 2
    
    lastRow = Cells(Rows.Count, targetCol).End(xlUp).Row
    Set intersectRange = Range(targetCol & startRow & ":" & targetCol & lastRow + 1)
    
    If Not Intersect(Target, intersectRange) Is Nothing Then
        On Error Resume Next
        oldCellText = Target.Value
        Target.Value = QuyChuanHoTen(oldCellText)
    End If
    
End Sub

Lỗi khi sử dụng file của bạn Tuấn 686:

 

[Hoàng Tuấn 868]

Máy tôi nó phản ứng lạ quá. Win11 + O365 bản quyền.

Em chạy Win10, không hiểu sao bên máy anh lại như vậy. Code em viết cũng bình thường.

 

[hcl_pt]

Không nên gọi là thầy nhé.
Code của bạn vòng vèo quá, nhưng chạy được là tốt rồi, file của mình trên máy tính bạn chạy có vấn đề gì giống như của ongke0711 không?
File của bạn nên tạo Userform nhập liệu sẽ nhanh và chính xác hơn nhiều.

dạ, file của anh em chạy trên máy em chạy ok ạ nhưng không xóa khoảng trắng từ 2 khoảng trắng trở lên ạ

 

[Hoàng Tuấn 868]

dạ, file của anh em chạy trên máy em chạy ok ạ nhưng không xóa khoảng trắng từ 2 khoảng trắng trở lên ạ

Thêm phần xóa khoảng trắng thừa.

 

[ongke0711]

Nhìn bài bạn Tuấn 868 mới ngộ ra cách dùng ActiveCell....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim oldCellText As String
    Dim intersectRange As Range
    Dim lastRow As Long
    Const targetCol As String = "C"
    Const startRow As Long = 2
    
    lastRow = Cells(Rows.Count, targetCol).End(xlUp).Row
    Set intersectRange = Range(targetCol & startRow & ":" & targetCol & lastRow + 1)
    
    If Not Intersect(Target, intersectRange) Is Nothing Then
        On Error Resume Next
        oldCellText = ActiveCell.Offset(-1, 0)
        ActiveCell.Offset(-1, 0) = QuyChuanHoTen(oldCellText)
    End If
    
End Sub

Bài đã được tự động gộp: 1/6/24

@Hoàng Tuấn 868 : tại sao bạn dùng WS_Change mà không dùng WS_SelectionChange?

 

[Hoàng Tuấn 868]

@Hoàng Tuấn 868: tại sao bạn dùng WS_Change mà không dùng WS_SelectionChange?

Em copy từ một code cũ sang rồi sửa lõi nên cứ để nguyên vậy anh ạ.

 

[VetMini]

Nhìn bài bạn Tuấn 868 mới ngộ ra cách dùng ActiveCell....

...
    If Not Intersect(Target, intersectRange) Is Nothing Then
        On Error Resume Next
        oldCellText = ActiveCell.Offset(-1, 0)
        ActiveCell.Offset(-1, 0) = QuyChuanHoTen(oldCellText)
    End If
End Sub

Bài đã được tự động gộp: 1/6/24

@Hoàng Tuấn 868 : tại sao bạn dùng WS_Change mà không dùng WS_SelectionChange?

1. Tôi chưa hiểu tại sao dùng ActiveCell.
Theo code thì bạn măc định rằng người dùng đã 'Enter'. Trên thực tế người ta vẫn có thể đã 'Tab'
2. dùng WS_Change mà không dùng WS_SelectionChange?
ngoài việc khác sự kiện, điểm chính là Target. Với cách thứ nhất Target là ô mới vừa được sửa. Với cách thứ hai, Target là ô mới vừa được chọn (với cửa/enter thì nó là ô dưới ô vừa được sửa).

Đừng gọi Thầy, gọi anh cũng được rồi (cho thấy trẻ).
...

Không nên gọi là thầy nhé.
...

Tôi lại ao ước người ta gọi mình là Thầy. Và theo trào lưu thích thích gì đó, tôi chọn cái tên Thầy Thích Nón Gai cho nó bình dân.

 

[Hoàng Tuấn 868]

"Thầy Thích Nón Gai" cho nó bình dân.

Nhỡ Nón không Gai lại mừng hụt anh ơi.

 

[VetMini]

Nhỡ Nón không Gai lại mùng hụt anh ơi.

Mình sợ có gai chứ sao lại sợ không gai?

 

[ongke0711]

Trên thực tế người ta vẫn có thể đã 'Tab'

Bẫy lỗi {TAB} này cũng căng à anh...Đã có Tab thì cũng có mũi tên trái phải, lên xuống...
Thêm cái code này mà chạy chưa được.

With Application
   .OnKey "{TAB}", "quyChuanHoTen_ex"
   Exit Sub
End With

 

[ongke0711]

File đính kèm cũng tạm xử lý được phím {TAB} nhưng giải thuật này vẫn bị phải bấm phím {Enter} hoặc {Tab} 2 lần nó mới di chuyển... .
Thôi bỏ cuộc vậy.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim intersectRange As Range
    Dim lastRow As Long
    Const targetCol As String = "C"
    Const startRow As Long = 2

    lastRow = Cells(Rows.Count, targetCol).End(xlUp).Row
    Set intersectRange = Range(targetCol & startRow & ":" & targetCol & lastRow + 1)

    If Not Intersect(Target, intersectRange) Is Nothing Then
        On Error Resume Next
        Application.OnKey "{RETURN}", "QuyChuanHoTen_ex2"
        Application.OnKey "{TAB}", "QuyChuanHoTen_ex"
    End If
End Sub

 

[cantl]

Cái này hay nè, nhớ lúc nhỏ Thầy Cô dạy +-*/ mà thừa thì nhớ tạm đâu đó, thế là em ứng dụng vào luôn.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tempO As Range
    Application.EnableEvents = False
    Set tempO = Intersect(Target, Range("c5:c250"))
    If Not tempO Is Nothing Then
        tempO.Value = Application.Trim(Application.Proper(tempO.Value))
    End If
    Application.EnableEvents = True
End Sub

 

[VetMini]

Cần giải thích tại sao dùng Application.Trim mà không dùng Trim của VBA.
Như trên, tại sao dùng Application.Proper mà không dùng StrConv của VBA.

Tôi biết tại sao. Nhưng nếu để người viết code giải thích thì tốt hơn.