新用戶掃碼下載
掃碼下載APP
及時接收最新考試資訊及
備考信息
可以自動縮放的Excel表格來了！讓領導看傻！
做數據分析工作時，在公司分析會上經常會遇到一個尷尬的問題。投影屏上演示分析數據時，由于很多領導和同事眼近視，屏幕上的字太小看不清，比如下面的表格，離屏的稍遠一些字就看不清了：
（當然你可以把表格比例放大，但你要不停的放大縮小放大縮，太麻煩）
下面用VBA做了一個小功能，完美解決這個難題，快來學習吧！
在H1單元格中輸入數字1，然后再選表格時，就會自動放大字體，顏色變為紅色。刪除H1中的數字1后，取消放大功能。
在開會時演示這個表格，老板瞇著眼都可以看清表中的數字，是不是比較帥？！想在你的表格中也有這樣的功能嗎？快來一起學習如何操作吧！
操作步驟：
1、 添加代碼
在工作表標簽上右鍵 - 查看代碼打開VBE窗口- 把下面的代碼粘貼右側的代碼框空白處，關于彈出的VBE窗口
Dim xrow As Long, Xcolor As Byte, xsize As Byte
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If [h1] <> 1 Or Target.Row = 1 Then
Rows(xrow).Font.Size = xsize
Rows(xrow).Font.ColorIndex = Xcolor
Exit Sub
End If
If xrow > 1 Then
Rows(xrow).Font.Size = xsize
Rows(xrow).Font.ColorIndex = Xcolor
End If
xrow = Target.Row
xsize = Target.Font.Size
Xcolor = Target.Font.ColorIndex
Rows(xrow).Font.Size = 24
Rows(xrow).Font.ColorIndex = 3
End Sub
注：本例中是把H1單元格作為是否啟用放大字體的開關，你可以自定義位置，比如你把H1改為A1,那么當在A1輸入1時就會啟用字體放大功能。
2、 另存文件
文件 - 另存為啟用宏的工作簿格式
設置完成！值得注意的是，添加代碼后，當前工作表中將右鍵粘貼功能將失效，你可以打開剪粘板進行復制粘貼。如果想徹底取消，把代碼刪除即可。
互聯網時代，Excel早已成為了財務人員職場必備技能，就像珠算之于賬房先生、點鈔之于收銀員、方向盤操控之于司機一樣，Excel的熟練程度，不僅決定了一個人能否勝任工作，更決定了職場人的工作效率，決定了一個人在職場上是否能夠脫穎而出。如果你想提升自己的工作效率，請關注正保會計網校胡雪飛老師的《財務人玩轉Excel的25節實操課》吧。
本課程帶你從基礎鞏固到實戰應用全面提升，三大階段、二十五講，操作真實的財務數據來訓練你的excel快捷操作、公式、函數、圖表的應用，提升你的數據處理和分析思維，培養職場競爭優勢，點擊報名>>
學習更多財稅資訊、財經法規、專家問答、能力測評、免費直播，可以查看正保會計網校會計實務頻道，點擊進入>>。
學員討論（0）
實務學習指南
距6月報稅結束還有天
新用戶掃碼下載
京公網安備 11010802044457號