Nhờ mọi người giúp code VBA để in hoa văn bản được bôi đen chọn trong ô

[dangvandang]

Em cần mã VBA để chuyển chữ được bôi chọn trong ô sang chữ IN HOA. Ví dụ trong file đính kèm khi chọn ô A1 nhấn nút lệnh thì in hoa chữ "xa hoi". Giờ mọi người có thể điều chỉnh code giúp để có thể in hoa bất kỳ từ nào khi được bôi chọn không. Cảm ơn.

Code:

Sub ConvertSelectedTextToUppercase()
Dim SelectedText As String
Dim StartPos As Long
Dim EndPos As Long

On Error Resume Next
SelectedText = Selection.Text
StartPos = 9 'Selection.Characters(1).Start
EndPos = 15 'Selection.Characters(Selection.Characters.Count).End

If Len(SelectedText) > 0 Then
Selection.Characters(StartPos, EndPos - StartPos + 1).Text = UCase(Selection.Characters(StartPos, EndPos - StartPos + 1).Text)
End If
End Sub

 

[bebo021999]

Khi cell trong chế độ edit thì code VBA không hoạt động nhé.
Chỉ sau khi enter kết thúc soạn thảo thì code mới hoạt động được.

 

[Maika8008]

Em cần mã VBA để chuyển chữ được bôi chọn trong ô sang chữ IN HOA. Ví dụ trong file đính kèm khi chọn ô A1 nhấn nút lệnh thì in hoa chữ "xa hoi". Giờ mọi người có thể điều chỉnh code giúp để có thể in hoa bất kỳ từ nào khi được bôi chọn không. Cảm ơn.

Code:
...

Bạn muốn tác động lên cụm chữ nào thì dùng hàm Instr để tìm cụm chữ đó gán vào biến StartPos và hàm Len(cụm chữ) để gán vào tham số Length chứ VBA không hiểu cái phần chọn khi edit đâu.

 

[dangvandang]

Khi cell trong chế độ edit thì code VBA không hoạt động nhé.
Chỉ sau khi enter kết thúc soạn thảo thì code mới hoạt động được.

Cảm ơn bạn đã thông tin

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

Bạn muốn tác động lên cụm chữ nào thì dùng hàm Instr để tìm cụm chữ đó gán vào biến StartPos và hàm Len(cụm chữ) để gán vào tham số Length chứ VBA không hiểu cái phần chọn khi edit đâu.

Cảm ơn bạn đã giúp đỡ