NamedRange.Selected 事件
当选择 NamedRange 控件时发生。
命名空间: Microsoft.Office.Tools.Excel
程序集: Microsoft.Office.Tools.Excel(在 Microsoft.Office.Tools.Excel.dll 中)
语法
声明
Event Selected As DocEvents_SelectionChangeEventHandler
event DocEvents_SelectionChangeEventHandler Selected
备注
当所选内容更改为 NamedRange 控件时,将引发此事件。
示例
下面的代码示例演示 Selected 事件的处理程序,该事件显示在 NamedRange 中选择的单元格的地址。
此版本针对的是文档级自定义项。
Private selectedEventRange As Microsoft.Office.Tools.Excel.NamedRange
Private Sub DisplaySelectedRange()
selectedEventRange = Me.Controls.AddNamedRange( _
Me.Range("B1", "E5"), "selectedEventRange")
AddHandler Me.selectedEventRange.Selected, _
AddressOf selectedEventRange_Selected
End Sub
Sub selectedEventRange_Selected(ByVal Target As _
Microsoft.Office.Interop.Excel.Range)
Dim selectedRange As String = Target.Address(, , _
Excel.XlReferenceStyle.xlA1, , )
MessageBox.Show(Me.Name & ": " & selectedRange & _
" was selected.")
End Sub
Microsoft.Office.Tools.Excel.NamedRange selectedEventRange;
private void DisplaySelectedRange()
{
selectedEventRange = this.Controls.AddNamedRange(
this.Range["B1", "E5"], "selectedEventRange");
this.selectedEventRange.Selected += new
Microsoft.Office.Interop.Excel.
DocEvents_SelectionChangeEventHandler(
selectedEventRange_Selected);
}
void selectedEventRange_Selected(
Microsoft.Office.Interop.Excel.Range Target)
{
string selectedRange = Target.get_Address(missing, missing,
Excel.XlReferenceStyle.xlA1, missing, missing);
MessageBox.Show(this.Name + ": " + selectedRange +
" was selected.");
}
此版本针对的是应用程序级外接程序。
Private selectedEventRange As NamedRange
Private Sub DisplaySelectedRange()
Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
Globals.ThisAddIn.Application.ActiveSheet
Dim vstoWorksheet As Microsoft.Office.Tools.Excel.Worksheet =
Globals.Factory.GetVstoObject(NativeWorksheet)
selectedEventRange = vstoWorksheet.Controls.AddNamedRange( _
vstoWorksheet.Range("B1", "E5"), "selectedEventRange")
AddHandler Me.selectedEventRange.Selected, _
AddressOf selectedEventRange_Selected
End Sub
Sub selectedEventRange_Selected(ByVal Target As _
Microsoft.Office.Interop.Excel.Range)
Dim selectedRange As String = Target.Address(, , _
Excel.XlReferenceStyle.xlA1, , )
System.Windows.Forms.MessageBox.Show( _
Me.Application.ActiveWorkbook.Worksheets(1).Name & _
": " & selectedRange & " was selected.")
End Sub
NamedRange selectedEventRange;
private void DisplaySelectedRange()
{
Worksheet vstoWorksheet =
Globals.Factory.GetVstoObject(this.Application.ActiveWorkbook.Worksheets[1]);
selectedEventRange = vstoWorksheet.Controls.AddNamedRange(
vstoWorksheet.Range["B1", "E5"], "selectedEventRange");
selectedEventRange.Selected += new
Excel.DocEvents_SelectionChangeEventHandler(
selectedEventRange_Selected);
}
void selectedEventRange_Selected(
Microsoft.Office.Interop.Excel.Range Target)
{
string selectedRange = Target.get_Address(missing, missing,
Excel.XlReferenceStyle.xlA1, missing, missing);
Excel.Worksheet nativeWorksheet = (Excel.Worksheet)
this.Application.ActiveWorkbook.Worksheets[1];
System.Windows.Forms.MessageBox.Show(
nativeWorksheet.Name + ": " + selectedRange +
" was selected.");
}
.NET Framework 安全性
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息,请参见通过部分受信任的代码使用库。