Excel VBA質問箱 IV

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

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


7810 / 76734 ←次へ | 前へ→

【74507】Re:リストボックスからリストボックスへ重複なしで移動させたいです。
発言  UO3  - 13/7/6(土) 3:29 -

引用なし
パスワード
   ▼ぺろ さん:

こんばんは

回答の前に。
コードは動いているものをそのままコピペしてアップされた方がいいですよ。
アップされたコードをそのまま貼り付けてコンパイルしますとコンパイルエラーになりますよね。
ListBox2_BeforeDropOrPaste 内の End If が1つ余分のようですよ。
それと、シート名に限らずエクセル内では半角カナは機種依存ですので使わない方がよろしいかと。

さて、重複の回避ですけど、ざっと眺めたコードの流れで言えば、ドロップ時にListBox2内にコードが
存在するかどうかで、処理分岐されるのが簡単かなと思います。

・ListBox2のListが生成されていない場合は、実行
・ListBox2のListが生成されていれば、その1列目をWorkSheetFunction.Indexあたりで取り出し
 その1列の配列に対して、ドロップしようとしているデータの1列目の値があるかどうかを
 Application.Match あたりで判定。なければ実行

こんなことではいかがでしょう。
3 hits

【74504】リストボックスからリストボックスへ重複なしで移動させたいです。 ぺろ 13/7/5(金) 16:30 質問
【74507】Re:リストボックスからリストボックスへ重... UO3 13/7/6(土) 3:29 発言
【74508】Re:リストボックスからリストボックスへ重... kanabun 13/7/6(土) 10:16 発言
【74509】Re:リストボックスからリストボックスへ重... ぺろ 13/7/6(土) 11:02 発言
【74510】Re:リストボックスからリストボックスへ重... kanabun 13/7/6(土) 11:07 発言
【74511】Re:リストボックスからリストボックスへ重... ぺろ 13/7/6(土) 11:19 お礼
【74512】Re:リストボックスからリストボックスへ重... ichinose 13/7/7(日) 20:14 発言
【74513】Re:リストボックスからリストボックスへ重... ぺろ 13/7/8(月) 8:25 お礼

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