另类按钮(VBA交互脚本)!!!!

HHAAMM · 发表于 2010-3-4 21:43

附件的功能是javascript语言实现的
再来个例子
sheet1的文本框里输入后点击验证，这也是javascript代码实现的

HHAAMM · 发表于 2010-3-4 21:47

html，javascript代码解释

<script language="javascript"> 指定脚本语言是javascript
function abcd() 定义一个函数
{
alert("你输入的是： "+document.F1.T1.value);
document.F1.T1.value="";
}
</script>

<form name="F1" >
<input type="text" name="T1" size="20">
<input type="button" value="验证" onClick="abcd()"> 按钮调用函数
</form>

huicheng · 发表于 2010-3-4 22:11

下面的代码能否详细解释一下：

<html><head><title></title>
<style>
/* VBA交互脚本，HYY514 2010.1.28 */
.xmenu td{font-size:12px;font-family:verdana,arial;font-weight:bolder;color:#ffffff;border:1px solid #336699;background:#336699;filter:blendtrans(duration=0.5);cursor:hand;text-align:center}
</style>
</head>
<BODY scroll="no" oncontextmenu=self.event.returnValue=false>
<script type="text/javascript">
function attachXMenu(objid){
var tds=objid.getElementsByTagName('td');
alert("你好，这是个vba交互脚本的例子");
for(var i=0;i<tds.length;i++){
      with(tds){
         onmouseover=function(){
            with(this){
                  filters[0].apply();
                  style.background='#ee0000';
                  style.border='1px solid #ffee00';
                  style.color='#ffff99';
                  filters[0].play();
            }
         }
         onmouseout=function(){
            with(this){
                  filters[0].apply();
                  style.background='#2B4DD5';
                  style.border='1px solid #66CCFF';
                  style.color='#ffffff';
                  filters[0].play();
            }
         }
      }
}
}
</script>
<table class="xmenu" id="xmenu1" width="31%" height="100%" cellpadding="1" cellspacing="4" border="0" bgcolor="#ffffff"  >
<tr><td onclick="location.href='http://CommandButton1'" title="单击运行CommandButton1按钮">CommandButton1
<tr><td onclick="location.href='http://CommandButton2'" title="单击运行CommandButton2按钮">CommandButton2
<tr><td onclick="location.href='http://CommandButton3'" title="单击运行CommandButton3按钮">CommandButton3
<tr><td onclick="location.href='http://CommandButton4'" title="单击运行CommandButton4按钮">CommandButton4
<tr><td onclick="location.href='http://CommandButton5'" title="单击运行CommandButton5按钮">CommandButton5
<tr><td onclick="location.href='http://CommandButton6'" title="单击运行CommandButton6按钮">CommandButton6
<tr><td onclick="location.href='http://CommandButton7'" title="单击运行CommandButton7按钮">CommandButton7
<tr><td onclick="location.href='http://CommandButton8'" title="单击运行CommandButton8按钮">CommandButton8
<tr><td onclick="location.href='http://CommandButton9'" title="单击运行CommandButton9按钮">CommandButton9
</table>
<script>attachXMenu(xmenu1)</SCRIPT>
</BODY>
</html>

HHAAMM · 发表于 2010-3-4 22:14

再传个可以看明白的，html、javascript代码放在sheet2的a1里了（这个不要删除）

HHAAMM · 发表于 2010-3-4 22:19

13楼，这是html代码+javascript代码，要详细解释

html 标记语言不难的自己搜搜看吧
javascript 是脚本语言

tonyibm · 发表于 2010-3-5 00:22

太强大了，学过javascript,但是就是没有想到和VBA结合,要是拿这个来在VBA中设置界面,是不是会很fashion?

easy863 · 发表于 2010-3-5 08:07

高手处处可见，膜拜一个……

wangaixiangzhao · 发表于 2010-3-6 08:36

太完美了，呵呵，如此强大，支持一个，感谢楼主

ldy · 发表于 2010-3-6 09:52

很漂亮，记得论坛里的罗刚君版主是这方面的高手，他没当版主之前，show 过很多这方面的作品。

winland · 发表于 2010-3-6 10:52

老虎现在研究网页了。要是能将工作表中的浏览器控件又反馈到工作表里那就比较炫了。

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

[分享] 另类按钮(VBA交互脚本)!!!!