Excel VBA質問箱 IV

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

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


7805 / 76734 ←次へ | 前へ→

【74512】Re:リストボックスからリストボックスへ重複なしで移動させたいです。
発言  ichinose  - 13/7/7(日) 20:14 -

引用なし
パスワード
     こんばんは。

解決後ですが、Listbox2登録メンバーで重複をチェックする方法です。


ListBox2の BeforeDropOrPasteイベント以外は、 ぺろさんの投稿コードを
そのまま生かすこととします。

よって、
BeforeDropOrPasteイベントプロシジャーだけ。


Private Sub ListBox2_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
  Dim ss
  Dim i As Long, j As Long
  Dim NewIndex As Long
  Dim marray As Variant
  Dim ret As Long
'ドラッグ時のみドラッグされたデータをリスト項目に追加
  If Action = fmActionDragDrop Then
    ss = Split(Data.GetText(), vbTab)
    With ListBox2
     ret = 1
     If .ListCount > 0 Then
       If IsError(Application.VLookup(ss(0), .List, 1, False)) Then
        .AddItem ss(0), 0
        For i = 1 To UBound(ss)
         .List(NewIndex, i) = ss(i)
        Next i
       End If
     Else
       ReDim marray(0 To 0, 0 To UBound(ss))
       For i = 0 To UBound(ss)
        marray(0, i) = ss(i)
       Next i
       .List() = marray
       Erase marray
     End If
    End With
  End If
  Data.Clear 'DataObjectのデータクリア
End Sub


7 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 お礼

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