首页
学习
活动
专区
圈层
工具
发布

VBA代码分享:可搜索的数据验证+组合框

Excel没有提供搜索数据验证列表的内置方法。因此,当列表很长时,通过滚动来浏览列表很不方便。...在mrexcel.com中,提供的可搜索的数据验证+组合框就是解决这个问题的一种方法,它有以下行为: 1.组合框可以通过某些操作显示和隐藏,例如双击单元格。...2.可以在组合框中键入一些关键字,键入时列表将随着键入的值而缩小。 3.对于所有具有数据验证的单元格,只需要一个组合框。...- 搜索忽略关键字顺序, 因此关键字"mala"与"Maryland"和"Alabama"都匹配 - 使用上下箭头选择项目,单击回车键,所选项目会插入到单元格,且组合框会隐藏 - 要关闭组合框:单击TAB...键或ESC键 - 列表中的数字值将视为文本 这是一段通用代码,你可以按照示例工作簿中的说明将代码复制到你想要应用的工作簿中。

2.1K20

VBA代码分享2:可搜索的数据验证+组合框

在mrexcel.com中,提供的可搜索的数据验证+组合框就是解决这个问题的一种方法,它有以下行为: 1.组合框可以通过某些操作显示和隐藏。...在《VBA代码分享:可搜索的数据验证+组合框》中是通过双击单元格;在本文提供的代码中,是单击选择具有数据有效性的单元格。 2.可以在组合框中键入一些关键字,键入时列表将随着键入的值而缩小。...3.对于所有具有数据验证的单元格,只需要一个组合框。 组合框可搜索内容 下载这个示例工作簿。...- 搜索忽略关键字顺序, 因此关键字"mala"与"Maryland"和"Alabama"都匹配 - 使用上下箭头选择项目,单击回车键,所选项目会插入到单元格,且组合框会隐藏 - 要关闭组合框:单击TAB...键或ESC键 - 列表中的数字值将视为文本 这是一段通用代码,你可以按照示例工作簿中的说明将代码复制到你想要应用的工作簿中。

1.8K40
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    Excel VBA多数据级联组合框示例

    标签:VBA,组合框 这是thesmallman.com中的一个示例,展示了一个多数据级联组合框的例子,非常好!...很多人都知道级联组合框,就是第二个组合框会随着第一个组合框的选择而改变,而第三个组合框会随着第二个组合框的选择而改变,以此类推。...而本文介绍的这个多数据级联组合框不仅仅如此,当第一个组合框中选择好数据后,后面的组合框中的数据已经随之而改变了,同样,第二个组合框选择好数据后,随后的组合框中的数据改变,等等。...也就是说,用户可以随意改变其中的任一组合框,而相应的组合框中的数据会随之变化。 这是一组链接的组合框,它不依赖于按给定的组合框顺序选择。需要注意的是,第一个组合框是控制组合框。...因此,需要先填充第一个组合框。 示例演示如下图1所示。 图1 一旦在第一个组合框中选择了类别,后面可以选择任何组合框。可以选择1和4,1、2和3或者4个组合框的任意组合。

    1.3K10

    突破数据验证列表,使用VBA创建3层和4层级联组合框

    标签:VBA,组合框 你是否曾想过管理级联数据验证(即“数据有效性”)列表,而不需要几十到数百个命名的单元格区域?...这里为你提供一个示例工作簿,其中运用的方法可以动态创建数据验证列表,允许管理垂直列表,向列表中添加新列,并无缝更新数据验证列表。 数据在电子表格中的排列如下图1所示。...因此,如果选择“Auto”,则第二个数据验证列表中只会显示“Cleaning”和“Accessories”。...然后,如果选择了“Cleaning”,则第三个组合框中将显示“Engine Wash”、“Oil Clean”、“Windows”和“Pumpit”。如下图2所示。...现在,如果我们要添加一个新的auto类别,那么数据将在数据验证列表中更新。

    1.8K20

    VBA专题10-12:使用VBA操控Excel界面之在功能区中添加自定义组合框控件

    经过本系列前面几篇文章(参见:VBA专题10-11:使用VBA操控Excel界面之在功能区中添加自定义拆分按钮控件、VBA专题10-10:使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、...同样,这里讲解的添加组合框控件的步骤与前面介绍的步骤相同,新建一个启用宏的工作簿并保存,关闭该工作簿,然后在CustomUI Editor中打开该工作簿,输入下面的XML代码: ?...重新打开该工作簿后,在“Custom”选项卡中显示含组合框的组,如下图1所示。 ?...for comboBox1 onChange Sub Combo1_onChange(control As IRibbonControl, text As String) MsgBox "在组合框中显示的文本是...: "& text End Sub 此时,从组合框中选择某项后,会显示如图2所示的消息框。

    2K20

    【Python】基于多列组合删除数据框中的重复值

    在准备关系数据时需要根据两列组合删除数据框中的重复值,两列中元素的顺序可能是相反的。 我们知道Python按照某些列去重,可用drop_duplicates函数轻松处理。...本文介绍一句语句解决多列组合删除数据框中重复值的问题。 一、举一个小例子 在Python中有一个包含3列的数据框,希望根据列name1和name2组合(在两行中顺序不一样)消除重复项。...import numpy as np #导入数据处理的库 os.chdir('F:/微信公众号/Python/26.基于多列组合删除数据框中的重复值') #把路径改为数据存放的路径 df =...三、把代码推广到多列 解决多列组合删除数据框中重复值的问题,只要把代码中取两列的代码变成多列即可。...导入设置路径的库 import pandas as pd #导入数据处理的库 import numpy as np #导入数据处理的库 os.chdir('F:/微信公众号/Python/26.基于多列组合删除数据框中的重复值

    21.4K30

    VBA数组的排序_vba函数返回值 数组

    Integer Dim MinValue As String arr = Range("a1:a10") For i = 1 To UBound(arr) MinValue = arr(i, 1) '将第一个值先默认为最小值...MinIndex = i '记录最小值的索引位置 For j = MinIndex + 1 To UBound(arr) If arr(j, 1) < MinValue Then MinValue...= arr(j, 1) MinIndex = j End If Next '以此和当前的最小值做对比,比较出后面的最小值并记录 值及索引的位置 '因为小的值我们都放在最前面,所以遍历只需从当前值的后面开始就可以了...MinIndex, 1) = arr(i, 1) arr(i, 1) = MinValue End If '这里的MinIndex和i的关系会有些绕,只会有两个可能,一种是MinIndex > i(在默认最小值的后面有比当前还小的值...),另一种MinIndex = i :(在最小值的后面没有找到比当前值的再小的)。

    5K40

    Excel实战技巧67:在组合框中添加不重复值(使用ADO技巧)

    很多情况下,我们需要使用工作表中的数据来填充组合框,但往往这些数据中含有许多重复值。如何去除重复值并得到唯一值,这是一个永恒的话题,大家也会用到各式各样的方法得到结果。...本文讲解一种技巧,使用Recordset(记录集)来获取唯一值并将其填充到组合框中。 示例数据如下图1所示。在工作表中有一个组合框,需要包含列A中的省份列表,但是列A中有很多重复的省份数据。 ?...图1 这里可以使用简单的记录集快速提取不同的省份名并将其装载到组合框。...单击功能区“开发工具”选项卡中“插入”按钮下ActiveX控件中的“组合框”,在工作表中插入一个组合框,可以看到Excel将其自动命名为“ComboBox1”,如下图2所示。 ?...运行或调用过程后,在工作表中单击组合框右侧下拉按钮,结果如下图3所示。 ? 图3 说明 1.示例中使用的是ActiveX组合框控件,如下图2所示。

    7.4K10

    超方便,VBA调用Excel内置对话框

    标签:VBA Excel有261个内置对话框,使用这些现有的对话框,可以使编写代码更加容易。 例如,下面的代码显示内置的“打印”对话框。...图2 我们可以使用对话框中的所有功能,使用内置对话框可以节省大量编程工作。 在VBA对象浏览器中,我们可以找到所有的内置对话框列表。...打开VBE,按F2键打开对象浏览器,在顶部的下拉列表框中选择“Excel”,搜索“XlBuiltInDialog”,显示所有内置对话框成员列表,如下图3所示。...下面演示xlDialogWorkspace(“工作区选项”)对话框的16个参数,代码如下。...图4 按位置设置该对话框的效果如下图5所示,此时忽略的参数要使用逗号。 图5 有兴趣的朋友可以进一步研究。

    1.6K60
    领券