VBA自学应用（11）——移动列表框元素

在自学应用10我们已经讲过了如何给列表框添加元素，今天我们就来看看如何移动列表框的元素并且数据源的位置也随之变动。

• 首先我们用listbox的list属性添加元素，这里自学应用10已经提过，不再做赘述
• 如图是我的窗体部分
  

在上移按钮中键入如下代码

Private Sub CommandButton1_Click()
    With ListBox1
        j = .ListIndex
        Select Case j
            Case -1
                MsgBox "选择一行后在操作"
            Case 0
                MsgBox "已经是第一行"
            Case Is > 0
                arr = .List(j)
                .List(j) = .List(j - 1)
                .List(j - 1) = arr
                .ListIndex = j - 1          
        End Select
    End With
End Sub

在下移按钮中键入如下代码

Private Sub CommandButton3_Click()
    With ListBox1
        a = .ListIndex
        Select Case a
            Case -1
                MsgBox "请选择一行再操作"
            Case .ListCount - 1
                MsgBox "是最后一行啦！"
            Case Is < .ListCount - 1
                brr = .List(a)
                .List(a) = .List(a + 1)
                .List(a + 1) = brr
                .ListIndex = a + 1
        End Select
    End With
End Sub

在保存按钮中键入如下代码

Private Sub CommandButton2_Click()
    crr = ListBox1.List
    Sheet5.Range("a1").Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

这样就完成了数据的交换！