ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 挑战你的Excel知识,一起测验下 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: 兰色幻想

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-11-9 11:03 | 显示全部楼层
以前我问过关于此问题,今看到了。多谢了!!!

TA的精华主题

TA的得分主题

发表于 2014-3-3 16:41 | 显示全部楼层
公式版,呵呵,长按F9
=LOOKUP(--RIGHT(INT(100000*(NOW()-TODAY())),1),{0,"              欢";1,"            欢迎";2,"          欢迎光";3,"        欢迎光临";4,"      欢迎光临";5,"    欢迎光临";6,"  欢迎光临";7,"迎光临";8,"光临";9,"临"})

TA的精华主题

TA的得分主题

发表于 2014-9-7 16:28 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-9-7 16:36 | 显示全部楼层
提示语句错误!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Now() + TimeValue("00:00:01"), "scroll", , False
End Sub

Private Sub Workbook_Open()
scroll
End Sub

TA的精华主题

TA的得分主题

发表于 2014-9-7 21:39 | 显示全部楼层
学习了,贴一下楼主的代码:
  1. Dim BBB As Byte
  2. Sub 按钮1_单击()
  3. BBB = 1
  4. Range("C6") = "我爱中文Excel俱乐部!                        "
  5. Do
  6.       For j = 1 To 800
  7.           DoEvents
  8.       Next j
  9.       Range("C6") = Right(Range("C6"), 1) & Left(Range("C6"), Len(Range("C6")) - 1)
  10.     Loop Until BBB = 0
  11. End Sub
  12. Sub 按钮2_单击()
  13. BBB = 0
  14. End Sub
复制代码
真是没想到,如此简洁、巧妙的代码!
核心语句:
Range("C6") = Right(Range("C6"), 1) & Left(Range("C6"), Len(Range("C6")) - 1)

TA的精华主题

TA的得分主题

发表于 2014-9-7 21:45 | 显示全部楼层
那要是想上下滚动,该怎么办呢?呵呵,算是胡说八道吧……

TA的精华主题

TA的得分主题

发表于 2014-9-7 22:03 | 显示全部楼层
改了一个内存数组版的:
  1. Sub 按钮1_单击()
  2. BBB = 1
  3. Dim i%, j%, s$, n%, m&, sarr()
  4. s = "我爱中文Excel俱乐部!                        "
  5. Range("C6").Value = s
  6. n = Len(s)
  7. ReDim sarr(1 To n)
  8. m = -1
  9. For i = 1 To n
  10.     sarr(i) = Right(s, i) & Left(s, n - i)
  11. Next i
  12. Do
  13.       For j = 1 To 8000
  14.           DoEvents
  15.       Next j
  16.       m = m + 1
  17.       i = m Mod n + 1
  18.       Range("C6") = sarr(i)
  19.     Loop Until BBB = 0
  20. End Sub
复制代码
从效果上来看,没多大改变……
如此举动完全是被楼主的巧妙思路所吸引!

TA的精华主题

TA的得分主题

发表于 2014-9-7 22:04 | 显示全部楼层
不过,程序执行中可以点击按钮,还是让我开了眼界,在测试时,我就进入了死循环,改过的代码第一次连保存都没有来得及,只好写了第二次……唉

TA的精华主题

TA的得分主题

发表于 2016-1-16 12:23 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-9-19 20:30 , Processed in 0.050963 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

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