Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2184|回复: 29

[已解决]走马灯的几个问题希望大神帮我解决一下

[复制链接]
发表于 2021-12-8 14:08 | 显示全部楼层 |阅读模式
本帖最后由 天门白云 于 2021-12-8 14:25 编辑

这个是我在网上找到的一个案例,我现在遇到了几个问题,我现在描述一下我要解决的问题:1.下面的固定不动的地方的字幕去掉,2.滚动字幕的上下的间距怎么可以自由地调整,3.当有鼠标停留的时候暂停滚动字幕。
最佳答案
2021-12-8 19:29
先来第三个问题的解答:
  1. Private Sub UserForm_Activate()
  2.     Dim str As String
  3.     str = "帮助说明:<p>1、本工具只适用于win7以上的系统<p>2、使用本工具前请确保已经安装OFFICE软件<p>3、请使用管理员身份运行本工具<p>4、请及时更新版本<p>5、如有建议请加本人微信反馈<p>"
  4.     WebBrowser1.Navigate "about:blank"
  5.     WebBrowser1.Document.writeln "<html><body   bgcolor='#CCFF66'  style='border:none;overflow:hidden;margin:0'     oncontextmenu='return  false'><p><marquee direction=up  scrollamount='3' onMouseOver=this.stop(); onMouseOut=this.start();>" & str & "</marquee></p></body></html>"
  6. End Sub
复制代码

走马灯效果.rar

19.34 KB, 下载次数: 17

 楼主| 发表于 2021-12-8 14:10 | 显示全部楼层
如果有人可以做解决里面的问题的话,可以一个一个地解决,不需要同时间解决里面的三个问题,但是第一个和第二个是我比较关心的问题。
回复

使用道具 举报

发表于 2021-12-8 15:56 | 显示全部楼层
这个好像比较困难,vba不支持窗体定时器,你这个例子是使用的浏览器方法,需要很熟悉浏览的控制代码;
也曾看到过别人讨论窗体定时器的问题,基本都是用API函数做的,这个层次就比较深入了,一般人搞不定;
回复

使用道具 举报

 楼主| 发表于 2021-12-8 17:37 | 显示全部楼层
hfwufanhf2006 发表于 2021-12-8 15:56
这个好像比较困难,vba不支持窗体定时器,你这个例子是使用的浏览器方法,需要很熟悉浏览的控制代码;
也 ...

我看过了几个案例用的这个代码,但是都会有这样那样的问题,不能达到我的要求
回复

使用道具 举报

发表于 2021-12-8 19:29 | 显示全部楼层    本楼为最佳答案   
先来第三个问题的解答:
  1. Private Sub UserForm_Activate()
  2.     Dim str As String
  3.     str = "帮助说明:<p>1、本工具只适用于win7以上的系统<p>2、使用本工具前请确保已经安装OFFICE软件<p>3、请使用管理员身份运行本工具<p>4、请及时更新版本<p>5、如有建议请加本人微信反馈<p>"
  4.     WebBrowser1.Navigate "about:blank"
  5.     WebBrowser1.Document.writeln "<html><body   bgcolor='#CCFF66'  style='border:none;overflow:hidden;margin:0'     oncontextmenu='return  false'><p><marquee direction=up  scrollamount='3' onMouseOver=this.stop(); onMouseOut=this.start();>" & str & "</marquee></p></body></html>"
  6. End Sub
复制代码
回复

使用道具 举报

发表于 2021-12-8 19:50 | 显示全部楼层
第一个问题我没看明白什么意思,没看到有什么固定的字幕。
第二个问题,将str字符串中的<p>换成<br>,可以去除空行,但自由调整行距实现不了。
注:第二个问题我可能理解错误,请详细说明
回复

使用道具 举报

发表于 2021-12-8 19:56 | 显示全部楼层
天门白云 发表于 2021-12-8 17:37
我看过了几个案例用的这个代码,但是都会有这样那样的问题,不能达到我的要求

1、你的要求需要精细的定时器控件支持,excel只是接入了一个最为基本的窗体功能,还有好多功能都被他舍弃了,比如窗口右上角的三个常用控制按钮等,因为excel主要专注的是轻量化的办公数据的集中便携处理,它仍然希望大家使用excel自身的界面,窗体只是一个辅助而已;
2、窗体及控件对于excel其实是外来件,并非excel的一部分,只是office把它们集成在一起并于大家选择安装,但本质上仍属于外部的东西。对于常用的控件,excel还有一组内置的表单控件,它才是excel的一部分,这几个内置的控件不会出现版本不兼容的问题,但外部控件就很难说了,目前面板上默认的一组ActiveX控件也是自动维护的,但之外的其他控件就不好说了,随着版本升级,老版本很可能就不能用了;
3、你的要求对于早期传统的窗体界面来说轻而易举,早期的编程语言都是支持定时器的,不管是 vb、delphi还是c++以及jc都很好实现。但现在广泛流行简约界面,就是浏览器界面,好处是没有窗口边界,视野大幅度扩展,比如查询可以一查到底,但传统的窗体就很困难了,所以窗体本质上是被抛弃的东西,这也是微软懒得继续扩展它的原因,用处太少了。浏览器的发展也经历了很大的变化,早期的浏览器界面也是类似窗体界面的,比如最早期的电脑报电子版就是一个3-4页的仿书本结构,那个时代国内用 javescript编写动态网页的也非常火,那效果真的是比十一天安门放烟火还要夸张,但都是昙花一现,因为大家认识到网页的目的不是动态效果而是内容,网络卡不说网页也难以维护,所以简约网页得以广泛流行,现在是越简洁越好,通常连个多余的配色也不会有;
4、你这种需求很小众,我的建议是用图片弄一个比较好看的封面插入到excel的顶部做成模板,我看到很多专业机构都是这样做的,封面好看并非一定要动态,动态看久了特别累,其实你很难看到大网站会有很多动态的东西,能看到动态的基本都是广告。如果你只是想学习技术,vba不适合做这个,我觉得起码要用vb吧。

回复

使用道具 举报

 楼主| 发表于 2021-12-8 21:24 | 显示全部楼层
本帖最后由 天门白云 于 2021-12-8 21:31 编辑
大灰狼1976 发表于 2021-12-8 19:50
第一个问题我没看明白什么意思,没看到有什么固定的字幕。
第二个问题,将str字符串中的换成,可以去除空 ...


看到了吗,下面的也有一个固定的帮助说明的那个,就是我说的固定的字幕不要,这个怎么实现
b5b67698710ec891891855be12dbdb7.png
回复

使用道具 举报

 楼主| 发表于 2021-12-8 21:32 | 显示全部楼层
天门白云 发表于 2021-12-8 21:24
看到了吗,下面的也有一个固定的帮助说明的那个,就是我说的固定的字幕不要,这个怎么实现

下面的固定的那个帮助说明不要
回复

使用道具 举报

 楼主| 发表于 2021-12-8 21:36 | 显示全部楼层
hfwufanhf2006 发表于 2021-12-8 19:56
1、你的要求需要精细的定时器控件支持,excel只是接入了一个最为基本的窗体功能,还有好多功能都被他舍弃 ...

谢谢你中肯的回复,我现在不想学那么多的语言,于精力不够,再者说了,会的东西经常不用也会遗忘,所以现在就想用vba做一些能够满足我自己需要的东西就行了

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 18:39 , Processed in 0.477882 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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