Excel制作导入模板,多级联动下拉框(一整列的设置),修改一级下拉框内容,自动清空二级内容

效果展示

在这里插入图片描述

一、数据准备

1,新建一张表,在sheet2中放入数据。如图所示。

在这里插入图片描述

2,点击公式,点击名称管理器

在这里插入图片描述

点击新建,并输入名称。

在这里插入图片描述

点击引用位置,选择sheet2中的A2到A6

在这里插入图片描述

剩下几个也依次输入。如图所示,已经准备好了数据。

在这里插入图片描述

二、模板制作

在sheet1中选中A列(除了A1),点击数据,点击有效性,选择 “ 序列 ” ,选择来源,可以选择,也可以手动输入=Sheet2!$A$2:$A$6

在这里插入图片描述
在这里插入图片描述

如图所示。

在这里插入图片描述

选中B列(除了B1),点击数据,点击有效性,选择 “ 序列 ” ,选择来源,手动输入=INDIRECT($A2)

在这里插入图片描述

如图所示。

在这里插入图片描述
C列也同样设置。
在这里插入图片描述

在这里插入图片描述
所以多级联动下拉框,就一级一级的嵌套下去就可以了。

三、可能会出现的问题:“列表源”必须是划定分界后的数据列表
在这里插入图片描述

原因1:为空

在这里插入图片描述
B2为空。

前面也说了,用indirect函数的时候,要保证数据非空。
在这里插入图片描述

原因二:名称管理器数据有误

名称管理器中的命名对很多符号不支持,导致前后联动失败。
在这里插入图片描述

如图所示,两种情况都会引发“列表源”这个问题。
1)浙江省浙_江_省,名称没有对应起来
2)江苏省引用的数据是B8,B9,B11,这样就会有问题。数值{...}显示也和别的不同。
3)其他可能的原因,欢迎补充。

三、修改一级下拉框内容,自动清空二级内容

在wps中实现需要安装对应的宏。以下是在微软Excel中实现的

1,效果演示

在这里插入图片描述

2,实际操作

Excel表记得保存为.xlsm类型
在这里插入图片描述
粘贴以下代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    If Target.Row < 2 Then Exit Sub '修改第一行(标题)不往下执行
    For Each Rng In Target
        If Rng.Column = 1 Then  '修改A列
            Rng.Offset(0, 1).ClearContents '清除B列
            Rng.Offset(0, 2).ClearContents '清除C列
        End If
    Next
End Sub

相关函数:Offset.(RowOffset, ColumnOffset)以A1单元格为基准,向右及下进行偏移。
Offset的第一个参数是下移行数,第二个参数是右移列数。当为正数时,下移和右移;当为负数时,上移和左移。

Excel 三级 联动 下拉框 宏代码 实例 代码注释 先在第一个下拉框加入一个valiation, 内容是 =$A$2:$A$5 Private Sub Worksheet_Change(ByVal Target As Range) ' Call back function which defined within according worksheet Dim i As Integer Dim tempStr As String Dim firstDrawBoxRowCount As Integer Dim firstDrawBoxColumn As Integer firstDrawBoxRowCount = 4 'Define the row number of first draw box firstDrawBoxColumn = 1 'Define the column number of ifrst draw box Dim secondDrawBoxRowCount As Integer Dim secondDrawBoxColumn As Integer secondDrawBoxRowCount = 33 'Define the row number of second draw box secondDrawBoxColumn = 4 'Define the column number of second draw box If Target.Column = 1 Then 'This defines the first column of draw box list, you can also define the row number of draw box list Cells(Target.Row, Target.Column + 1) = "" ' Do the clean first Cells(Target.Row, Target.Column + 1).Validation.Delete Cells(Target.Row, Target.Column + 2) = "" Cells(Target.Row, Target.Column + 2).Validation.Delete For i = 2 To firstDrawBoxRowCount + 1 'Enter the cycle to find out the content for column 2 If Trim(Cells(Target.Row, Target.Column)) = Trim(Cells(i, firstDrawBoxColumn)) Then tempStr = Trim(Cells(i, firstDrawBoxColumn + 1)) 'Find out the options for second draw box, it is seperated by , Cells(Target.Row, Target.Column + 1).Select ' Fill the validation to second draw box With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=tempStr .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值