精华内容
下载资源
问答
  • 下拉列表里添加新的选项collegeObj.options[0]=new Option(请选择专业,0);if (clg!=null){ for (var i = 1;i collegeObj.options[i]=new Option(clg[i-1][name],clg[i-1][id]);  }}删除下拉列表的所有选项...
    在下拉列表里添加新的选项
    collegeObj.options[0]=new Option('请选择专业','0');
    if (clg!=null){
    for (var i = 1;i<=clg.length;i++){
    collegeObj.options[i]=new Option(clg[i-1]['name'],clg[i-1]['id']);
      }
    }
    删除下拉列表的所有选项
    function clearSelect(list){
      if (typeof(s) == "string"){
      list = document.getElementById(list);
      }
    if (list==null) return;
    while (list.options.length > 0)
      {
    list.options[0] = null;
      }
    }


     
    展开全文
  • 我们今天聊的内容是单元格的数据有效性(2010版本后更名为数据验证),在EH论坛上,星光经常碰到网友提问下面酱紫的问题:如何创建去除重复项后的下拉列表?举个小栗子。如下图所示,D列是一些人名,含有重复项。现在...

    我们今天聊的内容是单元格的数据有效性(2010版本后更名为数据验证),在EH论坛上,星光经常碰到网友提问下面酱紫的问题:

    如何创建去除重复项后的下拉列表?

    举个小栗子。

    如下图所示,D列是一些人名,含有重复项。

    现在需要根据D列的人名,在表格的A列创建去除重复人名后的数据验证下拉列表。

    ca30c6903fe73e579c47282d37a6c97e.png

    动画效果:

    f2ec848d4bf3271b2c817ad9a48dde1b.gif

    代码如下:


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        If Intersect([a:a], Target) Is Nothing Then Exit Sub

        '如果选择的单元格不存在于A列,则退出。A列是设置数据验证的区域

        If Target.Rows.Count > 1 Then Exit Sub '不允许选择多行

        Dim arr, brr, i&, j&, k&, s

        Dim d As Object

        Set d = CreateObject("scripting.dictionary") '后期字典

        arr = Range("d1:d" & Cells(Rows.Count, "d").End(xlUp).Row)'数据来源列

        If Not IsArray(arr) Then Exit Sub

        '如果不存在数据源选项,则arr非数组,那么退出程序

        For i = 2 To UBound(arr)

        'D1是标题,从第2行开始遍历数据源,将人名装入字典

            If arr(i, 1) <> "" Then d(arr(i, 1)) = ""

        Next

        s = Join(d.keys, ",")

        With Target.Validation

            .Delete'删掉旧的

            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

            Operator:=xlBetween, Formula1:=s 'S为数据验证的序列来源

        End With

        Application.SendKeys "%{down}"

        'SendKeys发出快捷键atl+↓直接弹出数据验证下拉列表

        Set d = Nothing '释放字典

    End Sub


    小贴士:

    1,代码需要粘贴在相关工作表标签所对应的VBE窗口中。

    2,代码使用了Worksheet_SelectionChange事件,当鼠标点击A列单元格时,系统自动运行该段代码。可以通过修改Intersect([a:a], Target)中的[a:a],设置为其它目标区域。

    3,代码使用了 Application.SendKeys "%{down}"语句,其意思是键盘输入快捷键alt+↓,该快捷键可能会和电脑的其它热键冲突,该语句并不是必须的,因此部分亲们可以注释掉它。

    图文作者:看见星光

    58d2a70e56c9bacaee7b8b5672a1b1b6.png

    VBA编程学习与实践

    点击图标进入ExcelHome云课堂,发现更多精彩课程

    3b84f16a62397fc3aeb2f9e70b8652a8.png

    专业的职场技能充电站

    展开全文
  • 原来select内容是aa,bb,点按钮后内容变成saj,abc document.createDocumentFragment 添加节点的时候使用 对于少量的更新,可以不使用 然而,当要添加大量数据时,如果逐个添加这些节点,这个过程有可能会十分缓慢。为...
    <html>

    <script>
    function test() {
    var childRet = document.getElementById('sel');
    for (var i = childRet.childNodes.length-1; i >= 0; i--) {
    childRet.removeChild(childRet.childNodes.item(i));
    }


    var tmpRet = {
    "DATA": {"name": "saj", "pass": "abc", "X": "X"}
    };
    var ret = document.createDocumentFragment();
    var tmpObj = tmpRet["DATA"];
    for (var key in tmpObj)
    {
    if(key != "X") {
    var newop = document.createElement("option");
    newop.id = key;
    newop.value = key;
    newop.appendChild(document.createTextNode(tmpObj[key]));
    ret.appendChild(newop);
    }
    }

    document.getElementById('sel').appendChild(ret);

    }


    </script>
    <body>
    <form>
    <select id="sel">
    <option>aa</option>
    <option>bb</option>
    </select>
    <input type="button" οnclick="test()" value="childNodes"/>
    </form>
    </body>
    </html>

    以上已经在IE测试通过
    原来select内容是aa,bb,点按钮后内容变成saj,abc

    document.createDocumentFragment
    添加节点的时候使用
    对于少量的更新,可以不使用
    然而,当要添加大量数据时,如果逐个添加这些节点,这个过程有可能会十分缓慢。为解决这个问题,可以创建一个文档碎片,把所有的新节点附加其上,然后把文档碎片的内容一次性添加到document中。

    假设你想创建十个新段落。你可能这样写
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
    <TITLE> New Document </TITLE>
    <META NAME="Generator" CONTENT="EditPlus">
    <META NAME="Author" CONTENT="">
    <META NAME="Keywords" CONTENT="">
    <META NAME="Description" CONTENT="">
    </HEAD>
    <script defer>
    var arrText = ["1", "2", "3","4", "5","6","7","8","9","10"];
    for ( var i = 0; i < arrText.length ;i++ )
    {
    var op = document.createElement("p");
    var oText = document.createTextNode(arrText[i]);
    op.appendChild(oText);
    document.body.appendChild(op);
    }
    </script>
    <BODY>
    </BODY>
    </HTML>


    这段代码运行良好,但问题是它调用了十次document.body.appendChild(),每次要产生一次页面刷新。这时,文档碎片会更高效:

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
    <TITLE> New Document </TITLE>
    <META NAME="Generator" CONTENT="EditPlus">
    <META NAME="Author" CONTENT="">
    <META NAME="Keywords" CONTENT="">
    <META NAME="Description" CONTENT="">
    </HEAD>
    <script defer>
    var arrText = ["1", "2", "3","4", "5","6","7","8","9","10"];
    var oFrag = document.createDocumentFragment();
    for ( var i = 0; i < arrText.length ;i++ )
    {
    var op = document.createElement("p");
    var oText = document.createTextNode(arrText[i]);
    op.appendChild(oText);
    oFrag.appendChild(op);
    }
    document.body.appendChild(oFrag);
    </script>
    <BODY>
    </BODY>
    </HTML>
    展开全文
  • 今天咱们聊的内容是单元格的数据有效性(2010版本后更名为数据验证),在EH论坛上,经常碰到网友提问下面类似的问题:如何创建去除重复项后的下拉列表?什么意思?举个小栗子。如下图所示,D列是一些人名,含有重复项...
    嗨,大家好,我是星光。今天咱们聊的内容是单元格的数据有效性(2010版本后更名为数据验证),在EH论坛上,经常碰到网友提问下面类似的问题:如何创建去除重复项后的下拉列表?什么意思?举个小栗子。如下图所示,D列是一些人名,含有重复项。现在需要根据D列的人名,在表格的A列创建去除重复人名后的数据验证下拉列表。cc64ba307dae9a6289720309158a2e95.png
    动画效果:
    1d0951a991e09df0cef51e83708298e6.gif
    代码如下:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Intersect([a:a], Target) Is Nothing Then Exit Sub
    '如果选择的单元格不存在于A列,则退出。A列是设置数据验证的区域
        If Target.Rows.Count > 1 Then Exit Sub
        '不允许选择多行
        Dim arr, brr, i&, j&, k&, s
        Dim d As Object
        Set d = CreateObject("scripting.dictionary")
        '后期绑定字典
        arr = Range("d1:d" & Cells(Rows.Count, "d").End(xlUp).Row)
        '数据来源列
        If Not IsArray(arr) Then Exit Sub
        '如果不存在数据源选项,则arr非数组,那么退出程序
        For i = 2 To UBound(arr)
        'D1是标题,从第2行开始遍历数据源,将人名装入字典
            If arr(i, 1) <> "" Then d(arr(i, 1)) = ""
        Next
        s = Join(d.keys, ",")
        With Target.Validation
            .Delete '删掉旧的
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:=s
            's为数据验证的序列来源
        End With
        Application.SendKeys "%{down}"
        'SendKeys发出快捷键atl+↓直接弹出数据验证下拉列表
        Set d = Nothing
        '释放字典内存
    End Sub

    小贴士:

    1,代码需要粘贴在相关工作表标签所对应的VBE窗口中。2,代码使用了Worksheet_SelectionChange事件,当鼠标点击A列单元格时,系统自动运行该段代码。可以通过修改Intersect([a:a], Target)中的[a:a],设置为其它目标区域。3,代码使用了 Application.SendKeys "%{down}"语句,其意思是键盘输入快捷键alt+↓,自动打开数据验证下拉选项。该快捷键可能会和电脑的其它热键冲突,该语句并不是必须的,因此部分亲们可以注释掉它。4,握爪~下期再见~

    更多资源和教程

    • 零基础学SQL in Excel 25篇合集

    • VBA爱好者请进,VBA代码宝概述


    ©EH看见星光

    ac37b23e003f37d908c2c6075db4283e.png

    《VBA经典代码应用大全》当当、天猫、京东均有销售~
    展开全文
  •  select下拉列表,提供了select.options[index]来获取下拉列表的值,我们可以通过 select.options[select.Indexed]来获取下拉列表中选中的值。   <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" ...
  • 新闻娱乐体育IT财经文化军事生活两性图片影音其他
  • 修改了自动补全的显示内容(自定义的显示布局),结果完蛋了,文本获得出现乱七八糟的内容,按照这样的方法修改监听器,就好了 转载于:https://my.oschina.net/mutouzhang/blog/282661
  • Select下拉列表框进行多选、移除、交换内容 请选择: 江苏省 广东省 河南省 吉林省 浙江省 &nbsp; ...
  • Struts中将数据库中的内容动态生成 列表内容现在假设我们要实现这样的功能:修改某学生所在的系:DeptForm 中: private String id; private String name; /** 这里省略了这个两个属性的getter, setter方法*/ ...
  • QComboBox下拉列表框QComboBox以占用最少屏幕空间的方式向用户显示选项列表。它是一个选择控件,显示当前项目,并可以弹出可选项目列表。组合框可以是可编辑的,允许用户修改列表中的每个项目。QComboBox类属性...
  • }//下拉摸拟层 function hiddenDiv(){  var o=window.event.srcElement.id;  var tb  var sv  if(o=="") {  for (j=0;j();j++) {  tb=document.getElementById('ZfData_'+j);  sv=document....
  • QComboBox下拉列表框QComboBox以占用最少屏幕空间的方式向用户显示选项列表。它是一个选择控件,显示当前项目,并可以弹出可选项目列表。组合框可以是可编辑的,允许用户修改列表中的每个项目。QComboBox类属性...
  • 下拉列表框只能选择,我想选择后还可以允许用户对选择的内容进行修改,如何实现可编辑的下拉列表框?借花献佛:可编辑下拉框a{color:blue;text-decoration:none}a:hover{color:red} 可编辑下拉框 可编辑下拉框阿信 /...
  • 1、表格的概念与使用 (1)表格的生成 我们之前处理的有的是表数据,并不是表格。表格更方便于我们对数据...用表格创建下拉列表过后,以后要修改下拉列表内容就没有必要像第一步那么麻烦,直接修改作为下拉列表的表格
  • 2.创建完文件后会自动打开该资源文件,这里需要先在下面添加前缀,就是点击添加按钮,然后选择前缀,默认的前缀是“/new/prefix1”,这个可以随意修改(不要出现中文字符),我们这里因为要添加图片,所以修改为/...
  • EXCEL的下拉列表

    2012-06-27 22:55:00
    最近修改别人做过的文档,才发现还可以这么定义下拉列表。 EXCEL2007 方法一 菜单里的数据里有数据输入规则,设定里选择列表,输入值里填写下拉列表内容,用逗号分隔,比如A1,SA这样 方法一的缺点是这种有输入...
  • 要求:实现密码框的内容校验,并实现下拉列表的所列的展示形式。具体看下图效果1.页面初始效果 2.两次密码不一致时的效果 3.当显示方式修改为显示错误提示时,详细的内容错误提示 4.当显示方式为提交时才显示...
  • 两个下拉列表框,第二个设置成动态面板,方便第一个调用,在第一个选择某个选项时,对应的第二个框也会出现一第一个框有关的内容。 小贴士,大发现:修改size_16,下划线_后面的数字可以改变水印的大小!!!(好像...
  • 根据上级菜单所选,决定下级菜单的列表内容 数据源 首先读取数据库中的数据得到数据,由于数据库中的数据是分散的几个二维表格,查询出来的数据是Map键值对的List集合,不能直接拿来用,需要先进行处理:一级...
  • PropertyGrid控件下拉列表

    千次阅读 2013-09-21 13:42:49
    把别人的例子稍做了一下修改,部分内容没看懂,但程序可以运行,如果有什么错误或不当之处,请指教!...自定义一个特性类ListAttribute,提供下拉列表值: 3 /// 4 public class ListAttribute : Attribute 5
  • 类似于google网站的自动提示功能,自动提示下拉列表框原始文件地址:http://www.cssrain.cn/article.asp?id=106,我对原始功能进行小小的修改修改功能如下: 1.可以在一个页面中同时显示多个下拉列表框,带自动提示...
  • 公司项目中,很多页面都用到了select组件模拟树状选择框,由于树的层次可能非常多,因此的选择项内容非常长,而超出固定长度的部分被截断,无法完全看清,导致用户体验比较差,因此,要求统一修改。    但是...
  • Spinner(下拉列表)

    2011-11-05 15:44:00
    在Android的UI开发中,Spinner(下拉列表)总是可以用到的,一个简单的自定义Spinner制作我们只需要记住这重要的五步,一个Spinner就可以应用而生了。(1)新建一个Android工程,名字为SpinnerTest1。修改layout下的main...
  • 先给大家讲下大概实现思路,具体内容介绍请看下面。 判断select选项中 是否存在Value=”paraValue”的Item 向select选项中 加入一个Item 从select选项中 删除一个Item 删除select中选中的项 修改select选项中 ...
  • java使用POI,导出带下拉框选择器,日期时间格式校验的Excel 文章目录java使用POI,导出带下拉框选择器,日期时间格式校验的Excel前言一、引用maven二、...提示:以下是本篇文章正文内容,下面案例可供参考 一、引用mav
  • C#中为DataGrid添加下拉列表框 本文将介绍如何在 System.Windows.Forms.DataGrid中切入使用ComboBox控件,主要包括三方面的内容。 1. 在DataGrid中加入ComboBox列; 2. 把在DataGrid中的修改保存到对应的网格; 3...
  • 在DataGrid中使用下拉列表框和设置焦点 在DataGrid中简单使用下拉列表框 作者:Tushar Ameta ...不过原文不全,无法调试,在这里为了说清楚点,对原文作了一些修改,整篇文章主要包括三方面的内容。 1. 在Data

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 755
精华内容 302
关键字:

修改下拉列表内容