[技术讨论] [分享]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
复制代码