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

Chia sẻ bởi:hands

★★★★★

‹ Nhập tự động chuổi A A A... dò tìm dữ liệu không dùng cột... ›

Quảng cáo

Cảm ơn.

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
6801

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.

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.

www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-m%E1%BB%8Di-ng%C6%B0%E1%BB%9Di-gi%C3%BAp-code-vba-%C4%91%E1%BB%83-in-hoa-v%C4%83n-b%E1%BA%A3n-%C4%91%C6%B0%E1%BB%A3c-b%C3%B4i-%C4%91en-ch%E1%BB%8Dn-trong-%C3%B4.165382/