1
2上图右边儿这个"列表窗口"就是今天我们要讲的内容.
EXCEL功能很强大,用户窗体只是其中一个"小星点",即使是这样它还是能够带来很多便利的,
看上边这个窗体你就应该明白你的数据统计体系是怎么样的,越是复杂的数据你的窗体也会相应的变得复杂,
但即使再复杂的窗体呈现出来的统计速率和呈现感都要强很多,
如果你能够做出一个很棒的窗体也意味着你对你的输入数据要求是很高的,那么你的数据不管是完整性,还是后续的延用性都会更有参考价值.
根据上几章的讲解,大家应该也明白这个塑造过程,而根据之前的例子,我们近一步延申,
如果你的收货单位都是确定的那么几家,你其实就可以做出一个类似于下拉清单这样的东西
3然后再和你的单元格进行链接,这样就可以不用大费周折的去输入,或者你用combo也可以,各有取舍.
针对视频中说的例子,list box设置如下.
4需要强调的是这个Multiselect有3个选项,如果你需要做单选,选择模式1就可以了,但是如果你需要选择好几项数据,你可以选择模式2
不同于之前我们讲过的那些窗体单元,这个要复杂一点点,中间需要嵌套FOR回圈来进行选择,
中间的一段代码是这样的:
For X = 0 To ListBox收货单位.ListCount - 1If ListBox收货单位.Selected(X) = True ThenSheets("数据").Range("A1").Offset(目标行数, 3) = ListBox收货单位.List(X)Sheets("数据").Range("A1").Offset(目标行数, 11) = ListBox收货单位.List(X, 1)End IfNext X
解释一下,
我们的列表里有很多内容,所以我们需要用回圈来一个一个寻找,
如果内容中间的哪一项,或者哪几项被选择了,那么就意味着,这个清单内容将会生效,然后放置在某个你想要放置的链接单元格.
ListBox收货单位.ListCount - 1的意思是:包含在列表中的内容除去表头内容,因为表头也属于列表中的内容.
Sheets("数据").Range("A1").Offset(目标行数, 11) =ListBox收货单位.List(X, 1)代表listbox中的列位置.
视频:
基本建立
23:31代码编辑
同时也把之前几张的代码进行的了一个排错,目前的版本拥上去是最舒服的.
需要课件的可以找我.