哲學(xué)家小花說過：一個(gè)人之所以強(qiáng)大，

不在于他兼具無數(shù)的才能，

而是因?yàn)樗麚碛袩o限的可能。

Excel也是這樣。

垂涎WPS中的“聚光燈”？

Excel隨手便能完美復(fù)刻，

而且還是加強(qiáng)版的！

有圖有真相，來看效果！

有了聚光燈，媽媽再也不用擔(dān)心我看數(shù)據(jù)看到眼花繚亂了！

和小花一起動(dòng)動(dòng)手吧！

Step 1  

定義名稱

點(diǎn)擊【公式】—【定義名稱】按鈕，新建四個(gè)名稱，命名及用途如下：

MAXR：用于儲(chǔ)存選中區(qū)域最大行號(hào)，初始值1；

MAXC：最大列號(hào)，初始值1；

MINR：最小行號(hào)，初始值1；

MINC：最小列號(hào)，初始值1。

此處的初始值可以任意設(shè)置，后面我們會(huì)用VBA來更改它。

Step 2

編寫代碼

1，按Alt F11或點(diǎn)擊【開發(fā)工具】- 【Visual Basic】，進(jìn)入代碼窗口；

2，雙擊需要設(shè)置聚光燈效果的表格，復(fù)制下列代碼；

3，關(guān)閉代碼窗口，將工作簿保存為.xlsm（啟用宏的工作簿）格式。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'小花教你玩轉(zhuǎn)聚光燈（最大8*8）

Dim RG As Range

minb = 100000

mina = 100000

For Each RG In Target

If i <= 64 Then

   a = RG.Row

   b = RG.Column

   i = i 1

   If a >= maxa Then

    maxa = a

   End If

   If a <= mina Then

   mina = a

   End If

   If b >= maxb Then

   maxb = b

   End If

   If b <= minb Then

   minb = b

   End If

End If

Next

ThisWorkbook.Names('MAXR').Value = maxa

ThisWorkbook.Names('MINR').Value = mina

ThisWorkbook.Names('MAXC').Value = maxb

ThisWorkbook.Names('MINC').Value = minb

End Sub

小花叭叭叭：小花這次編寫的代碼是比較接地氣的，小伙伴們可以看一下，不難，真的不難！同時(shí)為了避免選中區(qū)域過大導(dǎo)致表格卡頓，小花將允許聚光的區(qū)域限制為64個(gè)單元格，小伙伴們可以根據(jù)需要自行調(diào)整限制哦！

Step 3

條件格式

選中要聚光的區(qū)域A1：G11，點(diǎn)擊【開始】—【條件格式】—新建規(guī)則，新建兩個(gè)規(guī)則，公式如下，格式可根據(jù)喜好自行設(shè)計(jì)，規(guī)則應(yīng)用于A1：G11：

規(guī)則1：用于同行或同列的數(shù)據(jù)

=((ROW()>=MINR)*(ROW()<=MAXR)) ((COLUMN()>=MINC)*(COLUMN()<=MAXC))

規(guī)則2：用于區(qū)別選中區(qū)域，可不設(shè)置。

=((ROW()>=MINR)*(ROW()<=MAXR))*((COLUMN()>=MINC)*(COLUMN()<=MAXC))

嘮嗑花

——————