Excel高階圖表，牛到不行了

Excel高階圖表，牛到不行了

涉及的知識(shí)點(diǎn)：

切片器（鏈接數(shù)據(jù)透視表，切片器格式化） Worksheet_PivotTableUpdate透視表更新事件 VBA自動(dòng)篩選程序（AutoFilter代碼用于篩選該城市經(jīng)銷(xiāo)商） 定義名稱(chēng)（offset函數(shù)動(dòng)態(tài)引用區(qū)域，用于制作圖表時(shí)添加序列） 通過(guò)添加序列的方式制作常規(guī)圖表 VBA代碼添加放大及返回的宏按鈕

之前在Excel連接SQL Server數(shù)據(jù)庫(kù)的文章中，曾經(jīng)介紹過(guò)切片器及數(shù)據(jù)透視表更新事件的使用。本例中與其原理完全一致。

不太容易構(gòu)思之處在于： 1）通過(guò)VBA自動(dòng)篩選程序?qū)⒃摮鞘凶詣?dòng)篩選后，粘貼進(jìn)指定工作表，繼而通過(guò)定義好的名稱(chēng)動(dòng)態(tài)捕捉作圖數(shù)據(jù)，用于生成各種圖表。 2）用切片器替代了省市二級(jí)下拉菜單的制作，不僅制作過(guò)程簡(jiǎn)單，而且選擇項(xiàng)目方便，目視設(shè)計(jì)美觀。

這段代碼實(shí)現(xiàn)的功能是將第一步準(zhǔn)備的數(shù)據(jù)源表，以第一行為篩選行，以第31列（城市列）為篩選字段，以?xún)x表板工作表的CB3單元格（數(shù)據(jù)透視表切片后結(jié)果單元格，即城市）為篩選條件進(jìn)行自動(dòng)篩選，將結(jié)果粘貼到“抓取”工作表中，用于下一步制圖。

注： 因每個(gè)城市經(jīng)銷(xiāo)商數(shù)量不同，COUNTA函數(shù)起到了計(jì)算非空行也即城市數(shù)量的作用； 對(duì)于沒(méi)有經(jīng)銷(xiāo)商的城市，這里外套了一個(gè)if函數(shù)，即將行標(biāo)題作為結(jié)果返回。否則會(huì)彈出定義名稱(chēng)引用區(qū)域錯(cuò)誤的對(duì)話框。

06 — 添加放大和返回按鈕 通過(guò)選擇對(duì)應(yīng)的range區(qū)域，設(shè)置合適的縮放級(jí)別，便可實(shí)現(xiàn)放大和返回的效果。 Sub 返回() Application.ScreenUpdating = False ‘暫停刷新屏幕 Sheets(“儀表板”).Select ActiveWindow.Zoom = 40 Application.ScreenUpdating = True ‘恢復(fù)刷新屏幕 Range(“A1”).Select End Sub Sub 放大圖表1() Application.ScreenUpdating = False ‘暫停刷新屏幕 Application.DisplayFullScreen = True Sheets(“儀表板”).Select Range(“A1:Q37”).Select ActiveWindow.Zoom = True Application.ScreenUpdating = True ‘恢復(fù)刷新屏幕 End Sub

Sub 放大圖表2() Application.ScreenUpdating = False ‘暫停刷新屏幕 Application.DisplayFullScreen = True Sheets(“儀表板”).Select Range(“Q1:AF37”).Select ActiveWindow.Zoom = True Application.ScreenUpdating = True ‘恢復(fù)刷新屏幕 End Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。