[技术讨论] [分享]VBS写的Excel小特效

batman

无聊之作权当练习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

支持

jcy0307

楼主真乃全才？
为啥看不见我的评分呢？
25分哦

hhzjxss

学习一下看看！谢谢！

523066680

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

回复 1# batman


    这是干什么用的呀？

czjt1234

下次学习Excel.Application时来看

lf052006

这个不错啊！

chineseman2

这个不错啊！