VBA _ Excel Range Kommentare zu Array

Question

Ich arbeite mit einer Excel-Datei, die die folgenden Werte mit einigen Zellkommentaren enthält.

Der folgende VB-Code dient zum Kopieren der Werte und Kommentare in ein Array.

Sub commentToArray() 
arrayValues = Range("A1:A6").Value 
arrayComments = Range("A1:A6").Comment.Text 
End Sub 

Das Werte-Array funktioniert einwandfrei, aber das Kommentar-Array füllt eine Fehlermeldung.

Könnten Sie mir bitte helfen, dieses heraus zu sortieren.

Danke, Aneesh

Answer 1

Ihr Code haben zwei Fehler:

1. Sie nicht Comment.Text Verfahren für eine Reihe von mehreren Zellen verwenden können.
2. Sie können die Comment.Text auf eine Zelle verwenden, die keinen Kommentar enthält.

Dies kann eine Lösung für Sie sein:

Sub commentToArray() 
    Dim arrayValues As Variant 
    Dim ArrayCommnents() As String 
    Dim myRange, commentsRange, mycell As Range 
    Dim i As Integer 

    arrayValues = Range("A1:A6").Value 
    Set myRange = ActiveSheet.Range("A1:A6") 
    Set commentsRange = myRange.Cells.SpecialCells(xlCellTypeComments) 
    arrayLenght = commentsRange.Count 
    ReDim arrayComments(arrayLenght) 

    For Each mycell In commentsRange 
     i = i + 1 
     arrayComments(i) = mycell.Comment.Text 
     Debug.Print (arrayComments(i)) 
    Next mycell 
End Sub 

Erläuterung:

• Ich benutze myRange var mit dem Bereich für Kommentare zu bewerten. Als nächstes muss ich feststellen, welche Zellen einen Kommentar enthalten, das ist der Zweck von commentsRange var.
• Ich habe die .SpcialCells() Methode verwendet, um nur Zellen mit Kommentaren zu erhalten.
• Dann bekomme ich die Länge der commentsRange mit .Count Eigenschaft. Ich bekomme die Anzahl der Zellen, die einen Kommentar enthalten.
• Redimensionieren Sie das Array der Kommentare erforderlich ist.
• Die For Each Schleife ist Zelle für Zelle Kommentare im Bereich der Zellen mit Kommentaren zu bekommen. Ein inkrementeller Index i zum Ausführen des Arrays und Sie haben es.