複数行表示されたリストボックスから最後の行だけ削除するには

解決済

質問者：ecoecojp
質問日時：2005/04/08 12:24
回答数：3件

エクセルのユーザーフォーム上にあるリストボックスですが
必要に応じてボタンクリックでAddItemにより項目が追加されて行くリストボックスがあります

この複数行表示された項目の内
別のボタンクリックで最後に追加された行だけ削除していくには
どのように記述すればいいのでしょうか

-------------
abcde
fghij
klmno
pqrst
------------
と表示されていたリストボックスから
クリックするたびに
-------------
abcde
fghij
klmno
-------------

-------------
abcde
fghij
-------------
の様に最後の行だけ削除をしたいのです
単純に
ListBoX1.Clear
では全て消されてしまい
こまっています
ぜひお力をお貸し下さい
よろしくお願いします

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： stouma
回答日時：2005/04/08 13:02

失礼しました

最後の行では
ListBox1.RemoveItem (ListBox1.ListCount - 1)
と記載してください。
なお、下記同様に
On ErrorとErrHanderは記載してください。
また、記載しない場合は
If ListBox1.ListCount>0 Then等で
リストにデータがないときは処理しないよう
心がけてください。

- 0
- 件

通報する

この回答へのお礼

ありがとうございました
助かりました

通報する

お礼日時：2005/04/11 12:39

No.3

回答者： ja7awu
回答日時：2005/04/08 13:02

「最後の行だけ削除」ですから、こんな感じで、どうでしょうか。

Private Sub CommandButton1_Click()
Dim Lcnt As Long
Lcnt = Me.ListBox1.ListCount
If Lcnt > 0 Then
　　Me.ListBox1.RemoveItem (Lcnt - 1)
End If
End Sub

- 0
- 件

通報する

この回答へのお礼

ありがとうございました
参考になりました

通報する

お礼日時：2005/04/11 12:42

No.1

回答者： stouma
回答日時：2005/04/08 12:58

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

　　On Error GoTo ErrHander
　　ListBox1.RemoveItem (ListBox1.ListIndex)
ErrHander:
　　Err.Clear
End Sub

こんなんではだめでしょうか？
なお、Office Excel 2003にて動作確認はしました。
ダブルクリックにより削除されます。
（質問の際にはOfficeのバージョンも明記のこと）