|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
工作上用,这几天抓瞎了,请高手帮忙解决下。。。我把我自己的设想发下,并传个附件,可行的话,帮忙改下,不可行就得劳烦给小弟重做个{:soso_e113:}
环境:同一工作薄中,三个工作表。表1——数据源(A1:A50分别是1~50的数),表2——抽取后剩余(初始为空),表3抽取结果(初始为空),设置有“抽取”“重置”两个按钮。
达到效果:每单击一次“抽取”按钮,就会随机抽取表1中A1:A50的 数,且不重复,分别存放显于表3A3:A53;“重置”按钮用于清空表3A:A53、表2A1:A50数据。
设想:单击抽取后,首先统计表3A3:A53数据个数N,如果N≠0,执行随机抽取表2A1:A50中的一个数,结果存放显示于表3中的A(N+3)单元格中,并在表2中删除该行;如果N=0,执行复制表1A1:A50到表2A1:A50中,随机抽取表2A1:A50中的一个数,结果存放显示于表3的A3中,并在表2中删除该行。单击重置按钮后,清除表2A1:A50,表3A3:A53中的数据。
抽取重置样表.rar
(10.74 KB, 下载次数: 87)
|
|