[BUG] CommandButton コントロールの Click イベントで Excel のリストの行を削除できない

文書翻訳 文書翻訳
文書番号: 823988 - 対象製品
すべて展開する | すべて折りたたむ

目次

現象

Microsoft Office Excel 2003 のマネージ コード拡張で、ワークシート上のリスト オブジェクトから行を削除するために、MSForms の CommandButton コントロールの Click イベントを使用している場合、このソリューションをビルドして実行し、リストの行を削除するためにボタンをクリックしたときに、行が削除されず、ランタイム エラーが発生することがあります。

状況

マイクロソフトではこの問題を Microsoft Office Excel 2003 の問題として認識しています。

解決方法

この問題を解決するには、リストの行を削除する際に、CommandButton にフォーカスが残らないようにします。次のいずれかの方法を使用します。
  • CommandButton の TakeFocusOnClick プロパティを False に設定します。

    または
  • 現在のワークシートを再び選択して、CommandButton からフォーカスを外します。

回避策

この問題を回避するには、次のいずれかの方法を使用します。
  • CommandButton コントロールの TakeFocusOnClick プロパティを False に設定します。
    protected void ThisWorkbook_Open()
    {
    	//Get a reference to the first worksheet.
    	ws = (Excel.Worksheet)(ThisWorkbook.Worksheets[1]);
    
    	//Set up the Click event handler for CommandButton1.
    	cb = (MSForms.CommandButton)(this.FindControl("CommandButton1"));
    	cb.Click+= new MSForms.CommandButtonEvents_ClickEventHandler(cbClick);
    
    	cb.TakeFocusOnClick = false;
    }
    
    または
  • 現在のワークシートの Selection に対して Select メソッドを呼び出して、CommandButton からフォーカスを外します。
    private void cbClick()
    { 
    	ThisApplication.Selection.GetType().InvokeMember("Select",
    		System.Reflection.BindingFlags.Public | 
    		System.Reflection.BindingFlags.InvokeMethod | 
    		System.Reflection.BindingFlags.Instance,
    		null,
    		ThisApplication.Selection,
    		null);
    	
    	ws.ListObjects[1].ListRows[1].Delete();
    }
    

詳細

問題の再現手順

  1. Microsoft Visual Studio .NET 2003 を起動します。
  2. [ファイル] メニューの [新規作成] をポイントし、[プロジェクト] をクリックします。
  3. [プロジェクトの種類] ボックスの一覧の [Microsoft Office System Projects] を展開し、[Visual C# プロジェクト] をクリックします。[テンプレート] ボックスの一覧の [Excel ワークブック] をクリックし、[OK] をクリックします。
  4. Microsoft Office プロジェクト ウィザードの [完了] をクリックします。
  5. F5 キーを押してプロジェクトを実行し、Excel でブックを開きます。
  6. ブックを次のように修正します。
    1. セル A1 を選択します。
    2. [データ] メニューの [リスト] をポイントし、[リストの作成] をクリックします。[リストの作成] ダイアログ ボックスが表示されます。[OK] をクリックします。
    3. セル A2、A3、A4 (A2:A4) に任意のテキストを追加します。
    4. [表示] メニューの [ツールバー] をポイントし、[コントロール ツールボックス] をクリックします。
    5. ワークシートに "コマンド ボタン" コントロールを作成します。デフォルトの名前は [CommandButton1] です。
    6. ブックを保存し、Excel を終了します。
  7. Thisworkbook.cs コード モジュールに、次のコードを追加します。
    private MSForms.CommandButton cb;
    private Excel.Worksheet ws;
    
    protected void ThisWorkbook_Open()
    {
    	//Get a reference to the first worksheet.
    	ws = (Excel.Worksheet)(ThisWorkbook.Worksheets[1]);
    
    	//Set up the Click event handler for CommandButton1.
    	cb = (MSForms.CommandButton)(this.FindControl("CommandButton1"));
    	cb.Click+= new MSForms.CommandButtonEvents_ClickEventHandler(cbClick);
    }
    
    private void cbClick()
    {
    	try
    	{
    		//Delete the first row in the list object.
    		ws.ListObjects[1].ListRows[1].Delete();
    	}
    	catch (Exception ex)
    	{
    		System.Diagnostics.Debug.WriteLine(ex.Message);
    		MessageBox.Show(ex.Message);
    	}
    }
    
  8. F5 キーを押して、プロジェクトをビルドして実行します。
  9. [CommandButton1] をクリックします。

    結果 : リストの行を削除する際に、例外エラーが発生し、以下のエラー メッセージが表示されます。
    HRESULT からの例外です : 0x800A03EC。

プロパティ

文書番号: 823988 - 最終更新日: 2007年4月23日 - リビジョン: 2.0
この資料は以下の製品について記述したものです。
  • Microsoft Office Excel 2003
  • Microsoft Visual Studio Tools for the Microsoft Office System version 2003
キーワード:?
kbbug kbautomation kbnofix KB823988
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com