Muốn chuyển đổi font nhanh

[daibangkieuhanh]

Mình muốn trong khi chỉnh phông chữ có thể dùng phím tắt để chuyển sang định dạng của các style lập sẵn (VD: Ctrl+Shift+H - tương ứng với định dạng chữ hoa, in đậm,...)
Vậy giúp mình lập đoạn code để thực hiện điều đó với.
Xin cảm ơn

 

[DOSNET]

Bạn record Macro thử xem

Sub Macro1()
Range("...").Select
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Font.Underline = xlUnderlineStyleSingle
End Sub

 

[anhtuan1066]

Mình muốn trong khi chỉnh phông chữ có thể dùng phím tắt để chuyển sang định dạng của các style lập sẵn (VD: Ctrl+Shift+H - tương ứng với định dạng chữ hoa, in đậm,...)
Vậy giúp mình lập đoạn code để thực hiện điều đó với.
Xin cảm ơn

Chuyễn chử thường thành HOA thì chắc phải dùng macro.. còn chuyễn đổi qua lại giữa ĐẬM, nghiêng, gạch chân thì có thể dùng phím tắt
Chử đậm: Ctrl + @ hoặc Ctrl + B
Chử nghiêng: Ctrl + # hoặc Ctrl + I
Chử gạch chân: Ctrl + $ hoặc Ctrl + U