返回列表 上一主題 發帖

[發問] Userform listobx 前端剔號的方格

[發問] Userform listobx 前端剔號的方格

各位大大,你好
我應如何修改可以令到USERFORM1 裏的LISTOBX 裏每一項目的前端都可以有一個剔號的方格呢?

Private Sub CommandButton1_Click()
Dim rngMultiColumn As Range
Set rngMultiColumn = Range("A1:L1499")
ListBox1.ColumnCount = 12
ListBox1.RowSource = "A1:L1499"
With UserForm1.ListBox1
        'Set column widths
        .ColumnWidths = "100;50;50;40"
        'Populate listbox
        .List = rngMultiColumn.Cells.Value  問題錯在這里
    End With      
End Sub

USERFORM LIST BOX.zip (26.13 KB)

本帖最後由 軒云熊 於 2021-6-3 00:45 編輯

回復 1# mdr0465

把.List = rngMultiColumn.Cells.Value 刪除
在ListBox1的屬設定 列表樣式 改 1

TOP

回復 2# 軒云熊

熊師兄,成功了,謝謝你

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題