可以自動縮放的Excel表格來了！讓領(lǐng)導(dǎo)看傻！

來源: Excel精英培訓(xùn) 編輯：張美好 2019/09/23 11:00:18　　字體：大小

選課中心

實(shí)務(wù)會員買一送一

選課中心

資料專區(qū)

需要的都在這里

資料專區(qū)

課程試聽

搶先體驗

課程試聽

高薪就業(yè)

從零基礎(chǔ)到經(jīng)理

高薪就業(yè)

做數(shù)據(jù)分析工作時，在公司分析會上經(jīng)常會遇到一個尷尬的問題。投影屏上演示分析數(shù)據(jù)時，由于很多領(lǐng)導(dǎo)和同事眼近視，屏幕上的字太小看不清，比如下面的表格，離屏的稍遠(yuǎn)一些字就看不清了：

（當(dāng)然你可以把表格比例放大，但你要不停的放大縮小放大縮，太麻煩）

讓領(lǐng)導(dǎo)看傻！可以自動縮放的Excel表格來了！

下面用VBA做了一個小功能，完美解決這個難題，快來學(xué)習(xí)吧！

在H1單元格中輸入數(shù)字1，然后再選表格時，就會自動放大字體，顏色變?yōu)榧t色。刪除H1中的數(shù)字1后，取消放大功能。

讓領(lǐng)導(dǎo)看傻！可以自動縮放的Excel表格來了！

在開會時演示這個表格，老板瞇著眼都可以看清表中的數(shù)字，是不是比較帥？！想在你的表格中也有這樣的功能嗎？快來一起學(xué)習(xí)如何操作吧！

操作步驟：

1、添加代碼

在工作表標(biāo)簽上右鍵 - 查看代碼打開VBE窗口- 把下面的代碼粘貼右側(cè)的代碼框空白處，關(guān)于彈出的VBE窗口

讓領(lǐng)導(dǎo)看傻！可以自動縮放的Excel表格來了！

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,那么當(dāng)在A1輸入1時就會啟用字體放大功能。

2、另存文件

文件 - 另存為啟用宏的工作簿格式

讓領(lǐng)導(dǎo)看傻！可以自動縮放的Excel表格來了！

設(shè)置完成！值得注意的是，添加代碼后，當(dāng)前工作表中將右鍵粘貼功能將失效，你可以打開剪粘板進(jìn)行復(fù)制粘貼。如果想徹底取消，把代碼刪除即可。

互聯(lián)網(wǎng)時代，Excel早已成為了財務(wù)人員職場必備技能，就像珠算之于賬房先生、點(diǎn)鈔之于收銀員、方向盤操控之于司機(jī)一樣，Excel的熟練程度，不僅決定了一個人能否勝任工作，更決定了職場人的工作效率，決定了一個人在職場上是否能夠脫穎而出。如果你想提升自己的工作效率，請關(guān)注正保會計網(wǎng)校胡雪飛老師的《財務(wù)人玩轉(zhuǎn)Excel的25節(jié)實(shí)操課》吧。

本課程帶你從基礎(chǔ)鞏固到實(shí)戰(zhàn)應(yīng)用全面提升，三大階段、二十五講，操作真實(shí)的財務(wù)數(shù)據(jù)來訓(xùn)練你的excel快捷操作、公式、函數(shù)、圖表的應(yīng)用，提升你的數(shù)據(jù)處理和分析思維，培養(yǎng)職場競爭優(yōu)勢，點(diǎn)擊報名>>