點(diǎn)擊上方

藍(lán)色

文字  關(guān)注我們吧！

送人玫瑰,，手有余香,，請(qǐng)將文章分享給更多朋友

動(dòng)手操作是熟練掌握EXCEL的最快捷途徑！

所謂自動(dòng)刷新圖表就是指,，當(dāng)用戶選擇某一項(xiàng)目時(shí),，圖表將自動(dòng)刷新所顯示的內(nèi)容。

如下例,，我們將制作這樣一個(gè)圖標(biāo),，當(dāng)用戶點(diǎn)擊選擇不同的項(xiàng)目時(shí)，圖表就可以自動(dòng)刷新相關(guān)內(nèi)容,。

首先我們來創(chuàng)建一個(gè)簇狀條形圖,。選中單元格區(qū)域A2:F3，插入簇狀條形圖,。

創(chuàng)建名稱,。在當(dāng)前工作表中創(chuàng)建“ChartTitle”和“ChartData”兩個(gè)名稱。

ChartTitle：“=OFFSET(Sheet1!$A2,0,0)”

ChartData：“=OFFSET(Sheet1!$A2,0,1,1,5)”

完成后將文件保存為啟用宏的文件格式,，文件名為“自動(dòng)更新”,。

選中圖標(biāo)中的數(shù)據(jù)系列，單擊右鍵,，在彈出的快捷菜單中單擊“選擇數(shù)據(jù)”,，打開“選擇數(shù)據(jù)源”對(duì)話框。單擊“編輯”,，在“系列名稱”中輸入“=自動(dòng)更新!ChartTitle”,；在“系列值”中輸入“=自動(dòng)更新!ChartData”，如下圖,。

確定后如下圖,。

單擊【開發(fā)工具】-【Visual Basic】,，輸入下列代碼：

Private Sub worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Row > 2 And ActiveCell.Row < 15 Then

ActiveWorkbook.Save

End If

End Sub

確認(rèn)保存后就可以了。動(dòng)圖效果如下：

美化圖表等操作這里就不再詳細(xì)介紹了,。

在2016以前的版中,，同樣也可以使用下面這段代碼：

Private Sub worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Row > 2 And ActiveCell.Row < 15 Then

ActiveSheet.Calculate

End If

End Sub

但以上這段代碼親測(cè)在2016版中是無法實(shí)現(xiàn)自動(dòng)更新的效果的。