Excel跑马灯

Kazefuku

于 2022-03-26 20:34:02 发布

阅读量1.5k

点赞数 1

文章标签： html5 经验分享

本文链接：https://blog.csdn.net/m0_59951054/article/details/123757968

版权

1.先新建一个窗体，一个模块。然后在模块里面输入以下代码，F5执行，

本功能是实现窗体（userfom1）的调用（图1）。

Sub use_userform1()

UserForm1.Show 0
End Sub

图1

2.在窗体里面插入一个web browser，如图2（默认是没有的，可以在窗体的工具箱里面右键进行自定义添加）。

然后在窗体里面框选出一块区域，如下图所示的黑色界面（图3）。

双击黑色区域，进入窗体代码编辑界面(图4)

图2 图3

图4

3.删除原代码，输入下列代码（图5），即可完成跑马灯效果。

其中使用了webbrowser功能，然后用了Html5语言。

颜色以及跑马灯速度均可调整。

Private Sub userform_initialize()
Dim str As String
n = Sheets("1").Range("a1000").End(xlUp).Row
arr = Sheets("1").Range("a1:a" & n)
str = ""
For i = 1 To UBound(arr)
str = str & "<p>" & arr(i, 1)
Next i
str = str & "<p>"
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.writeln _
"<html> <body bgcolor='#89D5FF" & _
"style='border:none;overflow:hidden;margin:0' " & _
"oncontextmenu='return  false'>" & _
"<p><marquee direction=up scrollamount='3'>" _
& str & "</marquee></p></body></html>"

End Sub

图5

4.完成效果预览。

Kazefuku

关注

1
点赞
踩
3

收藏

觉得还不错? 一键收藏
0
评论
Excel跑马灯

1.先新建一个窗体，一个模块。然后在模块里面输入以下代码，进行窗体的调用（图1）。Sub use_userform1()UserForm1.Show 0End Sub图12.在窗体里面插入一个web browser，如图2（默认是没有的，可以在窗体的工具箱里面右键进行自定义添加）。然后在窗体里面框选出一块区域，如下图所示的黑色界面（图3）。双击黑色区域，进入窗体代码编辑界面(图4)图2 ...
复制链接

扫一扫