[已解决]跪求各位高手帮助！！！详见附件。》》》》》》》》坐等答案！！

caddie6

  

  想要达到的效果

我想要实现在 东西南北随即生成一个数字，但东西只等随即一个数，南北也只能随即一个数，东西不能同时生成数据，南北也不能同时生成数据........跪求高手

最佳答案

月排行榜 / 总排行榜

那么的帅

2012-6-21 16:18

原表第2行前面多了1列，把多余的列进行了删除

选中区域，点按钮就可
桩偏位-1.rar (10.45 KB, 下载次数: 22)

2012-6-21 16:17 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

用VBA可以实现
提供数据附件。并说明随机数据的范围

caddie6

跪求指导，麻烦大侠了！

caddie6

那么的帅 发表于 2012-6-21 15:36
用VBA可以实现
提供数据附件。并说明随机数据的范围

桩偏位.rar (12.57 KB, 下载次数: 12)

2012-6-21 15:51 上传

点击文件名下载附件

那么的帅

原表第2行前面多了1列，把多余的列进行了删除

选中区域，点按钮就可
桩偏位-1.rar (10.45 KB, 下载次数: 22)

2012-6-21 16:17 上传

点击文件名下载附件

caddie6

那么的帅 发表于 2012-6-21 16:18
原表第2行前面多了1列，把多余的列进行了删除

选中区域，点按钮就可

跪拜大神！ 我怎样才能复制到别的表格里应用？

caddie6

那么的帅 发表于 2012-6-21 16:18
原表第2行前面多了1列，把多余的列进行了删除

选中区域，点按钮就可

跪拜大神！如何修改取值区间？

那么的帅

caddie6 发表于 2012-6-21 18:56
跪拜大神！如何修改取值区间？

打开其他的工作表
ALT+F11 进入VBE编辑器
插入一个模块，然后下面的代码复制粘贴到模块1 里

1. 
   
2. Sub 按钮1_单击()
   
3.     a = Selection.Address
   
4.     Range(a).ClearContents
   
5.     arr1 = Selection.Value
   
6.     QISHI = -20  '起始值
   
7.     JIESHU = 100 '结束值
   
8.     For i = 1 To UBound(arr1)
   
9.         S1 = Int(Rnd() * 2 + 1)
   
10.         S2 = Int(Rnd() * 2 + 3)
    
11.         P1 = Int(Rnd() * (JIESHU - QISHI + 1) + QISHI)
    
12.         p2 = Int(Rnd() * (JIESHU - QISHI + 1) + QISHI)
    
13.         arr1(i, S1) = P1
    
14.         arr1(i, S2) = p2
    
15.     Next i
    
16.     Range(a).ClearContents
    
17.     Range(a) = arr1
    
18.    
    
19. End Sub
    

复制代码

ztccsj

那么的帅 发表于 2012-6-21 23:52
打开其他的工作表
ALT+F11 进入VBE编辑器
插入一个模块，然后下面的代码复制粘贴到模块1 里

真厉害，我学习了半天

caddie6

那么的帅 发表于 2012-6-21 23:52
打开其他的工作表
ALT+F11 进入VBE编辑器
插入一个模块，然后下面的代码复制粘贴到模块1 里

很强大，谢谢大侠的支持...