不知道大家有沒有這樣的感覺,當(dāng)你查看Excel數(shù)據(jù)表中某行記錄時,由于數(shù)據(jù)表中的字段較多,需要拖動水平滾動條才能將整個表格的內(nèi)容看完,這樣很容易“看走眼”,不小心就會將上面一行或下面一行的內(nèi)容錯看成當(dāng)前記錄的數(shù)據(jù)。這樣的數(shù)據(jù)交給領(lǐng)導(dǎo),可是要挨批噢,其實通過下面的幾行VBA代碼,你就可以輕輕松松地查看記錄了,操作步驟如下:
打開某工作表(假設(shè)為“Sheet1”),單擊“工具”菜單中的“宏”,選擇“Visual Basic編輯器”命令,雙擊左側(cè)窗口中對應(yīng)的工作表標(biāo)簽名稱,在彈出的代碼窗口中輸入如下VBA代碼:
Private Sub WorksheetSelectionChange(ByVal Target As Range)
If Target.EntireRow.Interior.ColorIndex10 Then
Target.EntireRow.Interior.ColorIndex = 10Else
Target.EntireRow.Interior.ColorIndex = 0End IfEnd Sub
關(guān)閉代碼窗口回到Excel工作表中,若需要查看某行記錄,只需單擊該行中的任一單元格,此時該行將會自動填充綠色并高亮顯示(若需改為其它顏色只需改變代碼中相應(yīng)的數(shù)值即可),再次單擊該行中任一單元格將取消背景色的填充。另外可同時使多行記錄填充背景,以方便查看或?qū)Ρ缺砀裰械臄?shù)據(jù)。
編輯提示:雖然單擊記錄前的行號可選定整行記錄,相對之下,本文提供的方法在日常辦公中更為方便和快捷。
打開某工作表(假設(shè)為“Sheet1”),單擊“工具”菜單中的“宏”,選擇“Visual Basic編輯器”命令,雙擊左側(cè)窗口中對應(yīng)的工作表標(biāo)簽名稱,在彈出的代碼窗口中輸入如下VBA代碼:
Private Sub WorksheetSelectionChange(ByVal Target As Range)
If Target.EntireRow.Interior.ColorIndex10 Then
Target.EntireRow.Interior.ColorIndex = 10Else
Target.EntireRow.Interior.ColorIndex = 0End IfEnd Sub
關(guān)閉代碼窗口回到Excel工作表中,若需要查看某行記錄,只需單擊該行中的任一單元格,此時該行將會自動填充綠色并高亮顯示(若需改為其它顏色只需改變代碼中相應(yīng)的數(shù)值即可),再次單擊該行中任一單元格將取消背景色的填充。另外可同時使多行記錄填充背景,以方便查看或?qū)Ρ缺砀裰械臄?shù)據(jù)。
編輯提示:雖然單擊記錄前的行號可選定整行記錄,相對之下,本文提供的方法在日常辦公中更為方便和快捷。