在 Excel 的单元格中进行多列多选

作者: Admin 分类: 教学资源 发布时间: 2017-04-16 02:37 ė 6 没有评论

  最近好友阿方工作中遇到一个问题,要在 Excel 表格中四列均能多选(多项勾选),这个问题已经不能用数据有效性解决了,只能考虑 VBA。其实这段时间实在太忙,根本无暇考虑这个问题,在某论坛求助后也没有大神出手,只好抽时间琢磨,昨天已经交给他了。虽然不是太理想,终于完满解决了,也算是给好朋友有了一个交代。
  下载地址:https://pan.baidu.com/s/1hrTTOWk 密码: vja2
  这个东东在制作过程中参考了 ExcelHOME 上很多大神的作品,在此表示感谢。

  这类问题有多种途径,具体有以下方法可供参考:

  1、直接使用列表框(单个单元格),作者:zhaogang1960
  下载地址 1:https://pan.baidu.com/s/1dEG2M0h 密码: wgxd
  下载地址 2:https://pan.baidu.com/s/1i4M0sVb 密码: 6mxe
  下载地址 2 提供的是 Office 2010 版本的。

  2、直接使用列表框(多列),作者:蓝桥玄霜等人
  下载地址(案例 1):https://pan.baidu.com/s/1qXKQhys 密码: tgfn
  下载地址(案例 2): https://pan.baidu.com/s/1eSKKHMi 密码: 4zaf:

  3、直接使用列表框(区域),作者:yaozong
  下载地址:https://pan.baidu.com/s/1slTRFEt 密码: 57kb
  网友孤忆梦有话要说:鼠标点在单元格上还是会出现原来的值丢失的问题,试想,如果是发给别人的报表,别人不小心点了一下就没有内容了,不是很不方便,我优化了一下,鼠标点上去只要不点列表框的内容是不会丢失原单元格的值的,如果点了列表框的内容,则以最新选择的内容为准,不过奇怪我不可以上传附件,所以把代码粘进来,须要的自己下载12楼的例子,再把我的代码复盖。
  以下是代码:

Public Ycle As Integer
Private Sub ListBox1_Change()
If Sheet1.Ycle = 1 Then
    ActiveCell = ""
    Ycle = 0
End If
If ActiveCell Like "*" & ListBox1.List(ListBox1.ListIndex) & ",*" Then
   ActiveCell = VBA.Replace(ActiveCell, ListBox1.List(ListBox1.ListIndex) & ",", "")
Else
   ActiveCell = ActiveCell & ListBox1.List(ListBox1.ListIndex) & ","
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, [e3:l20]) Is Nothing Then Me.ListBox1.Visible = False: Exit Sub
Sheet1.Ycle = 1
If Target.Count > 1 Then Exit Sub
   With Me.ListBox1
        .Visible = True
        .Top = Target.Top
        .Left = Target.Left + Target.Width
        .Height = Target.Height * 4
        .Width = Target.Width * 1.2
        .List = Array("java", "c", "php", "c++")
   End With
End Sub

 

  4、使用『窗体+列表框』(多个窗体),作者:蓝桥玄霜、zhaogang1960
  下载地址(蓝桥玄霜):https://pan.baidu.com/s/1nvwjTCt 密码: wbnn
  下载地址(zhaogang1960):https://pan.baidu.com/s/1i5gJa4X 密码: xdca

  5、使用『窗体+列表框』(单列,多表),作者:一指禅62
  下载地址:https://pan.baidu.com/s/1eRPUiT8 密码: yqw3

  6、使用『窗体+列表框』(单个窗体),作者:蓝桥玄霜等人
  下载地址(案例 1):https://pan.baidu.com/s/1i4HGAah 密码: bdq6
  下载地址(案例 2):https://pan.baidu.com/s/1i5wYbKL 密码: p69t

本文出自微歌,转载时请注明出处及相应链接。

本文永久链接: http://wego2.com/zai-Excel-de-dan-yuan-ge-zhong-jin-xing-duo-lie-duo-xuan.html

0

发表评论

电子邮件地址不会被公开。 必填项已用*标注

Ɣ回顶部