[原创]★让Excel动起来★——非VBA应用小集锦[8月7日更新]

opiona

收藏，原理还得学习

dlsky18

QUOTE:

以下是引用shewoyu在2006-6-22 16:44:19的发言：

套进代码，不用按F9，自动动画！！！

Sub Auto_Open()

Worksheets("Sheet1").Range("c1").Value = Time

Application.OnTime Time + TimeSerial(0, 0, 1), "Auto_Open"

End Sub

怎么把动画的速度调整快点？？

yrl2006

大开眼界了！Excel越学越有趣了

manspring

不错...............

金和苑

高手就是高手啊

chrisfang

下面再来一个我家MM的最爱：俄罗斯方块。

俄罗斯方块效果之一：移动纵向和横向滑动条可以观看效果，做的比较简陋，只是一些基础性的东西，没有VBA代码。

 

zhgXJ4W8.rar (14.49 KB, 下载次数: 140)

2006-6-26 08:56 上传

点击文件名下载附件
[原创]函数方法实现"文字滚动"&"进度条"等多效果[22日更新]

[此贴子已经被作者于2006-6-26 9:02:59编辑过]

chensha

引用“注意：观看时需按住F9不放。喜欢用代码的朋友也可以加一个死循环+Calculate的代码。”

楼主请问死循环+Calculate是怎么用的？

CounterSample.Calculate 方法 (CounterSample)

[Visual Basic]
Overloads Public Shared Function Calculate( _
   ByVal counterSample As CounterSample _
) As Single

chrisfang

QUOTE:

以下是引用chensha在2006-6-26 9:46:53的发言：

引用“注意：观看时需按住F9不放。喜欢用代码的朋友也可以加一个死循环+Calculate的代码。”

楼主请问死循环+Calculate是怎么用的？

CounterSample.Calculate 方法 (CounterSample)

[Visual Basic]
Overloads Public Shared Function Calculate( _
   ByVal counterSample As CounterSample _
) As Single

请见18楼第二个附件。

pfydy

你是学excel专业的吗？
为什么不加精呢

york888

太高了！佩服！