标题: [技术讨论] [分享]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://bathome.net./) |
Powered by Discuz! 7.2 |