當Excel工作表中的數據太多時,查看某行某列數據很容易導致誤差,往往出現行不對列,列不對行的情況。今天給大家分享製作Excel聚光燈效果,通過這個效果來查看數據,再也不用擔心看錯位的問題出現。
什麼是聚光燈效果呢?先看一張Gif圖片大家就明白了,使用Excel聚光燈效果,選中某個單元格後,該單元格所對應的的行和列都會自動進行顏色填充,這樣查看數據就方便多了。這種效果該怎麼製作呢?操作方法非常簡單,按照步驟一步一步操作,1分鐘就能完工。
![Excel炫酷聚光燈效果怎麼製作?數據查看太方便了](http://p2.ttnews.xyz/loading.gif)
全部選中數據所在的單元格區域後,在開始菜單中,點擊樣式功能區中的條件格式,選擇下拉菜單中的新建規則。
在新建格式規則窗口中,選中使用公式確定要設置格式的單元格,並在文本框中輸入函數“=OR(CELL("ROW")=ROW(),CELL("COL")=COLUMN())”。
函數輸入完成後,點擊文本框下方的格式按鈕。在彈出的設置單元格格式窗口中,點擊填充選項卡,在顏色卡中選擇自己喜歡的顏色後,點擊確定按鈕保存設置。
![Excel炫酷聚光燈效果怎麼製作?數據查看太方便了](http://p2.ttnews.xyz/loading.gif)
這時點擊數據區域中任意單元格,就會出現聚光燈效果。但是大家會發現點擊其他單元格後沒任何反應,聚光燈效果失效了?那是因為需要按下F9進行刷新才能繼續使用。這樣的聚光燈效果屬於半成品,操作非常麻煩。
接下來需要對聚光燈效果更進一步的優化,實現自動“聚焦”。右鍵單擊工作表名稱,選中右鍵菜單中的查看代碼。在VBA代碼編輯區域輸入以下代碼,代碼輸入完成後,關閉Visual Basic編輯器。
代碼區域:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub
這時再點擊數據所在的單元格區域,就實現聚光燈效果實時更新。別太激動,如果想把這個效果保存發送給Boss還需要一步。
點擊菜單欄中的文件,點擊另存為,選擇文件存儲路徑後,在另存為窗口中,將保存類型設置為Excel 97-2003工作簿(*.xls),這是重點。*.xlsx屬於未啟用宏的工作表,如果設置此類文件格式,聚光燈自動刷新效果將失效。
今天的分享就到此結束,Excel中VBA的強大之處無法言表,只有你想不到的,沒有你做不到的。函數能實現的,VBA都可以實現,函數實現不了的,VBA還可以實現。而且VBA還可以定義函數。
在實際操作中,不管是函數還是VBA,只要你精通其一,都將受用無窮,升職加薪不在話下。