将VBA代码转换HTML的加载宏

八月的梦游者 · 发表于 2008-6-14 20:03

本帖最后由爱疯于 2012-7-11 10:28 编辑

这个加载宏可以将VBA代码转换成HTML代码，这样发帖时的代码也可以语法高亮。

（这个加载宏是别人的作品，原文链接http://www.mrexcel.com/vbaddin.shtml，原件的菜单以及提示是中文的，我只是将它改成中文以便大家使用。）

Sub testit()
    Dim strTmp As String

    '这是一个测试过程
    strTmp = InputBox("输入密码:", "输入框")
    If strTmp = "123" Then
        MsgBox "欢迎"
    Else
        MsgBox "密码错误"
    End If
End Sub

下载： RBYiFc6D.zip (33.28 KB, 下载次数: 44)

危机猎人 · 发表于 2008-6-14 20:07

学习

[em17]

hhzjxss · 发表于 2008-6-14 20:27

谢谢八月版主，下载看看，争取学习！

hhzjxss · 发表于 2008-6-14 20:35

转换以后，怎么使用呢？ [em04]

[此贴子已经被作者于2008-6-14 20:36:19编辑过]

八月的梦游者 · 发表于 2008-6-14 21:21

转换之后的HTML代码在剪贴板中，你可以先将它粘贴到记事本中。

这个HTML代码在快速回复中不能用，可以点“回复贴子”和“发表新话题”中的编辑中使用。在文本输入框下有四个选项，“Design”、“UBB模式”、“VIEW”和“HTML”，点击“HTML”，将剪贴板中的内容粘贴到文本框中即可。

不看不看 · 发表于 2008-6-14 21:22

完全不懂，好奇一下[em01]

不看不看 · 发表于 2008-6-14 21:26

百度一下发来，大家学习

HTML英语意思是：Hypertext Marked Language，即超文本标记语言,是一种用来制作超文本文档的简单标记语言。用HTML编写的超文本文档称为HTML文档，它能独立于各种操作系统平台（如UNIX，WINDOWS等）。自1990年以来HTML就一直被用作World Wide Web 的信息表示语言，用于描述Homepage的格式设计和它与WWW上其它Homepage 的连结信息。使用HTML语言描述的文件，需要通过WWW浏览器显示出效果。
插入HTML代码十四、在网页中插入HTML代码

（一）插入HTML代码的方法
1、在设计视图中插入HTML代码
（1）方法一：
①复制HTML代码。
②在DW设计视图中鼠标定位在想要插入代码处，按右键\点插入HTML。
③点“编辑菜单\粘贴HTML”。
（2）方法二：
①在DW设计视图中鼠标定位在想要插入代码处，按右键\点插入HTML。
②在弹出的“插入HTML<>”窗口中的括号<>中间输入代码。
③要编辑修改代码，这样做：右击标签\编辑标签。
2、在代码视图中插入HTML代码
在代码视图中的标记<head>和</head>之间或者在标记<body>和</body>之间输入代码即可。
【例1】在自己的网页中插入Google搜索引擎的方法
①登录网址：www.google.com
②点“google大全”按钮。
③点“google免费” 按钮。
④选择并复制其提供的全部代码。
⑤在DW设计窗口中鼠标定位在想要插入google搜索引擎处，按右键\点插入HTML。
⑥编辑菜单\粘贴HTML。
【例2】在自己的网页中插入百度搜索引擎的方法。
①登录网址：http://www.baidu.com
②点“网站登录”按钮。
③点“免费搜索代码” 按钮。
④选择并复制其提供的全部代码。
⑤在DW设计窗口中鼠标定位在想要插入百度搜索引擎处，按右键\点插入HTML。
⑥编辑菜单\粘贴HTML。

【一句话技巧】
1、将原代码中所有的空格、另起行等去掉，所有代码紧紧靠在一起，（不会影响代码的解释），则网页代码的大小可以缩小一半左右。
2、在添加表单时，为了排版方便，一般都把表单建在表格单元格中，原代码中即为“<td><form>……</form></td>”，如果把<form>和<td>的位置在原代码中交换一下，变为“<form><td>……</td></form>”，再去浏览网页，表单后多加的一个空行就没有了，并且更加美观。
（二）常用的代码
1、插入音乐视频的代码
在网页中插入播放声音（如mp3等）、AVI动画和电影文件（如MPG等）的代码：
在代码窗口中的<body>和</body>之间插入以下代码：
<Embed src="url"width="宽度"height="高度"AUTOSTART="TRUE│false" LOOP="TRUE"></Embed>
【注解】
<EMBED…………………起始标记
SRC="url"……………源文件名
width="450"…………播放器的宽度
height="380"…………播放器的高度
HIDDEN="TRUE"………隐藏方式（对播放声音文件有用，对播放视频无用）
AUTOSTART="TRUE"……自动播放
autostart="false"……不自动播放，点击播放按钮后才播放。
LOOP="TRUE"…………循环播放
NAME="MySound"………嵌入对象名
</EMBED>………………结束标记
【例3】打开网页并点击播放器的播放按钮后才播放视频文件kkk.mpg：
<Embed src="kkk.mpg"width="450"height="380" autostart="false" ></Embed>
【技巧】此法对制作课件特别有用，可在网页当前页播放视频动画。但是，打开网页时播放器总在网页的左侧，如何定位播放器的位置呢？其实插入此代码可以在设计视图中利用层来完成，实现方法是：在DW中的设计视图，插入层，鼠标定位于层内，在层内插入代码（按右键\点插入HTML，在弹出的“插入HTML<>”窗口中的括号<>中间输入代码。如果要编辑修改代码，这样做：右击标签\编辑标签。）。通过移动层就可以准确定位播放器的位置了。
【视频格式转换】用超级解霸或会声会影可将VCD中的某个视频文件(.DAT)转换为视频文件(.mpg)。
【例4】打开网页后自动播放（就象背景音乐）声音文件mlh.mp3：
<Embed src="mlh.mp3" HIDDEN="TRUE" AUTOSTART="TRUE"></Embed>
2、插入播放背景音乐（wav、midi、mp3）的代码
只要在代码窗口中的<head>和</head>标签之间以下代码即可：
<bgsound src="Music File Name" loop=n>
【注】①Music File Name是背景音乐文件名，其格式可以是：.mid，.mp3，.wav，.wma，.rmi。
②n表示循环次数，若n为－1则表示无限循环。
③网页文件和音乐文件要在同一文件夹中。
【例5】无限循环播放背景音乐mlh.mp3：
<bgsound src="mlh.mp3" loop="-1">
3、插入滚动文本的代码
在代码窗口中的<body>和</body>之间插入滚动文本的代码：
<marquee direction=left│rigth│up│down behavior＝scroll│slide│alternate loop=n
width=宽度 height=高度 scrollamount=滚动速度 scrolldelay=滚动延迟时间 bgcolor=背景颜色>
要滚动的文本或图像
</marquee>
【说明】
①direction属性：用于设置滚动的方向，取值可以是left、rigth、up或down，分别代表向左、向右、向上或向下滚动。
②behavior属性：用于设置滚动的方式，scroll表示循环滚动，slide表示只滚动一次，alternate表示来回滚动。
③loop属性：用于设置滚动的次数。若未指定，对于scroll和alternate滚动方式而言，将一直滚动下去。
④width，height属性：width用于设置滚动的行程（水平方向滚动）和宽度（垂直方向滚动），height用于设置滚动区域的高度。
⑤scrollamount属性：用于设置滚动的速度。
⑥scrolldelay属性：用于设置滚动一次后的延迟时间，单位为毫秒。
⑦bgcolor属性：用于设置滚动区域的背景颜色。

【例6】插入向上向上滚动的文本。
<marquee direction=up height=100 width="95%" scrollamount=1 scrolldelay=20 >
<p><font color="red"> 本站新闻</font></p>
本网站今日试开通，有些功能还不太完善。请大家批评指正，谢谢！！ </marquee>
注：以上分别是代码，只要在网页中插入这些代码即可。其中direction=up表示滚动方向（向上），
height=100表示滚动的单元格高度（100），width="95%"表示滚动新闻占单元格宽度的百分比，scrollamount=1表示每次滚动的象素数（1个象素），scrolldelay=20表示滚动间隔时间（每20毫秒滚动一次）。

【例7】插入向左的滚动文本。
<marquee direction=left behavior＝alternate width=90% height=20 scrollamount=1
scrolldelay=5 bgcolor=#eeffee>
欢迎光临本网站——祝你早日成为大虾!</marquee>

【例8】插入向左滚动的图像
<marquee direction=left behavior＝alternate width=90% height=20 scrollamount=2
scrolldelay=5 bgcolor=#eeffee><img src="gif_jpg/x1.gif"><img
src="gif_jpg/x2.gif"><img src="gif_jpg/x3.gif">
</marquee>
【例9】在网页中插入表格式（2行1列）并创建超链接的向上滚动文本，运行效果是：友情链接
清华大学出版社
新思维计算机学校
天极网

实现的HTML代码如下：
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="176" border="1" cellspacing="0" cellpadding="0" bgcolor="#339999"
bordercolor="#339999" align="center">
<tr><td height="17"><font color="#FFFFFF"><center>
友情链接</center></font></td></tr> ……表格第1行
<tr style="LINE-HEIGHT:18pt" bgcolor="#eeffee"> ……行间距，表格第2行开始
<td height="140">
<marquee scrollamount='1' scrolldelay='50' direction='up' width='176'
height='140' onMouseOver='this.stop()' onMouseOut='this.start()'>
<a href="http://www.tup.tsinghua.edu.cn" target='_blank'>清华大学出版社</a><br>
<a href="http://www.pcnetedu.com" target='_blank'>新思维计算机学校</a><br>
<a href="http://www.yesky.com" target='_blank'>天极网</a>
</marquee>
</td></tr> ……………………………………表格第2行结束
</table>
</body>
</html>
4、设置页面左边距，上边距的代码
设置页面的左边距和上边距，可使页面元素紧靠边线，避免“留空”影响美观。其代码是：
<body leftmargin=页面左边距的值 topmargin=页面上边距的值></body>
【例10】将页面左边距设为0，上边距设为0。只需在页面插入如下代码：
<body leftmargin=0 topmargin=0></body>
5、从其他网站的网页上获取代码，并将其插入到自己的网页。
1、获取代码：打开其他网页，点击“查看”菜单下的“源文件”或者右击网页中的对象再点击“查看源文件”。即可看到网页的源代码，在出现的记事本中查找到标记对<script>和</script>以及标记对之间的所需内容。并将他们一起复制到剪贴板。
2、将代码插入到自己的网页：编辑自己的网页，在代码视图中的</head>和</head>之间粘贴入代码。
【例11】将http://xky.nease.net/index.htm上的日历代码插入到自己网页中。
①登录网站http://xky.nease.net/index.htm，右击网页上的日历\查看源文件。
②在出现的记事本中查找到标记对<script>和</script>以及标记对之间所包含的日历内容。
③将标记对<script>和</script>以及标记对之间所包含的日历内容一起复制到剪贴板。
④编辑自己的网页，在代码视图中的</head>和</head>之间粘贴入代码。
6、消去超级链接下划线的代码
把以下的STYLE放在HEAD中间
<style>
a{text-decoration:none}
</style>

hhzjxss · 发表于 2008-6-14 22:18

Sub testit()
    Dim strTmp As String

    '这是一个测试过程
    strTmp = InputBox("输入密码:", "输入框")
    If strTmp = "123" Then
        MsgBox "欢迎"
    Else
        MsgBox "密码错误"
    End If
End Sub

hhzjxss · 发表于 2008-6-14 22:19

Sub testit()
    Dim strTmp As String

    '这是一个测试过程
    strTmp = InputBox("输入密码:", "输入框")
    If strTmp = "123" Then
        MsgBox "欢迎"
    Else
        MsgBox "密码错误"
    End If
End Sub

hhzjxss · 发表于 2008-6-14 22:21

怎么不行呢？请问错在哪里呢？

我的步骤是：

VBE-->复制八月版主的代码-->将VBA代码转换成HTML代码-->回复帖子-->HTML-->发表

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

[分享] 将VBA代码转换HTML的加载宏