麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] Userform listobx 前端剔號的方格 [打印本頁]

作者: mdr0465 時間: 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

作者: 軒云熊 時間: 2021-6-3 00:42

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

回復 1# mdr0465

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

作者: mdr0465 時間: 2021-6-3 19:18

回復 2# 軒云熊

熊師兄，成功了，謝謝你

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)