Board logo

标题: [技术讨论] [分享]VBS写的Excel小特效 [打印本页]

作者: batman    时间: 2010-1-10 18:11     标题: [分享]VBS写的Excel小特效

无聊之作权当练习vbs:
  1. 'Excel小效果
  2. Set objExcel = CreateObject("Excel.Application")
  3. objExcel.Visible = True
  4. objExcel.Workbooks.Add
  5. objExcel.Cells(10, 4).Value = "WWW.Batome.Net"
  6. For i=1 To 56
  7. objExcel.Cells(9, 2).Value = objExcel.Cells(9, 2).Value&"〓"
  8. objExcel.Cells(9, 2).Font.Colorindex = 5
  9. objExcel.Cells(11, 2).Font.Colorindex = 5
  10. objExcel.Cells(10, 4).Font.Bold = True
  11. objExcel.Cells(10, 4).Font.Size = 60
  12. objExcel.Cells(10, 4).Font.ColorIndex = i
  13. objexcel.Cells(11, 2).Value = objExcel.Cells(11, 2).Value&"〓"
  14. Wscript.Sleep 50
  15. Next
  16. Wscript.Sleep 3000
  17. objExcel.ActiveWorkbook.Saved = True
  18. objExcel.Quit
  19. Set objExcel = Nothing
复制代码

作者: rat    时间: 2010-2-3 16:17

支持
作者: jcy0307    时间: 2010-3-6 21:52

楼主真乃全才?
为啥看不见我的评分呢?
25分哦
作者: hhzjxss    时间: 2010-11-29 21:53

学习一下看看!谢谢!
作者: 523066680    时间: 2011-6-3 21:31

excel色彩点阵渐显.vbs
  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
复制代码

作者: ww0000    时间: 2012-12-22 11:49

回复 1# batman


    这是干什么用的呀?
作者: czjt1234    时间: 2012-12-22 13:41

下次学习Excel.Application时来看
作者: lf052006    时间: 2013-1-2 13:51

这个不错啊!
作者: chineseman2    时间: 2013-1-13 13:35

这个不错啊!




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2