关于 随机 抽取 表格二的号码 到表格一的系统

wangyi2004

请看图，若不清楚可下载附件查看：



制作目的：
1.要求打开系统自动提取“号源池”中的号码到黄色区域中（但要求号码不重复），或者打开后点击“抽取号码”来实现抽取号码，点击更换一组号码则自动随机重新提取另一批号码，请问能否实现。
2.如果可能的话，在号码旁边添加一个“选择框”（或者命令按钮），选择后的号码自动从号源池移动到“已售号码”的表格中。（如果第二条不能实现，可以不用考虑）

附件下载：
抽号.rar (10.87 KB, 下载次数: 29)

2010-1-1 09:24 上传

点击文件名下载附件

[ 本帖最后由 wangyi2004 于 2010-1-1 11:17 编辑 ]

李子然

好像没有说清楚，最最起码的是要说清楚能不能重号

wangyi2004

恩，是的，要求黄色区域中提取的号码不重复，谢谢。

wangyi2004

那位高手帮忙看看。

ccwan

抽号.rar (14.33 KB, 下载次数: 33)

2010-1-1 17:17 上传

点击文件名下载附件

wangyi2004

谢谢5楼的“ccwan ”高手，太感谢你了，的确达到要求了，只是你说的“双击号码，选择后的号码自动从号源池移动到“已售号码”的表格中。”我测试了不行，不知道是怎么回事，我双击号码后，就呈现单元格编辑状态，然而已售号码中没有我双击过的号码。而号源池中的号码也不会取消。

[ 本帖最后由 wangyi2004 于 2010-1-1 17:38 编辑 ]

ccwan

“已售号码中没有双击过的号码”，这是我的疏忽。“而号源池中的号码也不会取消”，我试过没有问题。
抽号.rar (14.35 KB, 下载次数: 66)

2010-1-1 17:44 上传

点击文件名下载附件

wangyi2004

恩，这回没问题了，不是师傅疏忽，师傅能够帮助我做出来就感激不尽了。

我在6楼的意思是说：双击【抽号】页面的号码后，号码自动记录到【已售号码】，但要求【号源池】中的号码也随之删除（即清空所双击的号码），请问能够实现？

我的思路是通过在号码后添加控件，利用控件代码在号源池中找到相同的号码并删除，但是这样做可能有点复杂，难度有点高。

ccwan

附件中号源池是个工作表啊。
改这段

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Application.Intersect(Target, [b4:e8]) Is Nothing Then Exit Sub
   
3. Dim i&, arr
   
4. arr = Sheets("号源池").[a1].CurrentRegion
   
5. For i = 1 To UBound(arr)
   
6. If Target.Value = arr(i, 1) Then
   
7. Target.Value = ""
   
8. Sheet2.Rows(i).Delete
   
9. Sheet3.[a65536].End(3)(2, 1) = Target.Value
   
10. Exit For
    
11. End If
    
12. Next
    
13. End Sub

复制代码

wangyi2004

对，就是这个了，完美运行。非常感谢“ccwan”！

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, [b4:e8]) Is Nothing Then Exit Sub
Dim i&, arr
arr = Sheets("号源池").[a1].CurrentRegion
For i = 1 To UBound(arr)
If Target.Value = arr(i, 1) Then
Sheet2.Rows(i).Delete
Sheet3.[a65536].End(3)(2, 1) = Target.Value
Exit For
End If
Next
End Sub

[ 本帖最后由 wangyi2004 于 2010-1-1 18:43 编辑 ]