批处理之家 - Powered by Discuz! Board

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

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

无聊之作权当练习vbs：

'Excel小效果
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Cells(10, 4).Value = "WWW.Batome.Net"
For i=1 To 56
objExcel.Cells(9, 2).Value = objExcel.Cells(9, 2).Value&"〓"
objExcel.Cells(9, 2).Font.Colorindex = 5
objExcel.Cells(11, 2).Font.Colorindex = 5
objExcel.Cells(10, 4).Font.Bold = True
objExcel.Cells(10, 4).Font.Size = 60
objExcel.Cells(10, 4).Font.ColorIndex = i
objexcel.Cells(11, 2).Value = objExcel.Cells(11, 2).Value&"〓"
Wscript.Sleep 50
Next
Wscript.Sleep 3000
objExcel.ActiveWorkbook.Saved = True
objExcel.Quit
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

set xls=createobject("excel.application")
xls.visible = true
call xls.workbooks.add

Set objRange = xls.Range("A1","bz30")
objrange.columns = " "    '范围内字符全为空
objrange.columnwidth = 1  '设置单元格横向长度
objrange.rowheight = 16   '设置行高度

objRange.Interior.ColorIndex = 1  '范围内的背景颜色

dim yx(399)
maxyx=400-1
for i=0 to maxyx
  yx(i)=i
next

randomize

for i= maxyx to 0 step -1
  randx=int(i*rnd)
  color=(i)mod(40)+3
  xynow=yx(randx)
  y=xynow\20+1
  x=(xynow)mod(20) + 1
  xls.cells(x,y).interior.colorindex = color
  yx(randx)=yx(i)
  if color > 20 then wscript.sleep 10
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://www.bathome.net/)