NamedRange.SelectionChange Olay
Oluşur, seçimin içinde NamedRange denetimi değişiklikleri.
Ad alanı: Microsoft.Office.Tools.Excel
Derleme: Microsoft.Office.Tools.Excel (Microsoft.Office.Tools.Excel.dll içinde)
Sözdizimi
'Bildirim
Event SelectionChange As DocEvents_SelectionChangeEventHandler
event DocEvents_SelectionChangeEventHandler SelectionChange
Açıklamalar
Bu olay için ya da içinde seçim değiştiğinde ortaya NamedRange Denetim.
Örnekler
Aşağıdaki kod örneği için bir işleyici gösterir SelectionChange , seçili bir hücre adresini görüntüler olay NamedRange.
Belge düzeyinde özelleştirme için değil.
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.");
}
Bu bir uygulama düzeyinde eklentisi sürümüdür.
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 Güvenliği
- Anında arayanlar için tam güven. Bu üye kısmen güvenilen kodla kullanılamaz. Daha fazla bilgi için bkz. kısmen güvenilir kod tarafından Kitaplıklar kullanma.