Excel VBA拖放

Question

我在找一個可行的解決方案時遇到了一些困難（一直在尋找2天）。 希望你能幫我弄明白。

目的 - 我想使用VBA來拖放列表框 之間的文本（見圖片）

注意：我知道有樞軸奇才已經，我中號不那麼感興趣，他們（長的故事）

問題 有沒有，你知道的，可以幫助我M任何解決方案「列A」到任何其他列表框？

如果您不知道解決方案，博客或網站可能也會有所幫助。

Answer 1

除了我上面的評論，這裏是最簡單的方法。

創建一個帶有2個列表框和1個命令按鈕的用戶窗體，如下圖所示。

並粘貼到用戶窗體代碼區域的代碼

Dim i As Long 

Private Sub UserForm_Initialize() 
    For i = 1 To 10 
     ListBox1.AddItem i 
    Next i 
End Sub 

Private Sub CommandButton1_Click() 
    If ListBox1.ListIndex = -1 Then 
     MsgBox "Please select an item from listbox1" 
     Exit Sub 
    End If 

    ListBox2.AddItem ListBox1.List(ListBox1.ListIndex) 
    ListBox1.RemoveItem (ListBox1.ListIndex) 
End Sub 

HTH