ماکروی درج یا ویرایش Comment در اکسل

تصویر زیر به شما یاد آوری می کند که برای ویرایش خانه های دارای Comment در اکسل چه مسیری را باید دنبال کنید :

 

Sub AddOrEditComment()
                 Dim cmt As Comment
                 Set cmt = ActiveCell.Comment
                 If cmt Is Nothing Then
                   ActiveCell.AddComment Text:=""
                 End If
                   Application.Wait (Now() + TimeValue("00:00:01"))
                   SendKeys "+{F2}"
               End Sub

لازم به ذکر است که برای کارکرد صحیح ماکرو باید به آن یک Shortcut Key مانند Ctrl+Q نسبت دهید و ماکرو را با فشار دادن کلید های Ctrl+Q اجرا کنید.

برای انجام این کار در روبان Developer روی دکمه Macros کلیک کنید. سپس در پنجره ماکروها روی نام ماکروی AddOrEditComment کلیک کرده و سپس روی دکمه Options کلیک کنید و در پنجره باز شده Shortcut Key دلخواه را معرفی کنید.