不知道大家有沒有這樣的感覺，當你查看Excel數(shù)據(jù)表中某行記錄時，由于數(shù)據(jù)表中的字段較多，需要拖動水平滾動條才能將整個表格的內(nèi)容看完，這樣很容易“看走眼”，不小心就會將上面一行或下面一行的內(nèi)容錯看成當前記錄的數(shù)據(jù)。這樣的數(shù)據(jù)交給領導，可是要挨批噢，其實通過下面的幾行VBA代碼，你就可以輕輕松松地查看記錄了，操作步驟如下：
打開某工作表(假設為“Sheet1”)，單擊“工具”菜單中的“宏”，選擇“Visual Basic編輯器”命令，雙擊左側窗口中對應的工作表標簽名稱，在彈出的代碼窗口中輸入如下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
關閉代碼窗口回到Excel工作表中，若需要查看某行記錄，只需單擊該行中的任一單元格，此時該行將會自動填充綠色并高亮顯示(若需改為其它顏色只需改變代碼中相應的數(shù)值即可)，再次單擊該行中任一單元格將取消背景色的填充。另外可同時使多行記錄填充背景，以方便查看或對比表格中的數(shù)據(jù)。
編輯提示：雖然單擊記錄前的行號可選定整行記錄，相對之下，本文提供的方法在日常辦公中更為方便和快捷。
打開某工作表(假設為“Sheet1”)，單擊“工具”菜單中的“宏”，選擇“Visual Basic編輯器”命令，雙擊左側窗口中對應的工作表標簽名稱，在彈出的代碼窗口中輸入如下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
關閉代碼窗口回到Excel工作表中，若需要查看某行記錄，只需單擊該行中的任一單元格，此時該行將會自動填充綠色并高亮顯示(若需改為其它顏色只需改變代碼中相應的數(shù)值即可)，再次單擊該行中任一單元格將取消背景色的填充。另外可同時使多行記錄填充背景，以方便查看或對比表格中的數(shù)據(jù)。
編輯提示：雖然單擊記錄前的行號可選定整行記錄，相對之下，本文提供的方法在日常辦公中更為方便和快捷。