שאלה | VBA הערות תאים

[יעקב ש]

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

[ארפכשד]

@יעקב-ש

Sub ImportCommentsToTable()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim cmt As Comment
    Dim rng As Range
    Dim lastRow As Long
    Dim destRow As Long
    
    Set wsSource = ActiveSheet
    
    ' צור גיליון חדש לתוצאות
    Set wsDest = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsDest.Name = "הערות מיובאות"
    
    ' כותרות לטבלה
    wsDest.Range("A1").Value = "מיקום תא"
    wsDest.Range("B1").Value = "תוכן תא"
    wsDest.Range("C1").Value = "תוכן הערה"
    
    destRow = 2 ' שורה להתחלת הדאטה
    
    ' עבור כל התא עם הערה בגיליון המקורי
    For Each cmt In wsSource.Comments
        wsDest.Cells(destRow, 1).Value = cmt.Parent.Address(False, False)     ' מיקום התא
        wsDest.Cells(destRow, 2).Value = cmt.Parent.Value                     ' תוכן התא
        wsDest.Cells(destRow, 3).Value = cmt.Text                            ' תוכן ההערה
        destRow = destRow + 1
    Next cmt
    
    ' עצב טבלה
    lastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row
    wsDest.Range("A1:C" & lastRow).Select
    wsDest.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = "CommentsTable"
    wsDest.ListObjects("CommentsTable").TableStyle = "TableStyleMedium9"
    
    MsgBox "ייבוא ההערות הסתיים. נמצאו " & destRow - 2 & " הערות.", vbInformation
End Sub

מרובי בוט