選択項目移動処理（リストボックス）

表題の件で、ご質問があります。
excel2003で、VBAのユーザフォームを使っております。

リストボックスが二つあり、左の項目を選択したら右の項目にその選択した値が移動する処理をしたいのですがまったくできません。

＜処理内容＞
・リストボックス１の内容
りんご
text
メロン
トマト
上記で、りんごをダブルクリックするとリストボックス１とリストボックス２の内容は以下になります。

＜選択後結果＞
・リストボックス1
text
メロン
トマト
・リストボックス２
りんご

このようにダブルクリックしたらりんごは消えてリストボックス２に移動します。
また逆の処理もしたくたとえばこの状態でリストボックス２を選択したらりんごがリストボックス１に戻る。

＜処理内容＞
・リストボックス２
りんご

・リストボックス1
text
メロン
トマト

リストボックス２をダブルクリックすると以下のようになります。

・リストボックス２


・リストボックス1
りんご
text
メロン
トマト

このようになります。
上記二点の処理がしたいと思います。

どなた様か御教授頂けないでしょうか？
お手数お掛けしますが宜しくお願いします。

No.1 ベストアンサー 回答者： onlyrom 回答日時： 2007/02/28 10:55

こんにちは。

過去殆ど同じ質問をして解決してますが、

http://oshiete1.goo.ne.jp/qa2774729.html
http://oshiete1.goo.ne.jp/qa2774293.html
http://oshiete1.goo.ne.jp/qa2772580.html

それらの回答及び質問者の補足コードに今回の質問の回答もあるように思えます。
再度読み直し、それでも分からなかったら、その部分を具体的に質問してください。

●回答する人のために今回の質問について質問。

リストボックス２へ移動した「りんご」をダブルクリックでリストボックス１へ戻すとき
「りんご」を戻す位置は、リストボックス１の「元の位置」、今回は、１番目に戻すのか？
それともリストの最後でもいいのか。
これでコードがだいぶ違ってきます。
以上です。

この回答へのお礼

もうしわけございません。
過去の質問と照らし合わせ解決できました。
お手数おかけしてもうしわけありません。

お礼日時：2007/03/02 13:32