Multicolumn Combo Box 多列组合框

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.ColumnCount = 2

  Dim Films(1 To 5, 1 To 2) As String
  Dim i As Integer, j As Integer

  Films(1, 1) = "Lord of the Rings"
  Films(2, 1) = "Speed"
  Films(3, 1) = "Star Wars"
  Films(4, 1) = "The Godfather"
  Films(5, 1) = "Pulp Fiction"

  Films(1, 2) = "Adventure"
  Films(2, 2) = "Action"
  Films(3, 2) = "Sci-Fi"
  Films(4, 2) = "Crime"
  Films(5, 2) = "Drama"

  ComboBox1.List = Films
End Sub

Private Sub CommandButton1_Click()
  Unload Me
  MsgBox "You selected " & ComboBox1.Value

  On Error Resume Next
  MsgBox "You like " & ComboBox1.Column(1) & " movies"
End Sub