Question

在Excel中，我正在更新一个标签，该标签对列表框的选定项目进行计数。每次我取消选择一个标签时，标签都会递减一。我使用以下代码：

将intIndex设置为整数将intCount设置为整数

With ListBox6
    For intIndex = 0 To .ListCount - 1
        If .Selected(intIndex) Then intCount = intCount + 1
    Next
End With
Label1.Caption = "Deelnemers: " & intCount & " op " & ListBox6.ListCount

我正在尝试在访问权限上做同样的事情，但这是行不通的。

Answer 1

为了回答您的问题，我们可能需要其他信息。 -您收到错误消息吗？ -label1和listbox6在哪里？ -什么触发代码？您（尝试）使用哪个事件？

Dim intIndex As Integer 
Dim intCount As Integer
intcount = 0
With **Form1.**ListBox6
    For intIndex = 0 To .ListCount - 1
        If .Selected(intIndex) Then 
              intCount = intCount + 1
        End if
    Next
    **Me.**Label1.Caption = "Deelnemers: " & intCount & " op " & .ListCount
End With

您还可以为每个循环尝试一个；

Dim Li as listitem
dim seleciontcount as integer
selectioncount = 0
For each li in listbox6.items
    if li.selected then
         selectioncount = selectioncount + 1
    end if
next

在Access和Excel中带有标签计数项的列表框

1 个答案: