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