[已解决]如何根据一个单元格的内容 随机另一单元格

libingword

如何根据一个单元格的内容  随机另一单元格

     A列       B列
1   a          140-170
2   b           200-250
3   c           140-170
4   d           200-250
5   e            200-250
6   f            200-250
7   g         200-250
8   k        200-250
9   m        200-250

我的意思是当A列出现a或c的时候   B列的随机数是140-170 之间的数都行，
其他出现任何数 都随机到200-250之间的数       还有我想保存  随机的数    想用宏来实现     能有高人帮我吗

最佳答案

月排行榜 / 总排行榜

suye1010

2012-5-16 13:37

1. Sub 求取随机数()
   
2. Dim rng As Range, arr(1 To 9, 1 To 2)
   
3. 
   
4. For Each rng In Range("A1:A9")
   
5.     Randomize
   
6.     arr(rng.Row, 1) = rng.Value
   
7.     If rng.Value = "a" Or rng.Value = "c" Then
   
8.         arr(rng.Row, 2) = Int(31 * Rnd() + 140)
   
9.     Else
   
10.         arr(rng.Row, 2) = Int(51 * Rnd() + 200)
    
11.     End If
    
12. Next
    
13. Range("A1:B9") = arr
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

徐淑颖

宏我就不会了，函数还是可以的{:101:}

libingword

直接函数的话 不能保存   没办法 只能用vba函数  

sliang01

楼主是要这样的效果吗？点击按钮生成随机数并保存下来

suye1010

1. Sub 求取随机数()
   
2. Dim rng As Range, arr(1 To 9, 1 To 2)
   
3. 
   
4. For Each rng In Range("A1:A9")
   
5.     Randomize
   
6.     arr(rng.Row, 1) = rng.Value
   
7.     If rng.Value = "a" Or rng.Value = "c" Then
   
8.         arr(rng.Row, 2) = Int(31 * Rnd() + 140)
   
9.     Else
   
10.         arr(rng.Row, 2) = Int(51 * Rnd() + 200)
    
11.     End If
    
12. Next
    
13. Range("A1:B9") = arr
    
14. End Sub
    

复制代码

tianyuer

学习一下                        

ws278106483

学习当中,,不错的。

hongqiqqq

函数可以解决
如果非要用宏，就只路过了

libingword

正在验证中  。。。。。。。。。。。。。。。