Enumeração ListRanges (sistema de 2007)
Especifica o intervalo de um ListObject que tem alterações.
Esta enumeração tem um atributo FlagsAttribute que permite uma combinação bit a bit de seus valores de membro.
Namespace: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel.v9.0 (em Microsoft.Office.Tools.Excel.v9.0.dll)
Sintaxe
<FlagsAttribute> _
Public Enumeration ListRanges
Dim instance As ListRanges
[FlagsAttribute]
public enum ListRanges
Membros
| Nome do membro | Descrição | |
|---|---|---|
| None | A alterar não ocorria no DataBodyRange, HeaderRowRange, ou TotalsRowRange. | |
| HeaderRowRange | A alterar ocorreu no HeaderRowRange da ListObject. | |
| DataBodyRange | A alterar ocorreu no DataBodyRange da ListObject. | |
| TotalsRowRange | A alterar ocorreu no TotalsRowRange da ListObject. |
Comentários
The ListRanges enumeração é usada por um dos parâmetros da ListObjectChangeHandler delegado.
Exemplos
O exemplo de código a seguir cria um ListObject e um manipulador de eventos para o Change evento. O manipulador de evento usa o ListRanges valores para exibir o local de um intervalo alterado. Para elevar o Change evento, adicionar texto a uma das células da ListObject e, em seguida, pressione ENTER.
Este exemplo é para uma personalização em nível de documento.
WithEvents ChangeList As Microsoft.Office.Tools.Excel.ListObject
PrivateSub ListObject_Change()
ChangeList = Me.Controls.AddListObject( _
Me.Range("A1", "C4"), "ChangeList")
EndSubSub List1_Change(ByVal targetRange As _
Microsoft.Office.Interop.Excel.Range, _
ByVal changedRanges As Microsoft.Office.Tools.Excel.ListRanges) _
Handles ChangeList.Change
Dim cellAddress AsString = targetRange.Address( _
ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
SelectCase 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.")
CaseElse
MsgBox("The cells at range " & cellAddress & _
" changed.")
EndSelectEndSub
privatevoid 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;
}
}