Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


72516 / 76732 ←次へ | 前へ→

【8699】Re:リストボックスのバグでしょうか?
回答  ねこ@江坂  - 03/10/29(水) 15:25 -

引用なし
パスワード
   ▼Yoshie さん:こんちゃ
久々に回答にやってきた ねこ@江坂です。

>リストボックスを使うとどうしてもEXCELが飛んでしまいます。
>
>回避方法や何か情報がありましたら教えてください。
>
>再現方法
>
>1.ワークシートにリストボックス(ListBox1)をおく。
>2.リストボックスの中身はEXCELが起動したときに入れる。
>
>Private Sub Workbook_Open()
>  With Sheet1
>    .ListBox1.AddItem "Sheet2"
>    .ListBox1.AddItem "Sheet3"
>    .ListBox1.Activate
>    .ListBox1.ListIndex = 0  
>  End With
>End Sub
>
>3.ListBox1のKeyDownイベントで以下のように記述する。
>
>Dim Myws as Object
>
>Set Myws = WorkSheets("Sheet2")
>Myws.Activate
>Myws.Range("A1").select
>Set Myws = nothing
>
>4.一度ファイルを保存し、閉じて再度このファイルを起動する。
>
>5.実行モードでリストボックスのSheet2の場所でENTERを押す。
>[結果]
>Sheet2がアクティブになりカーソルもA1にいるが、
>瞬時に、問題が発生したためMicrosoft Excel for Windowsを終了します。
>というメッセージが出てExcelが飛びます。
>
>ちなみにリストボックスの代わりにコマンドボタンを使った場合は
>飛びません。
>
>以上、よろしくお願いします。
>
>開発環境:WinXp Professional + Excel2000
 たぶんですが…

 KeyDownイベントにしているてめにExcelがオブジェクトを見失うからでしょう。
 KeyUpイベントにするわけにはいかないですか?

じゃねじゃね

0 hits

【8690】リストボックスのバグでしょうか? Yoshie 03/10/29(水) 14:01 質問
【8699】Re:リストボックスのバグでしょうか? ねこ@江坂 03/10/29(水) 15:25 回答
【8700】Re:リストボックスのバグでしょうか? BOTTA 03/10/29(水) 15:43 回答
【8706】ありがとうございました。 Yoshie 03/10/29(水) 17:07 お礼

72516 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free