NamedRange.Deselected イベント (2007 System)
更新 : 2008 年 7 月
NamedRange コントロールから NamedRange コントロールの外側の領域に選択が移動すると発生します。
名前空間 : Microsoft.Office.Tools.Excel
アセンブリ : Microsoft.Office.Tools.Excel.v9.0 (Microsoft.Office.Tools.Excel.v9.0.dll 内)
構文
'宣言
Public Event Deselected As DocEvents_SelectionChangeEventHandler
'使用
Dim instance As NamedRange
Dim handler As DocEvents_SelectionChangeEventHandler
AddHandler instance.Deselected, handler
public event DocEvents_SelectionChangeEventHandler Deselected
解説
このイベントが発生するのは、NamedRange コントロールにフォーカスがあり、フォーカスが NamedRange コントロールから外部へ移るときだけです。
例
次のコードは、選択が移動した先のセルのアドレスを表示する Deselected イベントのハンドラの例です。
このバージョンは、ドキュメント レベルのカスタマイズに使用されます。
Private deselectedRange As Microsoft.Office.Tools.Excel.NamedRange
Private Sub DeselectRange()
deselectedRange = Me.Controls.AddNamedRange( _
Me.Range("B1", "D4"), "deselectedRange")
deselectedRange.Select()
AddHandler Me.deselectedRange.Deselected, _
AddressOf deselectedRange_Deselected
End Sub
Sub deselectedRange_Deselected(ByVal Target As Excel.Range)
Dim targetRange As String = Target.Address(, , _
Excel.XlReferenceStyle.xlA1, , )
MessageBox.Show("The NamedRange control was deselected." & _
" Selection transferred to " & Me.Name & ":" & _
targetRange & ".")
End Sub
Microsoft.Office.Tools.Excel.NamedRange deselectedRange;
private void DeselectRange()
{
deselectedRange = this.Controls.AddNamedRange(
this.Range["B1", "D4"], "deselectedRange");
deselectedRange.Select();
this.deselectedRange.Deselected += new
Microsoft.Office.Interop.Excel.
DocEvents_SelectionChangeEventHandler(
deselectedRange_Deselected);
}
void deselectedRange_Deselected(Excel.Range Target)
{
string targetRange = Target.get_Address(missing, missing,
Excel.XlReferenceStyle.xlA1, missing, missing);
MessageBox.Show("The NamedRange control was deselected." +
" Selection transferred to " + this.Name + ":" +
targetRange + ".");
}
このバージョンは、アプリケーション レベルのアドインに使用されます。
Private deselectedRange As NamedRange
Private Sub DeselectRange()
Dim vstoWorksheet As Worksheet = CType( _
Me.Application.ActiveWorkbook.Worksheets(1), _
Excel.Worksheet).GetVstoObject()
deselectedRange = vstoWorksheet.Controls.AddNamedRange( _
vstoWorksheet.Range("B1", "D4"), "deselectedRange")
deselectedRange.Select()
AddHandler Me.deselectedRange.Deselected, _
AddressOf deselectedRange_Deselected
End Sub
Sub deselectedRange_Deselected(ByVal Target As Excel.Range)
Dim targetRange As String = Target.Address(, , _
Excel.XlReferenceStyle.xlA1, , )
System.Windows.Forms.MessageBox.Show( _
"The NamedRange control was deselected." & _
" Selection transferred to " & _
Me.Application.ActiveWorkbook.Worksheets(1).Name & ":" & _
targetRange & ".")
End Sub
NamedRange deselectedRange;
private void DeselectRange()
{
Worksheet vstoWorksheet = ((Excel.Worksheet)
this.Application.ActiveWorkbook.Worksheets[1]).GetVstoObject();
deselectedRange = vstoWorksheet.Controls.AddNamedRange(
vstoWorksheet.Range["B1", "D4"], "deselectedRange");
deselectedRange.Select();
deselectedRange.Deselected += new
Excel.DocEvents_SelectionChangeEventHandler(
deselectedRange_Deselected);
}
void deselectedRange_Deselected(Excel.Range Target)
{
string targetRange = 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("The NamedRange control was deselected." +
" Selection transferred to " +
nativeWorksheet.Name + ":" +
targetRange + ".");
}
アクセス許可
- 直前の呼び出し元に対する完全な信頼。このメンバは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。
参照
参照
Microsoft.Office.Tools.Excel 名前空間
履歴の変更
日付 |
履歴 |
理由 |
---|---|---|
2008 年 7 月 |
アプリケーション レベルのアドインのコード例のバージョンを追加 |
SP1 機能変更 |