VBS指定一个范围的数，随机抽取其中一个数输入到一个表格中

kkk000

指定一个范围的数，随机抽取其中一个数输入到一个表格中，然后循环这个步骤，因为有很多excel表格，下面这个代码是30-35之间的范围，不知道怎么搞的，批处理的时候所有填入的随机数都是一样的，我要怎么才能填入不一样的数

1. Dim x
   
2.     Randomize
   
3.     x= Int((35-30 * Rnd) + 30)
   
4. 
   
5. Dim objSFO
   
6.      Dim objFolder
   
7.      Dim objFiles
   
8.      Dim objFile
   
9.      address="A1"
   
10.     Value=x
    
11. 
    
12.     set fso=createobject("scripting.filesystemobject")
    
13.     set excel=createobject("excel.application")
    
14.     Set objFolder = fso.GetFolder("C:\Users\Administrator\Desktop\新建文件夹 (4)")
    
15.      Set objFiles = objFolder.Files     
    
16.     For Each objFile In objFiles
    
17.          If Right(objFile.Name, 4) = ".xls" Then
    
18.             excel.visible=false
    
19.            set w=excel.workbooks.open(objFile.path)
    
20.            excel.Sheets("sheet1").Range(address).Value=Value
    
21.             W.SAVE
    
22.             W.CLOSE
    
23.         End If
    
24.      Next
    
25.     MsgBox "完成。", vbInformation

复制代码

Batcher

你这是VBS还是BAT呢？

kkk000

回复 2# Batcher
这个是vbs

slore

再创建一个字典，把x存进去，Scripting.Dictionary
如果字典里面有了，就再随机取下x，直到不重复为止。

内容不多的话，用一个字符串保存也行。  used_x = ";35;32;"
用instr(1, used_x, ";" & x & ";")来查找，如果存在重新取，不存在就直接添加到used_x。

用一个数组也也行。

523066680

随机不重复，蜜汁语法糖 （Perl）

1. my @array = (1 .. 20);
   
2. my @new_array = map { splice( @array, int(rand($#array+1)), 1 ) } ( 0 .. $#array );

复制代码

翻了以前写的 VBS，还真有，2012年。改自某种排序算法：

1. dim array(20)
   
2. dim last, idx, rand_num, str
   
3. 
   
4. last = ubound(array) - 1
   
5. 
   
6. for idx = 0 to last
   
7.     array(idx) = idx + 1
   
8. next
   
9. 
   
10. randomize()
    
11. 
    
12. for idx = last to 0 step -1
    
13.   rand_num = int( idx * rnd )
    
14.   str = str & array( rand_num ) & " "
    
15.   array(rand_num) = array( idx )
    
16. next
    
17. 
    
18. msgbox str

复制代码

9 7 17 19 1 16 20 14 8 2 5 3 4 13 10 12 11 6 15 18

slore

回复 5# 523066680


    论糖还是ruby甜。

1. [*30..35].sample(6) #从30到35的数组中取样

复制代码

1. (1..10).each { p [*30..35].sample(6)}

复制代码

结果:

[34, 30, 32, 33, 31, 35]
[32, 33, 35, 31, 30, 34]
[35, 30, 33, 31, 32, 34]
[30, 32, 33, 35, 34, 31]
[34, 35, 30, 33, 32, 31]
[34, 32, 35, 33, 30, 31]
[33, 32, 30, 35, 34, 31]
[35, 31, 34, 32, 30, 33]
[34, 31, 30, 33, 35, 32]
[33, 31, 34, 35, 30, 32]

Batcher

回复 3# kkk000


    那我把帖子移动到VBS版块了

yu2n

在第 19 行插入以下代码：

1. Randomize
   
2. x= Int((35-30 * Rnd) + 30)
   
3. Value=x

复制代码