[已解决]怎样计算窗体列表中某列数值之和？

一点不自在

怎样计算窗体列表中某列数值之和？

 

TrO0DxnR.rar (28.19 KB, 下载次数: 24)

2010-4-6 12:24 上传

点击文件名下载附件
怎样计算窗体列表中某列数值之和？

最佳答案

月排行榜 / 总排行榜

amulee

2010-4-6 13:34

你都会点击更新List了，这个应该不在话下啊。

Private Sub ListBox1_Click()
With UserForm2
    r = Me.ListBox1.ListIndex + 2
    i = .ListBox1.ListCount
    .ListBox1.AddItem .TextBox7.Text
    .ListBox1.List(i, 1) = .TextBox1.Text
    .ListBox1.List(i, 2) = Sheets("引用").Cells(r, 2)
    .ListBox1.List(i, 3) = Sheets("引用").Cells(r, 3)
    .ListBox1.List(i, 4) = Sheets("引用").Cells(r, 4)
    .TextBox8 = Val(.TextBox8) + Sheets("引用").Cells(r, 4)
 End With
End Sub

跳转到最佳答案楼层

amulee

你都会点击更新List了，这个应该不在话下啊。

Private Sub ListBox1_Click()
With UserForm2
    r = Me.ListBox1.ListIndex + 2
    i = .ListBox1.ListCount
    .ListBox1.AddItem .TextBox7.Text
    .ListBox1.List(i, 1) = .TextBox1.Text
    .ListBox1.List(i, 2) = Sheets("引用").Cells(r, 2)
    .ListBox1.List(i, 3) = Sheets("引用").Cells(r, 3)
    .ListBox1.List(i, 4) = Sheets("引用").Cells(r, 4)
    .TextBox8 = Val(.TextBox8) + Sheets("引用").Cells(r, 4)
 End With
End Sub

一点不自在

QUOTE:

以下是引用amulee在2010-4-6 13:34:00的发言：

你都会点击更新List了，这个应该不在话下啊。

Private Sub ListBox1_Click()
With UserForm2
    r = Me.ListBox1.ListIndex + 2
    i = .ListBox1.ListCount
    .ListBox1.AddItem .TextBox7.Text
    .ListBox1.List(i, 1) = .TextBox1.Text
    .ListBox1.List(i, 2) = Sheets("引用").Cells(r, 2)
    .ListBox1.List(i, 3) = Sheets("引用").Cells(r, 3)
    .ListBox1.List(i, 4) = Sheets("引用").Cells(r, 4)
    .TextBox8 = Val(.TextBox8) + Sheets("引用").Cells(r, 4)
 End With
End Sub

菜鸟很笨不会灵活应用和举一反三，故而需多看些例题来增加认识，幸亏有众多高手帮助和指点，非常感谢了！！

[em04]

xws123456