神奇的VBA系列-023:動態滾動顯示單元格區域內容

一段簡單的VBA代碼,讓你自如操作Excel,成為職場達人!

拋磚引玉的場景需求: A1單元格區域中滾動顯示“我愛《神奇的VBA》”!下面代碼示例中提供了三種場景及代碼示例。

場景1: 文本重復滾動顯示

在標準模塊中加入如下代碼即可實現上面的演示功能。

Dim Flag As Boolean

Sub 開始滾動()

Dim str As String

Flag = True

str = "我愛《神奇的VBA》"

n = Len(str)

xxx:

If Flag = True Then

For i = 1 To n

txt = Mid(str, 1, i)

For x = 1 To 100

[A1] = txt

DoEvents

Next

Next

GoTo xxx

End If

End Sub

Sub 停止滾動()

Flag = False

End Sub

場景2:文本水平收尾相連循環滾定顯示

在標準模塊中加入如下代碼即可實現上面的演示功能。

Dim Flag As Boolean

Sub 開始滾動()

Dim str As String

Flag = True

str = "我愛《神奇的VBA》"

xxx:

If Flag = True Then

[A1] = str

For x = 1 To 5000

DoEvents

Next

str = Mid(str, 2) & Left(str, 1)

GoTo xxx

End If

End Sub

Sub 停止滾動()

Flag = False

End Sub

場景3:文本單字動態循環顯示

在標準模塊中加入如下代碼即可實現上面的演示功能。

Dim Flag As Boolean

Sub 開始滾動()

Dim str As String

Flag = True

str = "我愛《神奇的VBA》"

Do

For n = 1 To Len(str)

[A1] = Mid(str, n, 1)

For x = 1 To 1000

DoEvents

Next

Next

Loop Until Flag = False

End Sub

Sub 停止滾動()

Flag = False

End Sub

動手試一試,屏幕前的你, 復制代碼運行下吧~~!

更多Excel VBA編程知識(職場牛人必備秘技),可下載安裝使用由鮑枉弗開發的一款優秀職場人必備的工具《神奇的VBA》插件,一款嵌入進Excel Ribbon界面,打開任意Excel工作簿就能隨時查閱學習VBA編程的Excel 插件。

插件下載地址戳鏈接:《神奇的VBA》-職場牛人都在使用的Excel插件

《神奇的VBA》選項卡樣式

免責聲明:本文僅代表文章作者的個人觀點,與本站無關。其原創性、真實性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容文字的真實性、完整性和原創性本站不作任何保證或承諾,請讀者僅作參考,并自行核實相關內容。

http://www.uswqb.club/style/images/nopic.gif
分享
評論
首頁
高速公路之王电子游艺
竞彩足球比分能穿几场 九游大厅牛牛透视挂 快乐飞艇是哪里的彩票 188比分直播足球比分直播百度 彩金捕鱼季最新手机版 看看今天打麻将的手 29选七1000期走势图 3排列开奖结果 欧洲足球指数即时比分 平特二肖100块赔多少钱 天天红包赛是真的吗 足彩大赢家比分直播 福建11选5开奖时 重庆幸运农场快乐十分开奖结果 好友固始麻将安卓下载 浙江快乐彩论坛