Cám ơn bạn! đúng là như bạn nói thế nhưng mỗi lần nhập chữ "W" rất mất thời gian (vW) như vậy cần đoạn code để triệt tiêu vấn đề rắc rối này.
Bạn muốn là mặc dù Unikey ở chế độ tiếng Việt mà bạn đánh gì vào trong E2-E50000 vẫn hiểu là tiếng Anh tức là không có dấu phải không? Nếu vậy bạn chỉ cần nhấn tổ hợp phím tắt Ctrl + Shift thì từ V ==> chuyển sang E chứ gì, hay là sao không hiểu
Cám ơn bạn! điều này thì mình hiểu, nhưng mình muốn loại bỏ hẳn vấn đề này.
Hoặc là bạn đừng dùng trình gõ tiếng Việt nữa, hoặc là đã dùng thì phải chấp nhận thôi
Hình như mọi người hiểu sai ý của em rồi! Nhưng thao tác như trên thì em biết nhưng ý của em không phải như vậy.
Mọi người không hiểu sai đâu, chỉ là bạn không hiểu mọi người nói thôi
Em nghĩ có thể có 1 cách là sử dụng thủ tục Worksheet_SelectionChange, và điều khiển tùy chọn của Vietkey qua thủ tục này. Tuy nhiên khả năng của em không thể làm được. Anh có thể làm được như thế không ạ?
Vậy thầy giúp em đoạn code chư hoa chữ thường trước đã nha. còn phần còn V,E thì để tính sau cũng được ạ
Mình đã thêm vào auturun Sub auturun_PROPER()
Trước tôi cũng từng nghĩ vậy nhưng thực tế không dễ chút nào! Làm sao ta có thể can thiệp được vào phần mềm khác đây? Dùng SendKeys à? Cũng khi vầy khi khác lắm, không chắc ăn
Cứ nhập liệu bình thường, sau khi nhập xong, quét chọn vùng dữ liệu rồi chạy code dưới đây:
Sub UpperCase()
Dim sArray, Area As Range, i As Long, j As Long
On Error Resume Next
With Selection
If .Count = 1 Then
.Value = UCase(.Value)
Else
For Each Area In .Areas
sArray = Area.Value
If TypeName(sArray) <> "Variant()" Then
If Trim(sArray) <> "" And Not (IsNumeric(sArray)) Then sArray = UCase(sArray)
Else
For i = 1 To UBound(sArray, 1)
For j = 1 To UBound(sArray, 2)
If Trim(sArray(i, j)) <> "" And Not (IsNumeric(sArray(i, j))) Then
sArray(i, j) = UCase(sArray(i, j))
End If
Next
Next
End If
Area.Value = sArray
Next
End If
End With
End SubCode này hoạt động trên Range, sẽ chạy chậm rì với dữ liệu lớn
Tốt nhất đừng bao giờ chơi trò TỰ ĐỘNG ---> Bạn sẽ gặp rắc rối dài dài
Bạn có thể dùng sự kiện change như anh Ndu nói rất nguy hiểm mà có thể nó hơi chậm nữa
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [E2:E5000]) Is Nothing Then Target.Value = UCase(Target)
End SubEm cám ơn thầy ạ!
Với bất cứ sự kiện Change nào thực hiện biến đổi trực tiếp trên Target, ta phải luôn cho cặp lệnh Application.EnableEvents = False vào đầu code và Application.EnableEvents = True vào cuối code (nếu không coi chừng nó chạy hoài hoài luôn)
Trong code, chổ nào có chữ UCase thì sửa thành LCase ---> Sẽ chuyển toàn bộ thành chữ thường (chứ hổng phải chuyển ngược lại... ai biết trước đó là cái giống gì mà chuyển)
