Excel VBA拖放

Question

我在尋找可行的解決方案時遇到了一些困難（現在已經找了2天）。 希望你能幫助我解決。

目的 -我正在嘗試使用VBA在列表框之間拖放文本（參見圖片）

注意 ：我知道已經有Pivot Wizards，我對它們不那么感興趣（長話不說）

問題您是否知道有什么解決方案可以幫助我將“列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