返回列表 上一主題 發帖

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

mdr0465

帖子
163 
主題
45 
精華
0 
積分
246 
點名
27  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2024-9-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-6-2 11:22 | 只看該作者

[發問] 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)

收藏 分享

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
2#
發表於 2021-6-3 00:42 | 只看該作者
本帖最後由 軒云熊 於 2021-6-3 00:45 編輯

回復 1# mdr0465

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

TOP

mdr0465

帖子
163 
主題
45 
精華
0 
積分
246 
點名
27  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2024-9-14 
3#
發表於 2021-6-3 19:18 | 只看該作者
回復 2# 軒云熊

熊師兄，成功了，謝謝你

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題