Lỗi Code Chuyển Chữ Thường Sang Chữ In Hoa (1 người xem)

[letinnghia]

Chào các bạn GPE!
Mình có sử dụng 1 đoạn code tải trên GPE thấy rất hiệu quả cho việc chuyển chữ thường sang chữ IN HOA, tuy nhiên khi mình chọn từ 2 cell trở lên đễ xóa dữ liệu hoặc copy dữ liệu từ vùng khác paste vào thì code báo lỗi. Anh chị và các bạn sửa giùm mình chỗ này với.
Trân trọng cảm ơn.

 

[giaiphap]

Chào các bạn GPE!
Mình có sử dụng 1 đoạn code tải trên GPE thấy rất hiệu quả cho việc chuyển chữ thường sang chữ IN HOA, tuy nhiên khi mình chọn từ 2 cell trở lên đễ xóa dữ liệu hoặc copy dữ liệu từ vùng khác paste vào thì code báo lỗi. Anh chị và các bạn sửa giùm mình chỗ này với.
Trân trọng cảm ơn.

Bạn sửa lại code thế này thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sCell As Range
If Not Intersect(Union([A1:A100], [C1:C100], [E1:E100]), Target) Is Nothing Then
   Application.EnableEvents = False
   For Each sCell In Target
      sCell.Value = UCase(sCell)
   Next
   Application.EnableEvents = True
End If
End Sub

 

[letinnghia]

Bạn sửa lại code thế này thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sCell As Range
If Not Intersect(Union([A1:A100], [C1:C100], [E1:E100]), Target) Is Nothing Then
   Application.EnableEvents = False
   For Each sCell In Target
      sCell.Value = UCase(sCell)
   Next
   Application.EnableEvents = True
End If
End Sub

Code hoạt động rất tốt, cảm ơn bạn nhiều nhé.