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

syy6542320 · 发表于 2006-6-22 09:06

看来函数的功能也挺强大的吗?

panjian318 · 发表于 2006-6-22 09:56

关注......

qxb-altsjy · 发表于 2006-6-22 12:17

shewoyu · 发表于 2006-6-22 13:37

增加宏的，不用按F9

bbelBSB7.rar (6.32 KB, 下载次数: 343)

chrisfang · 发表于 2006-6-22 16:26

下面两周要准备论文了，没那么多时间了，再发两个动画效果给大家吧：

“复制”的动画2：

PsrjZJA6.rar (15.11 KB, 下载次数: 257)

chrisfang · 发表于 2006-6-22 16:27

邮件发送动画：(这个其实和函数公式关系不大了)

YqIBl9Gg.rar (2.58 KB, 下载次数: 240)

shewoyu · 发表于 2006-6-22 16:44

QUOTE:

以下是引用chrisfang在2006-6-22 16:27:31的发言：

邮件发送动画：(这个其实和函数公式关系不大了)

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

Sub Auto_Open()

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

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

End Sub

chrisfang · 发表于 2006-6-22 16:48

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

请看1楼和18楼，前面已经说明了，特意不使用VBA代码的。18楼也做了个使用VBA代码的例子，其余一概不用代码。其实即不按F9也不用VBA代码也可以实现，但效果不一定好，懒得做了。

另外，你的代码效果并不是很好，显示速度偏慢。

chrisfang · 发表于 2006-6-22 16:57

shewoyu朋友，

下面这个就是鼠标点点(或用键盘方向键)滚动条看效果的例子：

kl4gL8bg.rar (16.89 KB, 下载次数: 295)

shewoyu · 发表于 2006-6-23 10:25

见识了！不过没自动，总归怪怪滴！！

[此贴子已经被作者于2006-6-23 10:26:53编辑过]

		自动登录	找回密码
密码			免费注册

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