用Excel vba做一个下拉列表框,根据单元格输入内容匹配数据列里面包含输入内容的数据,然后快速录入单元

如图,C列为数据列,然后在F1单元格输入“中国”下拉框中会出现包含中国的所有数据,然后点击可以录入该单元格,

第1个回答  2018-05-11

用单元格事件就可以了

第2个回答  2018-05-10
txtbox + Listbox 控件 事件程序追问

代码不会写啊,能帮帮忙吗,谢谢

追答

60RMB 写给你

第3个回答  2018-05-11
百度一下 Excel下拉菜单:一级二级三级、联想式输入
文章极度详细介绍联想式输入菜单的设置方法
如果实在太菜,不懂操作的话,私信留企鹅,或传百度盘来改吧。追问

2391815588

第4个回答  2018-05-10
这个是模糊查询,是用控件吗追问

只要能实现就行,大概就是根据单元格输入内容,匹配数据里面包含输入内容的数据,然后显示在下拉框里面,可以选择然后将内容填入表格内,跟数据验证差不多的那种

只要能实现就行,大概就是根据单元格输入内容,匹配数据里面包含输入内容的数据,然后显示在下拉框里面,可以选择然后将内容填入表格内,跟数据验证差不多的那种

追答

哦哦

明天给你写

是这个效果不

追问

可以,怎么做的呢?

追答

用组合列表框➕vba代码

追问

粘贴下代码吧谢谢

本回答被网友采纳
第5个回答  2018-05-10
有钱的就是营生。

用Excel vba做一个下拉列表框,根据单元格输入内容匹配数据列里面包含...
用单元格事件就可以了

在Excel VBA写一段代码。根据当前单元格输入内容。提取数据列包含该单...
ws.Cells(1, icol) = "Unique"For i = 2 To lr On Error Resume Next If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)End...

怎么用VBA实现把单元格中的内容用下拉框的形式显示
Dim iVdStr As String iVdStr = "CPD-E12,CPE-F13,CPD-223" '设置列表,用英文的逗号分割 With Range("A1").Validation '为A1单元格区域设置有效性 .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, iVdStr .IgnoreBlank = True .InCellDropdown = True End With ...

excel利用VBA生成无重复无空值的数据有效性下拉列表
1.按Alt+F11,打开VBA编辑器。2.在“工程”窗口中双击要包含数据有效性设置的工作表,在右侧代码窗口中输入下列代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim RowNum, ListRows, ListStartRow, ListColumn As Integer Dim TheList As String Dim Repeated As Boolean If Targe...

如何在EXCEL单元格内实现输入数据下拉菜单自动匹配数据源中的内容?
如果不用下拉菜单,用一道公式搞定:在Sheet2的F4输入 IF(F$3="","",INDEX(Sheet1!D:D,SMALL(IF(ISNUMBER(FIND(F$3,Sheet1!D$1:D$100)),ROW($1:$100),4^8),ROW(1:1)))&"")数组公式,输入后先不要回车,按Ctrl+Shift+Enter结束计算,再向下填充。

在excel中如何通过vba实现对下拉列进行控制
谁的"下拉列表"?窗体控件还是activex控件里的combobox?或者是数据有效性的下拉列表?

如何在excel单元格中输入前几个字符自动与某列中的数据相匹配并能选择...
可以, 80元搞定, 需要的话私信我,不需要请无视 完全智能的 需要用VBA

excel中用VBA提取某一个单元格内包含某关键字符串的一行内容前的整数...
答:右键工作表标签,选择查看代码,复制下面代码进去。然后可以在B列输入关键字,就会得到结果。Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim TempStr As String On Error Resume Next If Target.Column = 2 Then Set Cell = Cells(Target.Cells(1...

Excel中用VBA写一个判断并弹出对话框
按alt+f11回到主界面,然后在开发工具的下边找到插入,选中按钮,然后就会自动跳出宏,我们选中刚才那个代码也就是sheet1,如下图所示:7、然后点击一下刚才的按钮就会弹出一个框,上面的内容就是之前写的hello,如果想删除这个按钮需要先用鼠标右键点击一下,然后按delete键,完成效果图。

excel中某个单元格中右边有个下拉箭头,如果过在该对应列中输入内容后...
自动筛选吧,菜单上数据-筛选-自动筛选

相似回答