Compartir a través de


NamedRange.Change (Evento) (2007 System)

Actualización: Julio de 2008

Se produce cuando tiene lugar algún cambio en el control NamedRange.

Espacio de nombres:  Microsoft.Office.Tools.Excel
Ensamblado:  Microsoft.Office.Tools.Excel.v9.0 (en Microsoft.Office.Tools.Excel.v9.0.dll)

Sintaxis

Public Event Change As DocEvents_ChangeEventHandler

Dim instance As NamedRange
Dim handler As DocEvents_ChangeEventHandler

AddHandler instance.Change, handler
public event DocEvents_ChangeEventHandler Change

Comentarios

Se provoca este evento si el control NamedRange se modifica mediante programación o interacción del usuario. Este evento no se produce cuando las celdas de un control NamedRange cambian durante un nuevo cálculo.

Ejemplos

En el siguiente ejemplo de código se crea un objeto NamedRange y un controlador de eventos Change. Para provocar el evento Change, agregue texto a una de las celdas del objeto NamedRange y, a continuación, presione ENTRAR.

Se trata de una versión para una personalización en el nivel del documento.

Private changesRange As Microsoft.Office.Tools.Excel.NamedRange

Private Sub NotifyChanges()
    changesRange = Me.Controls.AddNamedRange( _
        Me.Range("B2", "E5"), "compositeRange")
    AddHandler changesRange.Change, _
        AddressOf changesRange_Change
End Sub


Sub changesRange_Change(ByVal Target As Excel.Range)
    Dim cellAddress As String = Target.Address(, , _
        Microsoft.Office.Interop.Excel.XlReferenceStyle.xlA1, , )
    MessageBox.Show("Cell " & cellAddress & " changed.")
End Sub
Microsoft.Office.Tools.Excel.NamedRange changesRange;
private void NotifyChanges()
{
    changesRange = this.Controls.AddNamedRange(
        this.Range["B2", "E5"], "compositeRange");
    changesRange.Change += new Microsoft.Office.Interop.Excel.
        DocEvents_ChangeEventHandler(changesRange_Change);
}

void changesRange_Change(Excel.Range Target)
{
    string cellAddress = Target.get_Address(missing, missing, 
        Microsoft.Office.Interop.Excel.XlReferenceStyle.xlA1,
        missing, missing);
    MessageBox.Show("Cell " + cellAddress + " changed.");
}

Se trata de una versión para un complemento en el nivel de la aplicación.

Private changesRange As NamedRange

Private Sub NotifyChanges()
    Dim vstoWorksheet As Worksheet = CType( _
        Me.Application.ActiveWorkbook.Worksheets(1),  _
        Excel.Worksheet).GetVstoObject()
    changesRange = vstoWorksheet.Controls.AddNamedRange( _
        vstoWorksheet.Range("B2", "E5"), "compositeRange")
    AddHandler changesRange.Change, _
        AddressOf changesRange_Change
End Sub


Sub changesRange_Change(ByVal Target As Excel.Range)
    Dim cellAddress As String = Target.Address(, , _
        Excel.XlReferenceStyle.xlA1, , )
    System.Windows.Forms.MessageBox.Show("Cell " & cellAddress & " changed.")
End Sub
NamedRange changesRange;
private void NotifyChanges()
{
    Worksheet vstoWorksheet = ((Excel.Worksheet)
        this.Application.ActiveWorkbook.Worksheets[1]).GetVstoObject();
    changesRange = vstoWorksheet.Controls.AddNamedRange(
        vstoWorksheet.Range["B2", "E5"], "compositeRange");
    changesRange.Change += new Excel.DocEvents_ChangeEventHandler(
        changesRange_Change);
}

void changesRange_Change(Excel.Range Target)
{
    string cellAddress = Target.get_Address(missing, missing,
        Excel.XlReferenceStyle.xlA1,
        missing, missing);
    System.Windows.Forms.MessageBox.Show("Cell " + cellAddress +
        " changed.");
}

Permisos

Vea también

Referencia

NamedRange (Clase)

NamedRange (Miembros)

Microsoft.Office.Tools.Excel (Espacio de nombres)

Historial de cambios

Fecha

Historial

Motivo

Julio de 2008

Agregada una versión del ejemplo de código para un complemento en el nivel de la aplicación.

Cambio de características de SP1.