单元格内容文字滚动特效示例

gvntw · 发表于 2006-4-6 14:00

以下是引用[I]zz5151353[/I]在2006-4-6 13:44:11的发言：[BR]請論壇朋友幫忙,貼出版主的代碼 ? , 在 vba 裡是亂碼, 貼出來就不是亂碼 ,先謝了 !!!

Dim BBB As Byte Sub 按钮1_单击() BBB = 1 Range("C6") = "我爱中文Excel俱乐部！ " Do For j = 1 To 800 DoEvents Next j Range("C6") = Right(Range("C6"), 1) & Left(Range("C6"), Len(Range("C6")) - 1) Loop Until BBB = 0 End Sub Sub 按钮2_单击() BBB = 0 End Sub

gvntw · 发表于 2006-4-6 14:03

以下是引用[I]yinxidu[/I]在2006-4-4 16:55:22的发言：[BR]好晃眼,看了头晕[em06][em06]

把for j =1 to 800 中的800改大点，如2000，就不会那么晃眼了。

zz5151353 · 发表于 2006-4-6 14:26

還是版主好且又熱心幫助人,多謝 gvntw 版主 !!! [em23][em23][em23]

york888 · 发表于 2006-4-6 14:35

支持,好象有BUG!

guangyp · 发表于 2006-4-6 16:40

GSouLDOP.rar (9.6 KB, 下载次数: 278) 1、防止了连按三次出错的问题 2、不占那么多的系统资源 3、加入文字闪烁呵呵，兰版你的加空格思路真的很不错喔!

[此贴子已经被作者于2006-4-6 16:41:13编辑过]

一拼老输 · 发表于 2006-4-6 19:04

好极了!但有一点没有解决切换工作表的问题：可不可以在切换工作表的时候自动让刚才还在闪烁的文字停止闪烁就行了!

rich-hhx · 发表于 2006-4-6 19:56

怎么兰SIR总会有点新的惊喜给我们呢？

[em17]

Kelidai · 发表于 2006-4-6 20:31

学习一下程序.

来生缘 · 发表于 2006-4-6 21:04

收藏,构思奇妙

zz5151353 · 发表于 2006-4-6 21:26

原以為這種跑馬燈網頁設計輕易做到,沒想到 excel 也可以做到,佩服 !!! [em17]

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

[分享] 单元格内容文字滚动特效示例

在兰版的基础上作的

最新热点 /1