קבל רשימה של כל ההערות בגליון עבודה ב- Excel

אם אתה עובד עם דפי עבודה של Excel הכוללים הרבה הערות תא בגליון עבודה, הדרכה זו עשויה להיות שימושית. לפעמים אתה יכול להכניס הערות לתא כדי להדגיש או להסביר נתונים, או שהבוס שלך עשוי להכניס הערות לתאים בזמן סקירת העבודה שלך.

אם יש לך מערך נתונים עצום וההערות מפוזרות בכל גליון העבודה, זה עשוי לעזור לקבל את כל ההערות במקום אחד כרשימה.

קבל רשימה של כל ההערות בגליון עבודה

במדריך זה אראה לך כיצד להשתמש בקוד VBA כדי לקבל רשימה של כל ההערות בגליון עבודה בגליון עבודה נפרד.

משהו כפי שמוצג להלן:

יש קוד VBA בקצה האחורי שעושה את הדברים הבאים:

• הוא בודק אם יש הערות בגליון העבודה הפעיל או לא. אם אין הערות, זה משתמט בשקט ואינו עושה דבר.
• אם יש הערות בגליון העבודה, הוא יוצר דף עבודה חדש ("הערות") ומחלץ רשימה של כל ההערות במבנה הבא:
  • בעמודה A יש את כתובת התא שיש לה את ההערה.
  • בעמודה B יש את שם המגיב. זה שימושי אם יש מספר בודקים של אותו קובץ. זה גם יעזור לסנן/למיין לפי שם המבקרים.
  • בעמודה C יש את ההערה.

הורד את קובץ הדוגמה

קוד VBA

הנה קוד ה- VBA שעושה את כל ההרמה הכבדה כאן.

Sub ExtractComments () Dim ExComment As Comment Dim i As Integer Dim ws As גליון עבודה Dim CS as גליון עבודה הגדר CS = ActiveSheet אם ActiveSheet.Comments.Count = 0 ואז צא Sub עבור כל ws בגליונות עבודה אם ws.Name = "Comments" ואז i = 1 הבא ws אם i = 0 ואז הגדר ws = Worksheets.Add (After: = ActiveSheet) ws.Name = "תגובות" אחרת: הגדר ws = גליונות עבודה ("הערות") סיום אם עבור כל הערה ב- CS.Comments ws. טווח ("A1"). Value = "Comment In" ws.Range ("B1"). Value = "Comment by" ws.Range ("C1"). Value = "Comment" עם ws.Range ("A1: C1 ") .Font.Bold = True .Interior.Color = RGB (189, 215, 238) .Columns.ColumnWidth = 20 סיום עם if ws.Range (" A2 ") =" "ואז ws.Range (" A2 " ) .Value = ExComment.Parent.Address ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Value = Right (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) אחר ws.Range ("A1"). סוף (xlDown) .Offset (1, 0) = ExComment.Parent.Address ws.Range ("B1"). סוף (xlDown) .Offset (1, 0) = שמאל (ExComment. Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). End (xlDown) .Offset (1, 0) = Right (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) End If Next SubComment Next Sub Sub

כיצד להשתמש בקוד זה

ישנן מספר דרכים שבהן תוכל להשתמש בקוד זה כדי לקבל רשימת הערות מדף העבודה שלך:

#1 העתק הדבקת נתונים בקובץ לדוגמה

העתק הדבק את הנתונים שלך (כפי שהם) בכרטיסיה נתונים של קובץ ההורדה ולאחר מכן הפעל מאקרו זה.

כדי להריץ את זה:

• עבור לכרטיסייה מפתחים ולחץ על פקודות מאקרו. הוא יפתח את תיבת הדו -שיח מאקרו.
• בחר ExtractComment ולחץ על הפעלה. וודא שאתה נמצא בגיליון המכיל את ההערות שברצונך לחלץ.

#2 העתק הדבק את הקוד בחוברת העבודה שלך

העתק את הקוד והדבק אותו בחוברת העבודה ממנה ברצונך לחלץ את ההערות.

כדי לעשות זאת:

• הפעל את חוברת העבודה שבה אתה עובד ולחץ על Alt + F11. פעולה זו תפתח את חלון עורך VB.
• בסייר הפרויקטים מצד שמאל, לחץ באמצעות לחצן העכבר הימני על כל אחד מהאובייקטים עבור חוברת עבודה זו, עבור אל הוספה -> מודול.
• הדבק את הקוד בחלון קוד המודול.
• סגור את חלון עורך VB (או הקש Alt + F11 כדי לחזור לדף העבודה).

עכשיו יש לך את המאקרו בחוברת העבודה שלך. כדי להפעיל את המאקרו, עבור לכרטיסייה מפתחים -> פקודות מאקרו. בתיבת הדו -שיח מאקרו, בחר את המאקרו ExtractComment ולחץ על הפעלה.

הערה: הקפד לשמור את חוברת העבודה עם .סיומת XLS או .XLSM.

#3 צור תוסף

אם אתה צריך להשתמש בקוד הזה לעתים קרובות, עדיף ליצור ממנו תוסף. כך תוכל להשתמש בו בקלות בכל חוברת עבודה (ללא מאמץ נוסף של העתק הדבקת הקוד שוב ושוב).

כך יוצרים תוסף:

• עבור אל קובץ -> שמור בשם.
• בתיבת הדו -שיח שמירה בשם, שנה את סוג שמור בשם ל- .xlam.
  • תבחין כי נתיב הקובץ שבו הוא נשמר משתנה באופן אוטומטי. אתה יכול לשנות את זה אם אתה רוצה.
• פתח חוברת עבודה של Excel ועבור למפתח -> תוספות -> תוספות של Excel.
• בתיבת הדו-שיח תוספות, דפדף ואתר את הקובץ ששמרת ולחץ על אישור.

לאחר הפעלת תוסף, תוכל להשתמש בו בכל חוברת עבודה. לשם כך, עבור אל מפתח -> פקודות מאקרו. בתיבת הדו -שיח מאקרו, בחר את המאקרו ExtractComment והפעל אותו.

הורד את קובץ הדוגמה

מקווה שהקוד הזה יחסוך לך זמן. ספר לי את דעתך בסעיף ההערות.

אם אתה עובד עם Excel, VBA יכול להיות בעל ברית רב עוצמה. קח את כישורי ה- Excel שלך לשלב הבא עם קורס Excel VBA.