Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1989|回复: 4

[已解决]从 ListView1 取值求和 而不是从单元格取值求和!求老师帮忙!

[复制链接]
发表于 2017-9-28 22:26 | 显示全部楼层 |阅读模式
本帖最后由 admin321 于 2017-9-28 22:30 编辑

      从 ListView1 取值求和  而不是从单元格取值求和!求老师帮忙!
ComboBox2 = SumIfs(ListView1.ListItems.SubItems(3), ListView1.ListItems.SubItems(2), ComboBox1)

1902.jpg Listview求和.rar (16.72 KB, 下载次数: 31)
发表于 2017-9-29 09:05 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub CommandButton2_Click()
  2. Dim i&, n&
  3. For i = 1 To ListView1.ListItems.Count
  4.   If ListView1.ListItems(i).SubItems(2) = ComboBox1 Then n = n + ListView1.ListItems(i).SubItems(3)
  5. Next i
  6. ComboBox2 = n
  7. End Sub
复制代码

评分

参与人数 1学分 +3 收起 理由
lsyylw + 3 太强大了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-9-29 21:06 | 显示全部楼层

Private Sub CommandButton2_Click()
Dim i&, n&
For i = 1 To ListView1.ListItems.Count
  If ListView1.ListItems(i).SubItems(2) = ComboBox1 Then n = Val(n) + ListView1.ListItems(i).SubItems(3)
  If ListView1.ListItems(i).SubItems(2) = ComboBox3 Then Y = Val(Y) + ListView1.ListItems(i).SubItems(3)
Next i
ComboBox2 = n
ComboBox4 = Y
End Sub

这样行不行~!?

回复

使用道具 举报

发表于 2017-10-3 16:14 | 显示全部楼层
学习一下
回复

使用道具 举报

发表于 2017-10-9 14:19 | 显示全部楼层
admin321 发表于 2017-9-29 21:06
Private Sub CommandButton2_Click()
Dim i&, n&
For i = 1 To ListView1.ListItems.Count

你的Y变量没有看到声明,应该是变体形,而n变量原本就声明的数值型,所以套用VAL()没有什么意义,当然,并没有什么错误。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:43 , Processed in 0.382704 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表