- 帖子
- 323
- 主題
- 6
- 精華
- 0
- 積分
- 313
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2026-1-5
|
本帖最後由 jackyq 於 2018-6-20 15:39 編輯
回復 3# iamaraymond
屬性視窗手動設定 or 用 VBA 寫入屬性
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti
Private Sub ListBox1_Change()
For w = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(w) Then
Debug.Print "選中 = " + ListBox1.List(w)
End If
Next
End Sub |
|
發表於 2018-6-20 13:40
| 
