VBS操控excel画点阵

523066680

代码很不规范的，刚学不久，试发……

1. 
   
2. Set objexcel = CreateObject("Excel.Application")
   
3. objexcel.Visible = True
   
4. objexcel.Workbooks.Add
   
5. Set objRange = objexcel.Range("A1","bz30")
   
6. objRange.Font.Size = 12
   
7. objrange.columns = " "    '范围内字符全为空
   
8. objrange.columnwidth = 1  '设置单元格横向长度
   
9. objrange.rowheight = 13   '设置行高度
   
10. objRange.Interior.ColorIndex = 1  '范围内的背景颜色
    
11. set xls=objexcel
    
12. dim str(1)
    
13. str(0)="33,3 33,4 33,5 33,6 33,7 33,8 33,9 33,10 33,11 33,12 33,13 " &_
    
14.   "33,14 33,15 33,16 33,17 33,18 32,17 31,16 28,6 29,6 30,6 31,6 " &_
    
15.   "32,7 32,8 31,9 30,10 29,11 28,12 26,13 24,14 " &_
    
16.   "32,6 37,5 36,6 35,7 34,7 35,7 35,8 36,9 37,10 38,11 39,12 40,13 " &_
    
17.   "41,14 43,15"
    
18. str(1)="37,17 37,18 37,19 37,20 37,21 37,22 37,23 37,24 37,25 " &_
    
19.    "36,26 35,27 38,17 39,17 40,17 41,17 42,17 " &_
    
20.    "42,18 42,19 42,20 42,21 42,22 42,23 42,24 42,25 42,26 42,27 41,27 " &_
    
21.    "38,20 39,20 40,20 41,20 "&_
    
22.    "38,23 39,23 40,23 41,23"
    
23. color=41
    
24. for each strnow in str
    
25. strx=split(strnow," ")
    
26. for each xy in strx
    
27.    tempxy=split(xy,",")
    
28.    x=int(tempxy(0))
    
29.    y=int(tempxy(1))
    
30.    xls.Cells(y,x).Interior.ColorIndex = color
    
31.    wscript.sleep 100
    
32. next
    
33. color=37
    
34. wscript.sleep 1000
    
35. next
    
36. wscript.quit
    

复制代码

523066680

1. set xls=createobject("excel.application")
   
2. xls.visible = true
   
3. call xls.workbooks.add
   
4. 
   
5. Set objRange = xls.Range("A1","bz30")
   
6. objrange.columns = " "    '范围内字符全为空
   
7. objrange.columnwidth = 1  '设置单元格横向长度
   
8. objrange.rowheight = 16   '设置行高度
   
9. 
   
10. objRange.Interior.ColorIndex = 1  '范围内的背景颜色
    
11. 
    
12. dim yx(399)
    
13. maxyx=400-1
    
14. for i=0 to maxyx
    
15.   yx(i)=i
    
16. next
    
17. 
    
18. randomize
    
19. 
    
20. for i= maxyx to 0 step -1
    
21.   randx=int(i*rnd)
    
22.   color=(i)mod(40)+3
    
23.   xynow=yx(randx)
    
24.   y=xynow\20+1
    
25.   x=(xynow)mod(20) + 1
    
26.   xls.cells(x,y).interior.colorindex = color
    
27.   yx(randx)=yx(i)
    
28.   if color > 20 then wscript.sleep 10
    
29. next

复制代码

基拉freedom

支持你~ ~
加油哦
VBS 我实在不想学 DOM 很难哎...........

gxuan2008

不错.
还没能完全理解,会点VBA,但好像跟VBS有点差异.

home

很好的帖，小弟我学习了！