NamedRange.SelectionChange الحدث
يحدث عند تحديد داخل NamedRangeعنصر تحكم تغييرات.
مساحة الاسم: Microsoft.Office.Tools.Excel
التجميع: Microsoft.Office.Tools.Excel (في Microsoft.Office.Tools.Excel.dll)
بناء الجملة
'إقرار
Event SelectionChange As DocEvents_SelectionChangeEventHandler
event DocEvents_SelectionChangeEventHandler SelectionChange
ملاحظات
Th هو حدث هو raهوed عند تغير تحديد أو داخل NamedRangeعنصر التحكم.
أمثلة
يوضح مثال التعليمة البرمجية التالية معالج ل SelectionChangeحدث dهوplays هذا الالعنوان من خلية التي هو المحددة في NamedRange.
Th هو الإصدار هو لتخصيص المستوى مستند.
Private selectionChangeRange As Microsoft.Office.Tools.Excel.NamedRange
Private Sub DisplaySelectionChange()
selectionChangeRange = Me.Controls.AddNamedRange( _
Me.Range("A1", "E5"), "selectionChangeRange")
AddHandler Me.selectionChangeRange.SelectionChange, _
AddressOf selectionChangeRange_SelectionChange
End Sub
Sub selectionChangeRange_SelectionChange(ByVal Target As _
Microsoft.Office.Interop.Excel.Range)
Dim selectedRange As String = Target.Address(, , _
Excel.XlReferenceStyle.xlA1, , )
MessageBox.Show(Me.Name & ": " & selectedRange & _
" raised the SelectionChange event.")
End Sub
Microsoft.Office.Tools.Excel.NamedRange selectionChangeRange;
private void DisplaySelectionChange()
{
selectionChangeRange = this.Controls.AddNamedRange(
this.Range["A1", "E5"], "selectionChangeRange");
this.selectionChangeRange.SelectionChange += new
Microsoft.Office.Interop.Excel.
DocEvents_SelectionChangeEventHandler(
selectionChangeRange_SelectionChange);
}
void selectionChangeRange_SelectionChange(
Microsoft.Office.Interop.Excel.Range Target)
{
string selectedRange = Target.get_Address(missing, missing,
Excel.XlReferenceStyle.xlA1, missing, missing);
MessageBox.Show(this.Name + ": " + selectedRange +
" raised the SelectionChange event.");
}
Th هو الإصدار هو للوظيفة الإضافية المستوى تطبيق.
Private selectionChangeRange As NamedRange
Private Sub DisplaySelectionChange()
Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
Globals.ThisAddIn.Application.ActiveSheet
Dim vstoWorksheet As Microsoft.Office.Tools.Excel.Worksheet =
Globals.Factory.GetVstoObject(NativeWorksheet)
selectionChangeRange = vstoWorksheet.Controls.AddNamedRange( _
vstoWorksheet.Range("A1", "E5"), "selectionChangeRange")
AddHandler Me.selectionChangeRange.SelectionChange, _
AddressOf selectionChangeRange_SelectionChange
End Sub
Sub selectionChangeRange_SelectionChange(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 & " raised the SelectionChange event.")
End Sub
NamedRange selectionChangeRange;
private void DisplaySelectionChange()
{
Worksheet vstoWorksheet =
Globals.Factory.GetVstoObject(this.Application.ActiveWorkbook.Worksheets[1]);
selectionChangeRange = vstoWorksheet.Controls.AddNamedRange(
vstoWorksheet.Range["A1", "E5"], "selectionChangeRange");
this.selectionChangeRange.SelectionChange += new
Excel.DocEvents_SelectionChangeEventHandler(
selectionChangeRange_SelectionChange);
}
void selectionChangeRange_SelectionChange(
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 +
" raised the SelectionChange event.");
}
أمن NET Framework.
- الثقة الكاملة للمتصل الفوري. يتعذر استخدام هذا العضو بواسطة التعليمات البرمجية الموثوق بها جزئيًا. لمزيد من المعلومات، راجع باستخدام مكتبات من تعليمات برمجية موثوق بها جزئي.