ماکروی حذف یا مخفی کردن اشیاء در اکسل

اولین ماکروی این مقاله تمام شکل های موجود در صفحه فعال را حذف می کند.
 
Sub DeleteShapes()
               On Error Resume Next
               ActiveSheet.DrawingObjects.Visible = True
               ActiveSheet.DrawingObjects.Delete
               On Error GoTo 0
               End Sub
 
ماکروی زیر تمام Comment های نوشته شده در صفحه جاری را حذف می کند.
Sub DeleteComments()
                ActiveSheet.Cells.ClearComments
                End Sub
   
 
نویسنده : وحید فرزام
تاریخ انتشار : 1393-01-19 04:30:00
1794

0 نظر

user


تازه ترین ها