在Excel中更改单个列表框项目的字体

我想改变列表框中单个项目的属性。 我目前有用户从列表框中select一个项目，然后作为parameter passing进行处理。 我希望能够从列表中删除项目，或者甚至更好地更改字体，以便他们可以看到哪些项目需要处理，哪些项目已经完成。

我有以下代码：

Sub updateLaunchScreen_CrossDayOff() Dim i As Long With ReadingsLauncher With .dayListBox For i = 0 To .ListCount - 1 If .Selected(i) Then .Font.Strikethrough = True End If Next i End With End With End Sub 

但是，这会更改列表中的每个项目。

我GOOGLE了这个问题，但没有能够find任何具体的改变列表框中的单个列表项的属性。

任何帮助将不胜感激。

Answer 1

我希望能够从列表中删除项目

如果你想删除该项目，那么我会build议这一点

 Option Explicit Private Sub CommandButton1_Click() If ListBox1.ListIndex > -1 Then ListBox1.RemoveItem (ListBox1.ListIndex) End If End Sub 

或者甚至更好地改变字体，以便他们可以看到哪些项目需要处理，哪些已经完成。

如果你想看看哪些项目已经被处理，那么你可以使用这个选项。

使用checkbox选项使您的列表框成为MultiSelect列表框。 请参阅快照

要获得这种types的列表框，您可以在devise时或运行时设置属性。 例如

devise时间

运行

 Private Sub UserForm_Initialize() With ListBox1 .MultiSelect = fmMultiSelectMulti .ListStyle = fmListStyleOption End With End Sub