Excel_三级联动_下拉菜单制件_模板

1、根据最新版国家统计局省市区及代码数据生成对应Excel模板，设置省市区三级联动，先选择省再选地市再选区县，示例： 北京市_11 市辖区_1101 东城区_110101； 内蒙古自治区_15 包头市_1502 东河区_150202； 2、设置了数据有效性，强制校验数据正确性，并给出提示 3、省市区列表分别存放于三个sheet，可及时更新数据 4、初始化文件大小181Kb 5、主要用途，包括但不限于地区类模板导入，地区统计类报表等 6、制作不易，有疑问可沟通

省市县三级联动

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

行政地区三级联动

最全最新的省市区三级联动Excel打包 最全最新的省市区三级联动Excel打包

公司需要做个excel省市县三级联动，在网上找了很多资料，发现资料基本都不是最新的，索性自己去国家统计局官网上弄了份最新的数据，做成了这个excel表，其中函数的编写是从如下这里找到的：https://blog.csdn.net/cb905259982/article/details/73521585 如果大家需要配套的的数据库脚本，请下载我另一个资源 最新全国省市县数据库sql带表结构（国家统计局20180620最新发布版本）.sql 一些注意事项：四大直辖市的二级区域名称我做了改动，比如统计局的数据是北京市-市辖区-东城区 我改成了北京市-北京市市辖区-东城区，避免数据重名，方便excel使用。还有香港，澳门，台湾这三地的数据国家统计局竟然没有（鄙视！）这三地数据是我从网上找到的下来的，编号也是我自己编的，可能与正规编号符，请大家知悉。 把sql和excel分开放实在是因为想赚点积分不容易，大家理解下拉~~

制作省市区三级联动EXCEL的demo，手把手教你怎么实现；教程链接：https://blog.csdn.net/cb905259982/article/details/73521585