excel vba級聯(lián)

1 選擇省 然后可以選擇對應(yīng)的城市
完成后的最終效果如下:


最終效果

首先建立如下表格


建立初始表格

然后選擇菜單-公式-名稱管理器,建立兩個一級條目
建立兩個一級條目

然后選擇A6單元格徊哑,選擇菜單-數(shù)據(jù)-數(shù)據(jù)驗(yàn)證的第一個選項(xiàng),允許處選擇序列回铛,來源處注意征绸。

數(shù)據(jù)有效性

現(xiàn)在省份可以選擇了


選擇省份

在選中B6單元格,選擇菜單-數(shù)據(jù)-數(shù)據(jù)驗(yàn)證的第一個選項(xiàng)甘有,允許處選擇序列诉儒,來源處注意。

選擇城市

大功告成亏掀!

基本的級聯(lián)

發(fā)現(xiàn)個問題忱反,選擇蘇州后城市一欄還是河北的城市,也就是需要清空下城市滤愕,這時就得用vba了温算。
在下方的sheet1處右擊,選擇查看代碼...

查看代碼

這時彈出VBE編輯窗口间影,輸入下面這段代碼

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" Then Range("$B$6").ClearContents
End Sub

當(dāng)用戶更改工作表中的單元格注竿,或外部鏈接引起單元格的更改時產(chǎn)生觸發(fā)上面代碼。
當(dāng)用戶切換的是A6單元格的內(nèi)容魂贬,則會將B6的內(nèi)容清空巩割。
效果如下

切換時清空城市

現(xiàn)在還有一種特殊需求,即當(dāng)選擇的是河北時付燥,城市處需要變灰宣谈,而且不可編輯,不可選擇键科;當(dāng)省份是江蘇時闻丑,可以正常選擇漩怎。
最終代碼如下


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = [b6].Address Then Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" Then Range("$B$6").ClearContents
If [a6] = "河北" Then
    Cells(6, 2).Interior.ColorIndex = 15
    Else
    Cells(6, 2).Interior.ColorIndex = 0
End If
End Sub

第一段代碼是禁止了B6單元格的雙擊事件
第二段是如果選擇的是河北則B6單元格顏色置灰
同時需要重新設(shè)置名稱選擇器,編輯名稱管理器內(nèi)的河北嗦嗡,改成如下所示扬卷,點(diǎn)擊確定

修改名稱管理器

最終效果如圖:

最終效果
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市酸钦,隨后出現(xiàn)的幾起案子怪得,更是在濱河造成了極大的恐慌,老刑警劉巖卑硫,帶你破解...
    沈念sama閱讀 219,427評論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件徒恋,死亡現(xiàn)場離奇詭異,居然都是意外死亡欢伏,警方通過查閱死者的電腦和手機(jī)入挣,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,551評論 3 395
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來硝拧,“玉大人径筏,你說我怎么就攤上這事≌咸眨” “怎么了滋恬?”我有些...
    開封第一講書人閱讀 165,747評論 0 356
  • 文/不壞的土叔 我叫張陵,是天一觀的道長抱究。 經(jīng)常有香客問我恢氯,道長,這世上最難降的妖魔是什么鼓寺? 我笑而不...
    開封第一講書人閱讀 58,939評論 1 295
  • 正文 為了忘掉前任勋拟,我火速辦了婚禮,結(jié)果婚禮上妈候,老公的妹妹穿的比我還像新娘敢靡。我一直安慰自己,他們只是感情好苦银,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,955評論 6 392
  • 文/花漫 我一把揭開白布啸胧。 她就那樣靜靜地躺著,像睡著了一般墓毒。 火紅的嫁衣襯著肌膚如雪吓揪。 梳的紋絲不亂的頭發(fā)上亲怠,一...
    開封第一講書人閱讀 51,737評論 1 305
  • 那天所计,我揣著相機(jī)與錄音,去河邊找鬼团秽。 笑死主胧,一個胖子當(dāng)著我的面吹牛叭首,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播踪栋,決...
    沈念sama閱讀 40,448評論 3 420
  • 文/蒼蘭香墨 我猛地睜開眼焙格,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了夷都?” 一聲冷哼從身側(cè)響起眷唉,我...
    開封第一講書人閱讀 39,352評論 0 276
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎囤官,沒想到半個月后冬阳,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,834評論 1 317
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡党饮,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,992評論 3 338
  • 正文 我和宋清朗相戀三年肝陪,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片刑顺。...
    茶點(diǎn)故事閱讀 40,133評論 1 351
  • 序言:一個原本活蹦亂跳的男人離奇死亡氯窍,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出蹲堂,到底是詐尸還是另有隱情狼讨,我是刑警寧澤,帶...
    沈念sama閱讀 35,815評論 5 346
  • 正文 年R本政府宣布柒竞,位于F島的核電站熊楼,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏能犯。R本人自食惡果不足惜鲫骗,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,477評論 3 331
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望踩晶。 院中可真熱鬧执泰,春花似錦、人聲如沸渡蜻。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,022評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽茸苇。三九已至排苍,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間学密,已是汗流浹背淘衙。 一陣腳步聲響...
    開封第一講書人閱讀 33,147評論 1 272
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留腻暮,地道東北人彤守。 一個月前我還...
    沈念sama閱讀 48,398評論 3 373
  • 正文 我出身青樓毯侦,卻偏偏與公主長得像,于是被迫代替她去往敵國和親具垫。 傳聞我的和親對象是個殘疾皇子侈离,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,077評論 2 355

推薦閱讀更多精彩內(nèi)容

  • 發(fā)現(xiàn) 關(guān)注 消息 iOS 第三方庫、插件筝蚕、知名博客總結(jié) 作者大灰狼的小綿羊哥哥關(guān)注 2017.06.26 09:4...
    肇東周閱讀 12,107評論 4 62
  • EXCEL小白的進(jìn)階之路 從16年3月申請的小號卦碾,到現(xiàn)在發(fā)表的微文,屈指可數(shù)起宽,糾結(jié)于想要好的內(nèi)容蔗坯,好的頁面排版,然...
    Rachelhaha閱讀 950評論 0 0
  • 原文鏈接:這里翻譯幫助:谷歌翻譯 Gradle Tips 在過去一年左右燎含,我開始使用Gradle作為我構(gòu)建基于JV...
    小呀么小黃雞閱讀 7,493評論 0 37
  • 直播主題:如何突破社會階層宾濒,向上進(jìn)階? 一屏箍、底層密碼:決定命運(yùn)的關(guān)鍵是什么绘梦? 幾乎所有成功人都承認(rèn)運(yùn)氣好,不會承認(rèn)...
    鄭宇辰閱讀 170評論 0 0
  • 今天第一次套路了小陳哥哥赴魁,這個老司機(jī)厲害了
    安之若素隨遇而安閱讀 179評論 2 3