[已解决]请老师有空写段代码

14116518

附件里有详细说明，辛苦老师了，谢谢

最佳答案

月排行榜 / 总排行榜

xdragon

2014-6-27 17:26

14116518 发表于 2014-6-27 17:22
嗯嗯，没错，我没看清楚，不好意思。
请老师把我改改代码，把随便生成的放在A10单元格，谢谢

1. Sub t()
   
2.   Dim s$, arr, i&
   
3.   arr = Range("A2:J8").Value
   
4.   Randomize
   
5.   For i = 1 To UBound(arr, 2)
   
6.      s = s & arr(Int(Rnd * (UBound(arr)) + 1), i)
   
7.   Next
   
8.   [a10]= s
   
9. End Sub

复制代码

跳转到最佳答案楼层

baksy

A1单元格复制以下公式，横拉、下拉。
=TEXT(INDIRECT("Sheet2!r"&COLUMN()&"c"&ROW(),),";;;@")

xdragon

1. Sub t()
   
2.   Dim s$, arr, i&
   
3.   arr = Range("A2:J8").Value
   
4.   For i = 1 To UBound(arr, 2)
   
5.      s = s & arr(Int(Rnd * (UBound(arr)) + 1), i)
   
6.   Next
   
7.   MsgBox s
   
8. End Sub

复制代码

14116518

xdragon 发表于 2014-6-27 16:58

老师，你好，可能是我表达不清楚，不好意思。
A-J列每列随机选一个，但是有先后顺序的。从A-B-C.....-J列的
然后随机生存的语句要放工作表A10单元格，麻烦了

14116518

baksy 发表于 2014-6-27 16:52
A1单元格复制以下公式，横拉、下拉。
=TEXT(INDIRECT("Sheet2!r"&COLUMN()&"c"&ROW(),),";;;@")

老师，我好像没明白，能把附件回传给我看看吗，谢谢

14116518

xdragon 发表于 2014-6-27 16:58

嗯嗯，没错，我没看清楚，不好意思。
请老师把我改改代码，把随便生成的放在A10单元格，谢谢

xdragon

14116518 发表于 2014-6-27 17:22
嗯嗯，没错，我没看清楚，不好意思。
请老师把我改改代码，把随便生成的放在A10单元格，谢谢

1. Sub t()
   
2.   Dim s$, arr, i&
   
3.   arr = Range("A2:J8").Value
   
4.   Randomize
   
5.   For i = 1 To UBound(arr, 2)
   
6.      s = s & arr(Int(Rnd * (UBound(arr)) + 1), i)
   
7.   Next
   
8.   [a10]= s
   
9. End Sub

复制代码

14116518

xdragon 发表于 2014-6-27 17:26

谢谢