اگر از کامنت‌ها در کاربرگ‌های خود کمی استفاده می‌کنید، ممکن است تعجب کنید که آیا راهی برای چاپ نظرات وجود دارد، اما بدون نام و نقطه نقطه که معمولاً مقدمه هر نظر است. متأسفانه، هیچ راه داخلی برای انجام این کار در اکسل وجود ندارد. با این حال، از یک ماکرو می توان برای بیرون کشیدن سریع همه نظرات از یک کاربرگ و قرار دادن آنها در کاربرگ خود استفاده کرد. این کاربرگ سپس می تواند چاپ شود، زیرا خلاصه ای از تمام نظرات است. ماکرو به شرح زیر است:
Sub Workbook_BeforePrint(Cancel As Boolean)
myCount = 0
For Each c In ActiveSheet.Comments
myCount = myCount + 1
myComment = ActiveSheet.Comments(myCount).Text
Sheets(2).Range("a1").Offset(myCount, 0).Value = _
Mid(myComment,InStr(myComment, Chr(10)))
Next
End Sub
این ماکرو نظرات را بر روی کاربرگ دوم در یک کتاب کار قرار می دهد، بنابراین اگر می خواهید آنها را در یک کاربرگ متفاوت قرار دهید (بنابراین اطلاعات موجود در صفحه دوم را بازنویسی نکنید) باید تغییری در شی Sheets(2) ایجاد کنید.
همچنین توجه داشته باشید که نام ماکرو Workbook_BeforePrint است. این به این معنی است که ماکرو هر بار که برای چاپ کاربرگ خود می روید اجرا می شود.
