北京华网天下

如何输入下拉框选的内容★64xl.com人人都会做下拉，下拉词自助平台

2024-10-27

来源：网络整理

下拉神器是一款专业的下拉词平台，提供各种下拉功能：百度下拉丶360搜索下拉丶必应搜索下拉丶哔哩哔哩下拉丶抖音下拉等等，里面还有批量做词教程技术，可以一次性做10-50个词，省心高效！批量做词，批量出词，可以实现霸屏效果！

有的客户想删除下拉，但是百度不受理，就可以使用批量做词霸屏技术，实现把那些负面信息顶下去，顶掉的效果=删除效果！欢迎您前来使用！新手不懂使用，请多看2遍视频教程哦！下拉神器100%有效果的！

给大家看一个下拉神器介绍的视频，看完后，点击下面的按钮进入”下拉神器“

欢迎使用下拉神器，下拉行业老品牌，如果下拉神器都不好使，整个行业其他平台一样不好使，但是大家一定要多学习多看教程，先学会做词出词的技巧！

下一篇文章内容预览：

下拉框其实很简单，跟着我操作起来

一、单选框

表格中选中数据-有效性-序列-选中数据来源-生成单选下拉框

来源可以框选也可以手动填写，手动填写多个值用英文逗号分隔即可

至此单选框已经可以用了我们来看看成果

二、多选

如何输入下拉框选的内容_选框下拉输入内容的快捷键_下拉框可选可输入

多选用到了宏定义，文件格式也不能用xlsx 、xls ，必须要支持宏声明的文件格式如xlsm ，不然会保存不上

在单选的基础上继续操作，打开VBA编辑界面

选择表格名称（比如），鼠标右击下面的工作表。选择“查看代码”，就可打开VBA编辑界面。

代码中 . = 6 把6替换成自己文件中下拉所在的列

如果有多列可以用or 连接

. = 4 Or . = 5

选框下拉输入内容的快捷键_下拉框可选可输入_如何输入下拉框选的内容

代码如下

Private Sub Worksheet_Change(ByVal Target As Range)Dim rngDV As Range Dim oldVal As String Dim newVal As String If Target.Count > 1 Then GoTo exitHandler On Error Resume Next Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Intersect(Target, rngDV) Is Nothing Then 'do nothing Else Application.EnableEvents = False newVal = Target.Value Application.Undo oldVal = Target.Value Target.Value = newVal If Target.Column = 6 Then If oldVal = "" Then Else If newVal = "" Then Else If InStr(oldVal, newVal) = 1 Then If oldVal = newVal Then Target.Value = ""Else Target.Value = Replace(oldVal, newVal & ",", "")End If Else If InStr(oldVal, newVal) > 1 Then Target.Value = Replace(oldVal, "," & newVal, "")Else Target.Value = oldVal & "," & newVal End If End If End If End If End If End IfexitHandler: Application.EnableEvents = True End Sub