设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › [分享]VBS写的Excel小特效
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 26563|回复: 8

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

[复制链接]
batman
发表于 2010-1-10 18:11:01 | 显示全部楼层 |阅读模式
无聊之作权当练习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
复制代码

评分

参与人数 2PB +35 收起 理由
rat + 30 好
随风 + 5 哈哈

查看全部评分

回复

举报

rat
发表于 2010-2-3 16:17:47 | 显示全部楼层
支持
回复

举报

jcy0307
发表于 2010-3-6 21:52:48 | 显示全部楼层
楼主真乃全才？
为啥看不见我的评分呢？
25分哦
回复

举报

hhzjxss
发表于 2010-11-29 21:53:31 | 显示全部楼层
学习一下看看！谢谢！
回复

举报

523066680
发表于 2011-6-3 21:31:39 | 显示全部楼层
excel色彩点阵渐显.vbs

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

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

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

  13. dim yx(399)
  14. maxyx=400-1
  15. for i=0 to maxyx
  16.   yx(i)=i
  17. next

  19. randomize

  21. for i= maxyx to 0 step -1
  22.   randx=int(i*rnd)
  23.   color=(i)mod(40)+3
  24.   xynow=yx(randx)
  25.   y=xynow\20+1
  26.   x=(xynow)mod(20) + 1
  27.   xls.cells(x,y).interior.colorindex = color
  28.   yx(randx)=yx(i)
  29.   if color > 20 then wscript.sleep 10
  30. next
复制代码
回复

举报

ww0000
发表于 2012-12-22 11:49:00 | 显示全部楼层
回复 1# batman


    这是干什么用的呀？
回复

举报

czjt1234
发表于 2012-12-22 13:41:07 | 显示全部楼层
下次学习Excel.Application时来看
回复

举报

lf052006
发表于 2013-1-2 13:51:26 | 显示全部楼层
这个不错啊！
回复

举报

chineseman2
发表于 2013-1-13 13:35:48 | 显示全部楼层
这个不错啊！
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 11:43 , Processed in 0.013599 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表