将唯一记录添加到另一个列表框的列表框中

时间:2018-01-30 21:47:03

标签: excel vba excel-vba

我希望有人可以帮助我,因为我不经常在Excel VBA中编码。我在Listbox上有两个CommandButton和一个UserForm,它会将第一个ListBox中的选定记录添加到第二个ListBox。第一个ListBox中的范围有点长,因此表单的用户通常会选择几个记录,点击添加按钮,然后向下滚动第一个ListBox选择要添加的更多记录。问题是,只有最后添加的那些实际上才会被识别并用于生成报告,即使所有选定的记录都出现在第二个ListBox中。这是我当前的按钮代码,它将记录添加到第二个Private Sub AddButton_Click() For i = 0 To Listbox1.ListCount - 1 If Listbox1.Selected(i) = True Then Listbox2.AddItem Listbox2.List(i) Next i End Sub

ListBox

如何填充第二个the_list = [132.86, 57.78, 132.52, 137.36, 44.98, 97.05, 55.01, 26.64, 136.84, 75.08, 83.56, 21.28, 0.00, 0.00] print sum(the_list) >>> 1000.96 ,以便无论使用添加按钮多少次,它都会包含所选的每条记录?

0 个答案:

没有答案