ListItem 窗体选中的数据行，单价相加，并输入到选中的单元格

xiangye30520

求助，怎么样能将ListItem 窗体选中的数据行，单价相加，并输入到选中的单元格，如图片，选中的1 2 3 4 加起来，并输入到选中的任意单元格中，谢谢。

小凡、、、

饮冰e士

1. Private Sub cmdSave_Click()
   
2. Dim i As Integer
   
3. Dim Sum

复制代码

1. Private Sub cmdSave_Click()
   
2. Dim i As Integer
   
3. Dim Sum
   
4.   With objListViewDemo
   
5.     For i = 1 To .ListItems.Count
   
6.       If .ListItems(i).Checked Then
   
7.         Sum = Sum + Val(.ListItems(i).SubItems(3))
   
8.       End If
   
9.     Next i
   
10.   End With
    
11.   ActiveCell = Sum
    
12. End Sub

复制代码

xiangye30520

饮冰e士 发表于 2024-7-8 15:26

谢谢你的帮助，非常nice