[已解决]求助如何给市随机分配一个地区

zbc123456

怎么在表1里面的市区随机分配一个 该市下的3级区 最好能写个宏按钮
表一

2级	3级
石家庄市	等于表2石家庄市中随机一个区
唐山市	等于表2唐山市中随机一个区
秦皇岛
邯郸市
邢台市
保定市
张家口

表二

天津市	市辖区	河东区
天津市	市辖区	河西区
天津市	市辖区	南开区
天津市	市辖区	河北区
天津市	市辖区	红桥区
天津市	市辖区	塘沽区
天津市	市辖区	汉沽区
天津市	市辖区	大港区
天津市	市辖区	东丽区
天津市	市辖区	西青区
天津市	市辖区	津南区
天津市	市辖区	北辰区
天津市	市辖区	武清区
天津市	市辖区	宝坻区
天津市	县	宁河县
天津市	县	静海县
天津市	县	蓟　县
河北省	石家庄市	长安区
河北省	石家庄市	桥东区
河北省	石家庄市	桥西区
河北省	石家庄市	新华区
河北省	石家庄市	井陉矿区
河北省	石家庄市	裕华区
河北省	石家庄市	井陉县
河北省	石家庄市	正定县
河北省	石家庄市	栾城县
河北省	石家庄市	行唐县
河北省	石家庄市	灵寿县

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-9-9 10:49

zbc123456 发表于 2015-9-9 10:48
谢谢还是提示错误

把那句改成
ar(i, 2) = Sheets("Sheet2").Range("c" & Application.WorksheetFunction.Round(rmin + Rnd() * (rmax - rmin), 0))
应该OK了

跳转到最佳答案楼层

yorkchenshunan

见附件

zbc123456

yorkchenshunan 发表于 2015-9-9 08:32
见附件

不行运行错误提示 对象不支持该属性或方法

yorkchenshunan

那个语句有问题？randbetween那条？

金樽空对月

提供两方法，一种代码完成，一种是函数完成，但函数随机选择完成后，要再选择性粘贴数值一次，不然它随时会变（太随机了）；代码的就直接点按钮就行了，希望能帮到你。
另外你的会出现错误提示可能和EXCEL的版本不同相关，你的是03版的，我们用的可能都是07版以上的，在代码方面可能有兼容性的问题，建议你下载个2007兼容包安装。

zbc123456

金樽空对月 发表于 2015-9-9 10:30
提供两方法，一种代码完成，一种是函数完成，但函数随机选择完成后，要再选择性粘贴数值一次，不然它随时会 ...

先谢谢这位热心的朋友，奇怪怎么用你的这个代码也提示 对象不支持该属性或方法 调试这行显示黄色  ARR(X, 2) = Sheet2.Range("C" & Application.WorksheetFunction.RandBetween(MINS, MAXS))

zbc123456

金樽空对月 发表于 2015-9-9 10:30
提供两方法，一种代码完成，一种是函数完成，但函数随机选择完成后，要再选择性粘贴数值一次，不然它随时会 ...

恩我用的是03版本的

zbc123456

yorkchenshunan 发表于 2015-9-9 10:28
那个语句有问题？randbetween那条？

  也是这条提示  ar(i, 2) = Sheets("Sheet2").Range("c" & Application.WorksheetFunction.RandBetween(rmin, rmax))

yorkchenshunan

你的EXCEL版本太低，不支持RANDBETWEEN，试试这个吧

金樽空对月

zbc123456 发表于 2015-9-9 10:37
先谢谢这位热心的朋友，奇怪怎么用你的这个代码也提示 对象不支持该属性或方法 调试这行显示黄色  ARR(X, ...

你先用函数方式的吧，稍等我修改一下代码。