|
こんばんは。
解決後ですが、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
|
|