EXCEL VBA 顯示多項數值的問題

本帖最後由 saitang 於 2017-2-14 15:06 編輯

請問如何顯示所選的值在LISTBOX / TEXTBOX內?
我有項commodity,
用LISTBOX 連去SHEET4 的DATA
LISTBOX可以多項選擇
用TEXTBOX即時顯示所選的數值,
但只能顯示一項

請問VBA應該如何修改?

Private Sub ListBox3_Change()
Dim lItem As Long
    For lItem = 0 To ListBox3.ListCount - 1
        If ListBox3.Selected(lItem) = True Then
            TextBox1.Text = ListBox3.List(lItem)
            ListBox3.Selected(lItem) = False
        End If
    Next

End Sub

另外LISTBOX一轉為多項選擇, 不能顯示✓號
轉為單一選項就冇這問題


https://drive.google.com/open?id=0B4mCCZ9Vkg_TY1Z6NHdVQ1dITlE

本帖最後由 marlin12 於 2017-2-18 10:23 編輯
  1. Private Sub ListBox_Commodity_Change()
  2.     ListBox_Selected.Clear
  3.    
  4.     For i = 0 To ListBox_Commodity.ListCount - 1
  5.         If ListBox_Commodity.Selected(i) Then
  6.             ListBox_Selected.AddItem ( ListBox_Commodity.List(i) )
  7.         End If
  8.     Next i
  9. End Sub
複製代碼
excel sample

TOP