ListRanges قائمة تعداد

تعين نطاق ListObjectيحتوي على التغييرات.

تتسم قائمة التعداد هذه بسمة FlagsAttribute التي تتيح تجميع البت لقيم الأعضاء التابعين لها.

مساحة الاسم:  Microsoft.Office.Tools.Excel
التجميع:  Microsoft.Office.Tools.Excel (في Microsoft.Office.Tools.Excel.dll)

بناء الجملة

'إقرار
<FlagsAttribute> _
Public Enumeration ListRanges

[FlagsAttribute]
public enum ListRanges

الأعضاء

	اسم العضو	الوصف
	None	لم يحدث تغيير في DataBodyRange، HeaderRowRange، أو TotalsRowRange.
	HeaderRowRange	حدث تغيير في HeaderRowRangeمن ListObject.
	DataBodyRange	حدث تغيير في DataBodyRangeمن ListObject.
	TotalsRowRange	حدث تغيير في TotalsRowRangeمن ListObject.

ملاحظات

ListRangesقائمة تعداد يستخدم من قبل إحدى المعلمات من ListObjectChangeHandlerالمفوض.

أمثلة

مثال التعليمة البرمجية التالية ينشئ ListObjectومعالج أحداث Changeحدث. يستخدم معالج الأحداث ListRangesقيم إلى عرض الموقع نطاق معدلة. لرفع Changeحدث، وإضافة نص إلى إحدى خلايا في ListObjectو ثم اضغط مفتاح الإدخال Enter الزر.

Th هو المثال هو لتخصيص المستوى مستند.

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;
    }
}

راجع أيضًَا

المرجع

Microsoft.Office.Tools.Excel مساحة الاسم