[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

VBS操控excel画点阵

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

评分人数

随机打点不重复

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

TOP

支持你~ ~
加油哦
VBS 我实在不想学 DOM 很难哎...........
o(∩_∩)o...~~~
空间:http://hi.baidu.com/fair_jm
喜欢批处理的没事的话去逛逛哦~~

TOP

不错.
还没能完全理解,会点VBA,但好像跟VBS有点差异.
进步怎么这么慢呢?

TOP

很好的帖,小弟我学习了!

TOP

返回列表