- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 19# dafa - Private Sub UserForm_Initialize()
- With ListBox1
- .MultiSelect = fmMultiSelectMulti '=> 1 : ListBox1屬性設定可複選
- ' fmMultiSelectSingle 0 只能選取一個專案 ( 預設 )。
- ' fmMultiSelectSimple 1 按下空白鍵或按下滑鼠鍵,可以選取、取消選取清單中的專案。
- ' fmMultiSelectExtended 2 按下 SHIFT 並按下滑鼠鍵,或按下 SHIFT 並按下一個方向鍵,可選取一個範圍內的所有專案。按下 CTRL 並按下滑鼠鍵,可選取或取消選取一個專案。
- .Visible = False
- .ColumnCount = 4 '指定下拉式清單方塊或清單方塊的顯示行數。
- .ColumnWidths = "370,40,40,40" '指定多行下拉式清單方塊或清單方塊中的各行寬度。
- End With
- End Sub
- Private Sub ListBox1_Change()
- Dim xlString As String, AA(), xi As Integer
- With ListBox1
- For xi = 0 To .ListCount - 1
- If .Selected(xi) = True Then
- AA = Application.Index(ListBox1.List, ListBox1.ListIndex + 1) '陣列中抽出指定的元素陣列(這裡是一維陣列)
- xlString = IIf(xlString = "", "[" & Join(AA, "] ; [") & "]", xlString & Chr(10) & "[" & Join(AA, "] ; [") & "]")
- End If
- Next
- End With
- Label2.Caption = xlString
- End Sub
複製代碼 |
|