Enumerazione ListRanges

Articolo
08/11/2011

Specifica l'intervallo di un oggetto ListObject che presenta modifiche.

Questa enumerazione dispone di un attributo FlagsAttribute che consente una combinazione bit per bit dei valori dei membri.

Spazio dei nomi: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)

Sintassi

'Dichiarazione
<FlagsAttribute> _
Public Enumeration ListRanges

[FlagsAttribute]
public enum ListRanges

Membri

	Nome membro	Descrizione
	None	La modifica non si è verificata nella proprietà DataBodyRange, HeaderRowRange o TotalsRowRange.
	HeaderRowRange	La modifica si è verificata nella proprietà HeaderRowRange dell'oggetto ListObject.
	DataBodyRange	La modifica si è verificata nella proprietà DataBodyRange dell'oggetto ListObject.
	TotalsRowRange	La modifica si è verificata nella proprietà TotalsRowRange dell'oggetto ListObject.

Note

L'enumerazione ListRanges è utilizzata da uno dei parametri del delegato ListObjectChangeHandler.

Esempi

Nell'esempio di codice riportato di seguito viene illustrato come creare un oggetto ListObject e un gestore per l'evento Change. Il gestore eventi utilizza i valori ListRanges per visualizzare la posizione di un intervallo modificato. Per generare l'evento Change, aggiungere del testo in una delle celle del controllo ListObject, quindi premere INVIO.

Questo esempio è valido per una personalizzazione a livello di documento.

WithEvents ChangeList As Microsoft.Office.Tools.Excel.ListObject
Private Sub ListObject_Change()
    ChangeList = Me.Controls.AddListObject( _
        Me.Range("A1", "C4"), "ChangeList")
End Sub


Sub List1_Change(ByVal targetRange As _
    Microsoft.Office.Interop.Excel.Range, _
    ByVal changedRanges As Microsoft.Office.Tools.Excel.ListRanges) _
    Handles ChangeList.Change

    Dim cellAddress As String = targetRange.Address( _
        ReferenceStyle:=Excel.XlReferenceStyle.xlA1)

    Select Case changedRanges
        Case Microsoft.Office.Tools.Excel.ListRanges.DataBodyRange
            MsgBox("The cells at range " & cellAddress & _
                " in the data body changed.")
        Case Microsoft.Office.Tools.Excel.ListRanges.HeaderRowRange
            MsgBox("The cells at range " & cellAddress & _
                " in the header row changed.")
        Case Microsoft.Office.Tools.Excel.ListRanges.TotalsRowRange
            MsgBox("The cells at range " & cellAddress & _
                " in the totals row changed.")
        Case Else
            MsgBox("The cells at range " & cellAddress & _
                " changed.")
    End Select
End Sub

private void ListObject_Change()
{
    Microsoft.Office.Tools.Excel.ListObject list1 = 
        this.Controls.AddListObject(
        this.Range["A1", "C4"], "list1");
    list1.Change += new Microsoft.Office.Tools.Excel.
        ListObjectChangeHandler(list1_Change);
}

void list1_Change(Microsoft.Office.Interop.Excel.Range 
    targetRange, Microsoft.Office.Tools.Excel.ListRanges 
    changedRanges)
{
    string cellAddress = targetRange.get_Address(
        missing, missing, Excel.XlReferenceStyle.xlA1, 
        missing, missing);

    switch (changedRanges)
    {
        case Microsoft.Office.Tools.Excel.ListRanges.DataBodyRange:
            MessageBox.Show("The cells at range " + cellAddress +
                " in the data body changed.");
            break;
        case Microsoft.Office.Tools.Excel.ListRanges.HeaderRowRange:
            MessageBox.Show("The cells at range " + cellAddress +
                " in the header row changed.");
            break;
        case Microsoft.Office.Tools.Excel.ListRanges.TotalsRowRange:
            MessageBox.Show("The cells at range " + cellAddress +
                " in the totals row changed.");
            break;
        default:
            MessageBox.Show("The cells at range " + cellAddress +
                " changed.");
            break;
    }
}

Vedere anche

Riferimenti

Spazio dei nomi Microsoft.Office.Tools.Excel

Share via