GetPrecedents

Cell.GetPrecedents method

Ruft alle Referenzen ab, die in der Formel dieser Zelle vorkommen.

public ReferredAreaCollection GetPrecedents()

Rückgabewert

Sammlung aller Referenzen, die in der Formel dieser Zelle vorkommen.

Bemerkungen

Gibt null zurück, wenn dies keine Formelzelle ist.Alle Referenzen, die in der Formel dieser Zelle erscheinen, werden zurückgegeben, unabhängig davon, ob sie während der Berechnung referenziert werden oder nicht. Zum Beispiel wird Zelle A2 in der Formel “=IF(TRUE,A1,A2)” zwar nicht während der Berechnung verwendet, jedoch immer noch als Präzedenzfälle der Formel angesehen. Um die Referenzen zu erhalten, die nur die Berechnung beeinflussen, verwenden Sie bitteGetPrecedentsInCalculation.

Beispiele

[C#]

Workbook workbook = new Workbook();
Cells cells = workbook.Worksheets[0].Cells;
cells["A1"].Formula = "=B1+SUM(B1:B10)+[Book1.xls]Sheet1!A1";
ReferredAreaCollection areas = cells["A1"].GetPrecedents();
for (int i = 0; i < areas.Count; i++)
{
     ReferredArea area = areas[i];
     StringBuilder stringBuilder = new StringBuilder();
     if (area.IsExternalLink)
     {
         stringBuilder.Append("[");
         stringBuilder.Append(area.ExternalFileName);
         stringBuilder.Append("]");
     }
     stringBuilder.Append(area.SheetName);
     stringBuilder.Append("!");
     stringBuilder.Append(CellsHelper.CellIndexToName(area.StartRow, area.StartColumn));
     if (area.IsArea)
     {
         stringBuilder.Append(":");
         stringBuilder.Append(CellsHelper.CellIndexToName(area.EndRow, area.EndColumn));
     }
     Console.WriteLine(stringBuilder.ToString());
}

[Visual Basic]

Dim workbook As Workbook = New Workbook()
Dim cells As Cells = workbook.Worksheets(0).Cells
cells("A1").Formula = "= B1 + SUM(B1:B10) + [Book1.xls]Sheet1!A1"
Dim areas As ReferredAreaCollection = cells("A1").GetPrecedents()
For i As Integer = 0 To areas.Count - 1
    Dim area As ReferredArea = areas(i)
    Dim stringBuilder As StringBuilder = New StringBuilder()
    If (area.IsExternalLink) Then
        stringBuilder.Append("[")
        stringBuilder.Append(area.ExternalFileName)
       stringBuilder.Append("]")
    End If
    stringBuilder.Append(area.SheetName)
    stringBuilder.Append("!")
    stringBuilder.Append(CellsHelper.CellIndexToName(area.StartRow, area.StartColumn))
    If (area.IsArea) Then
        stringBuilder.Append(":")
        stringBuilder.Append(CellsHelper.CellIndexToName(area.EndRow, area.EndColumn))
    End If
    Console.WriteLine(stringBuilder.ToString())
Next

Siehe auch