Hướng dẫn Phím tắt để edit comment?

[hangxanh24]

Em đang muốn nhờ anh chị giúp đỡ về việc edit comment liệu anh chị có thể cho em xin 1 đoạn code khi nhấn vào 1 ô bất kỳ và ấn 1 phím tắt ví dụ f3 chẳng hạn thì có sẽ hiện 1 comment lên để mình viết vào đó đc k ạ vì em thường xuyên phải làm việc với ghi chú dạng này mà mỗi lần edit là lại phải kick chuột phải rồi edit khá lâu nên mạo muội nghĩ ra phương án này mong anh chị giúpđỡ. Cảm ơn anh chị

Ads: Technewonline is a website that specializes in introducing the latest technologies such as Best Tablet Android Have Price Under $200 and Best tablet of Apple in 2014 and The Best Midrange Smart Phone In 2014 and Top Best Ultrabook Of 2014 and The Best Phones 4G Valued At Under 300 USD is also a website for sharing your tips about computers, mobile phones and tablets, products are available from leading supermarkets will surely satisfy you.

 

[ndu96081631]

Em đang muốn nhờ anh chị giúp đỡ về việc edit comment liệu anh chị có thể cho em xin 1 đoạn code khi nhấn vào 1 ô bất kỳ và ấn 1 phím tắt ví dụ f3 chẳng hạn thì có sẽ hiện 1 comment lên để mình viết vào đó đc k ạ vì em thường xuyên phải làm việc với ghi chú dạng này mà mỗi lần edit là lại phải kick chuột phải rồi edit khá lâu nên mạo muội nghĩ ra phương án này mong anh chị giúpđỡ. Cảm ơn anh chị

Phím tắt đó là Shift + F2
Lưu ý: phím tắt này sẽ có tác dụng khác nhau trong 2 trường hợp: cell đã có comment hoặc cell chưa có comment
(bấm thử sẽ biết)

 

[phucbugis]

Em đang muốn nhờ anh chị giúp đỡ về việc edit comment liệu anh chị có thể cho em xin 1 đoạn code khi nhấn vào 1 ô bất kỳ và ấn 1 phím tắt ví dụ f3 chẳng hạn thì có sẽ hiện 1 comment lên để mình viết vào đó đc k ạ vì em thường xuyên phải làm việc với ghi chú dạng này mà mỗi lần edit là lại phải kick chuột phải rồi edit khá lâu nên mạo muội nghĩ ra phương án này mong anh chị giúpđỡ. Cảm ơn anh chị

dựa vào phím tắt Shift+F2: để chuyển thành code bạn kết hợp thêm Application.OnKey + Application.SendKeys

Sub kichhoat_Hotkey()
    Application.OnKey "{F11}", "edit_comment"
End Sub


Sub edit_comment()
    Application.SendKeys ("+{F2}")
End Sub