在日常工作中双戳，難免需要使用辦公軟件糜芳，沒(méi)有系統(tǒng)性的去學(xué)習(xí)office，只能遇到問(wèn)題就去尋找解決問(wèn)題的方法峭竣。這幾天，需要提供一個(gè)模板給客戶進(jìn)行數(shù)據(jù)填寫(xiě)錄入皆撩，某些數(shù)據(jù)字段有規(guī)則限定，需要用到下拉聯(lián)動(dòng)扛吞。在此記錄，好記性不如爛筆頭亚脆。
1.準(zhǔn)備一個(gè)excel文件盲泛，需要有兩個(gè)工作簿，一個(gè)用來(lái)實(shí)際操作查乒，一個(gè)用來(lái)存放下拉數(shù)據(jù)郁竟。
2.我們以中國(guó)行政區(qū)劃為例來(lái)進(jìn)行操作。錄入省份數(shù)據(jù)棚亩，選中設(shè)置以首行根據(jù)所選內(nèi)容創(chuàng)建名稱，如下圖：
2.錄入各省份下的市級(jí)數(shù)據(jù)勒虾，設(shè)置以首行根據(jù)所選內(nèi)容創(chuàng)建名稱瘸彤，如下圖：
3.錄入各市級(jí)下的縣區(qū)數(shù)據(jù)，設(shè)置以首行根據(jù)所選內(nèi)容創(chuàng)建名稱愕宋，如下圖：
在名稱管理器中中贝，可看到以上設(shè)置的內(nèi)容，如下圖
4.實(shí)操到了蝎土，在實(shí)際使用的位置設(shè)置數(shù)據(jù)有效性校驗(yàn)绣否，省份設(shè)置如下：
市級(jí)設(shè)置如下：
縣區(qū)設(shè)置如下：
5.到這一步枝秤，已經(jīng)能夠?qū)崿F(xiàn)下拉聯(lián)動(dòng)了，但會(huì)存在一個(gè)問(wèn)題淀弹。要實(shí)現(xiàn)真正的聯(lián)動(dòng)薇溃，需做到改變父級(jí)，清空子級(jí)的操作沐序，這邊就需要用到代碼。
代碼解釋：
附上代碼文本：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Row < 2 Then Exit Sub '修改第一行（標(biāo)題）退出程序
For Each Rng In Target
If Rng.Column = 1 Then
Rng.Offset(0, 1).ClearContents
Rng.Offset(0, 2).ClearContents
ElseIf Rng.Column = 2 Then
Rng.Offset(0, 1).ClearContents
End If
Next
End Sub
