vba求因子分析

Dim t As Boolean
Dim Column, row As Integer
Dim Asheet, result As Worksheet
Dim Compnumber As Integer
Dim Common, Theta, Total, ConRate

Private Sub CommandButton1_Click()
'在listbox1中选择分析项进入listbox2中
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ListBox2.AddItem ListBox1.list(i)
ListBox2.SetFocus
End If
Next
'删除listbox1中选择的项
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) Then
ListBox1.RemoveItem (i)
End If
Next
'==========================================
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
ListBox1.AddItem ListBox2.list(i)
End If
Next
'删除listbox2中选择的项
For i = ListBox2.ListCount - 1 To 0 Step -1
If ListBox2.Selected(i) Then
ListBox2.RemoveItem (i)

End If
Next
End Sub

Private Sub CommandButton2_Click()
j = 0
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        j = j + 1
    End If
Next



End Sub

Private Sub CommandCancel_Click()
Unload Factor
End Sub

Private Sub CommandReset_Click()
ListBox1.Clear
ListBox2.Clear
Dim list() As String
ReDim list(Column)
For i = 1 To Column
list(i) = Cells(1, i)
Factor.ListBox1.AddItem list(i)
Next
End Sub