次の方法で共有


ListObject.Selected Event

Definition

Occurs when the ListObject control is selected.

public:
 event Microsoft::Office::Interop::Excel::DocEvents_SelectionChangeEventHandler ^ Selected;
event Microsoft.Office.Interop.Excel.DocEvents_SelectionChangeEventHandler Selected;
member this.Selected : Microsoft.Office.Interop.Excel.DocEvents_SelectionChangeEventHandler 
Event Selected As DocEvents_SelectionChangeEventHandler 

Event Type

Examples

The following code example creates a ListObject and then creates an event handler for the Selected event. To test the event handler, ensure that the ListObject is not selected, and then select it.

This version is for a document-level customization.

private void ListObject_Selected()
{
    Microsoft.Office.Tools.Excel.ListObject list1 =
        this.Controls.AddListObject(
        this.Range["A1", "C4"], "list1");

    list1.Selected += new Microsoft.Office.Interop.Excel.
        DocEvents_SelectionChangeEventHandler(list1_Selected);
}

void list1_Selected(Microsoft.Office.Interop.Excel.Range Target)
{
    MessageBox.Show("The list object has been selected.");
}
WithEvents SelectedList As Microsoft.Office.Tools.Excel.ListObject
Private Sub ListObject_Selected()
    SelectedList = Me.Controls.AddListObject( _
        Me.Range("A1", "C4"), "List1")
End Sub

Sub List1_Selected(ByVal Target As _
    Microsoft.Office.Interop.Excel.Range) Handles SelectedList.Selected
    MessageBox.Show("The list object has been selected.")
End Sub

This version is for an application-level add-in.

private void ListObject_Selected()
{
    Worksheet vstoWorksheet =
        Globals.Factory.GetVstoObject(this.Application.ActiveWorkbook.Worksheets[1]);
    ListObject list1 =
        vstoWorksheet.Controls.AddListObject(
        vstoWorksheet.Range["A1", "C4"], "list1");

    list1.Selected += new 
        Excel.DocEvents_SelectionChangeEventHandler(list1_Selected);
}

void list1_Selected(Excel.Range Target)
{
    System.Windows.Forms.MessageBox.Show("The list object has been selected.");
}
WithEvents SelectedList As ListObject
Private Sub ListObject_Selected()
    Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
        Me.Application.Worksheets(1)
    Dim vstoWorksheet As Microsoft.Office.Tools.Excel.Worksheet =
            Globals.Factory.GetVstoObject(NativeWorksheet)
    SelectedList = vstoWorksheet.Controls.AddListObject( _
        vstoWorksheet.Range("A1", "C4"), "List1")
End Sub

Sub List1_Selected(ByVal Target As  _
    Microsoft.Office.Interop.Excel.Range) Handles SelectedList.Selected
    System.Windows.Forms.MessageBox.Show("The list object has been selected.")
End Sub

Remarks

This event is raised when the selection changes to the ListObject control.

Applies to