ListRanges Sabit Listesi
Aralığını belirtir bir ListObject , değişiklikler vardır.
Bu sabit listesinin, bu üye değerlerinin bit tabanı bir bileşimine izin veren FlagsAttribute özniteliği vardır.
Ad alanı: Microsoft.Office.Tools.Excel
Derleme: Microsoft.Office.Tools.Excel (Microsoft.Office.Tools.Excel.dll içinde)
Sözdizimi
'Bildirim
<FlagsAttribute> _
Public Enumeration ListRanges
[FlagsAttribute]
public enum ListRanges
Üyeler
| Üye adı | Açıklama | |
|---|---|---|
| None | İçinde değişiklik gerçekleşmedi DataBodyRange, HeaderRowRange, veya TotalsRowRange. | |
| HeaderRowRange | Değişikliği oluştu HeaderRowRange , ListObject. | |
| DataBodyRange | Değişikliği oluştu DataBodyRange , ListObject. | |
| TotalsRowRange | Değişikliği oluştu TotalsRowRange , ListObject. |
Notlar
ListRanges Numaralandırma parametrelerinin biri tarafından kullanılır ListObjectChangeHandler temsilcisi.
Örnekler
Aşağıdaki kod örneği oluşturur bir ListObject ve için bir olay işleyicisi Change olay.Olay işleyicisi kullanır ListRanges görüntü konumu değişen aralıktaki değerler.Yükseltmek için Change olay, biri hücrelerde metin eklemek ListObject yazıp enter tuşuna basın.
Bu örnek, bir belge düzeyinde özelleştirme için bulunur.
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(
Excel.XlReferenceStyle.xlA1
);
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;
}
}