在线结算、在线支付、自动到帐、自动上货、网购批发 专注服务中小企业 会员中心 | 设为首页 | 加入收藏 | 繁体中文
服务热线:400-6966-014 点击这里给我发消息
网站首页软件购买软件动态软件下载常见问题快速备案My18高防云My18甄选全网推广合作商招贤纳士关于我们媒体报道
栏目导航
新闻搜索
热门点击
联系我们
  • 网址:www.we0546.com
  • 邮箱:414787450@qq.com
  • 电话:4006966014
  • 地址:山东省东营市东营区西二路471号北海嘉园C座305号

  • 首页新闻中心  
     
    如何在Excel中设置可多选下拉列表
    来源:本站 点击数:599次 更新时间:2021-1-16 13:30:39

    https://jingyan.baidu.com/article/25648fc1ead311d190fd0023.html

    1. 一、显示“开发工具”选项卡。打开Excel2010,点击左上方“文件”图标。点击“选项”,弹出“Excel选项”对话框,在“自定义功能区”中勾选“开发工具”,点击确定。

      如何在Excel中设置可多选下拉列表
      如何在Excel中设置可多选下拉列表
    2. 二、设置下拉列表的选项内容。将工作表sheet2名称修改为“data”,并在A列输入下拉选项。

      如何在Excel中设置可多选下拉列表
    3. 三、插入ListBox(列表框)控件。

      1)  在工作表sheet1中,选择A列,点击“开发工具”选项卡,选择“插入”里的“列表框”,放置到A列中。

      2) 选中列表框控件,点击“设计模式”,在设计模式下点击“属性”,弹出ListBox属性框,选择“按分类序”。修改MultiSelect项为“1 – fmMultiSelectMulti”,修改ListStyle项为“1 – fmListStyleOption”,设置ListFillRange项为所选菜单选项所在的表格名称和单元格范围,具体格式为“data!A1:A8”。

      如何在Excel中设置可多选下拉列表
      如何在Excel中设置可多选下拉列表
    4. 四、插入代码。 在Excel中点击开发工具中的“Visual Basic”,打开VB编辑器,在VB编辑器中双击Sheet1,打开sheet1的编辑器,将以下代码粘贴到编辑器中并保存。

      在sheet1中保存代码:

      Private Sub ListBox1_Change()

          If ReLoad Then Exit Sub '见下方说明

          For i = 0 To ListBox1.ListCount - 1

              If ListBox1.Selected(i) = True Then t = t & "," & ListBox1.List(i)

          Next

          ActiveCell = Mid(t, 2)

      End Sub

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)

          With ListBox1

              If ActiveCell.Column = 1 And ActiveCell.Row > 1 Then

                  t = ActiveCell.Value

                  ReLoad = True '如果是根据单元格的值修改列表框,则暂时屏蔽listbox的change事件。

                  For i = 0 To .ListCount - 1 '根据活动单元格内容修改列表框中被选中的内容

                      If InStr(t, .List(i)) Then

                          .Selected(i) = True

                          Else

                          .Selected(i) = False

                      End If

                  Next

                  ReLoad = False

                  .Top = ActiveCell.Top + ActiveCell.Height '以下语句根据活动单元格位置显示列表框

                  .Left = ActiveCell.Left

                  .Width = ActiveCell.Width

                  .Visible = True

                  Else

                  .Visible = False

              End If

          End With

      End Sub

      如何在Excel中设置可多选下拉列表
    5. 在VB编辑器中双击Sheet2,将以下代码粘贴到编辑器中并保存。(该段代码是为了动态设置下拉菜单选项值而加的,如果下拉菜单的选项值固定,可以直接在ListBox的ListFillRange属性中指定,不要以下的代码)

      在sheet2(data)中保存代码:

      Private Sub Worksheet_Change(ByVal Target As Range)

          Sheets("Sheet1").ListBox1.ListFillRange = "data!a1:a" & Cells(1, 1).End(xlDown).Row

      End Sub

      如何在Excel中设置可多选下拉列表
    6. 将代码保存后,关闭VB编辑器,在sheet1工作表中,点击A列单元格,结果如下图所示。

      在模块1中保存:

      Public ReLoad As Boolean '开关listbox的change事件

      如何在Excel中设置可多选下拉列表

    【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
    上一篇:Windows Server 2008 R2怎样设置自动登陆(登录) 下一篇:SQL错误15138,删除数据库用户时失败,提示数据库主体在该数据库中拥有架构,无法删除。
     

      友情链接
    腾讯企业QQ招商银行金山360工商银行支付宝财付通
    快递查询东营招聘网绿色软件下载软件盒子天空下载西西软件园太平洋电脑网天极下载多多软件站
    好特下载飞翔下载泡泡网下载ECSHOP非凡软件站ZOL分流下硅谷动力豆豆网it168下
    广告服务 | 联系我们 | 关于我们 | 版权声明 | 友情链接
    Copyright 2009 - 2010 Powered By Zhirui Ver 3.6.5 鲁ICP备13019314号-1
    邮件:414787450@qq.com 电话:4006966014  地址:山东省东营市东营区西二路471号北海嘉园C座305号  法律顾问:山东众成仁和律师事务所