批处理之家 » VBS求助&讨论 » [分享]VBS写的Excel小特效

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 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
复制代码

2 评分人数

rat: 好PB + 30
随风: 哈哈PB + 5

＊＊＊共同提高＊＊＊

Rank: 8 Rank: 8

帖子: 332
积分: 1983
技术: 14
捐助: 0
注册时间: 2008-9-10

2楼

发表于 2010-2-3 16:17 | 只看该作者

支持

Rank: 4

帖子: 103
积分: 462
技术: 0
捐助: 0
注册时间: 2009-11-20

3楼

发表于 2010-3-6 21:52 | 只看该作者

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

Rank: 1

帖子: 12
积分: 12
技术: 0
捐助: 0
注册时间: 2010-11-29

4楼

发表于 2010-11-29 21:53 | 只看该作者

学习一下看看！谢谢！

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

5楼

发表于 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
复制代码

FuniCode 编程论坛

Rank: 3 Rank: 3

帖子: 191
积分: 222
技术: 0
捐助: 0
注册时间: 2012-12-15

6楼

发表于 2012-12-22 11:49 | 只看该作者

回复 1# batman

这是干什么用的呀？

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

7楼

发表于 2012-12-22 13:41 | 只看该作者

下次学习Excel.Application时来看

QQ 20147578

Rank: 1

帖子: 3
积分: 14
技术: 0
捐助: 0
注册时间: 2012-11-28

8楼

发表于 2013-1-2 13:51 | 只看该作者

这个不错啊！

Rank: 1

帖子: 4
积分: 16
技术: 0
捐助: 0
注册时间: 2013-1-13

9楼

发表于 2013-1-13 13:35 | 只看该作者

这个不错啊！