第一步，添加<開發(fā)工具>到菜單欄(2007、2010版Office必須)流程：Office按鈕→Excel選項(xiàng)→常用→在功能區(qū)顯示“開發(fā)工具”選項(xiàng)卡(打√)；

第二步，設(shè)置宏安全性等級(jí)流程：開發(fā)工具→宏安全性→宏設(shè)置→啟用所有的宏(選中)；

第三步，將以下代碼考錄到Sheet1(代碼)窗口中，設(shè)置VBA代碼流程：開發(fā)工具→VisualBaaic→Sheet1(Sheet1)(雙擊)；

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

IfTarget.Row>=5AndTarget.Row<=70Then'指定行

IfTarget.Column=9OrTarget.Column=10OrTarget.Column=11OrTarget.Column=16OrTarget.Column=17Then'指定列

'限定只有在點(diǎn)擊I、J、K、P、Q五列并且在>=第5行到<=第70行之間的單元格才變色

Target.Parent.Range("G3:w70").Interior.ColorIndex=xlNone'清除工作表單元格的原來的背景色

Range(Target.Offset(0,7-Target.Column),Target.Offset(0,-1)).Interior.Color=vbGreen'設(shè)置所在行變?yōu)榫G色，vbGreen可改變

Range(Target.Offset(3-Target.Row,0),Target.Offset(-1,0)).Interior.Color=vbGreen'設(shè)置所在行列為綠色，vbGreen可改變

EndIf

EndIf

EndSub

第四步，保存(2003版不需要選保存類型)流程：文件→保存→保存類型→Excel啟用宏的工作簿(*.xlsm)(選中)→保存；

第五步，設(shè)置效果，點(diǎn)擊需錄入的單元格，對(duì)應(yīng)的行列即自動(dòng)變色。

謝謝您的閱讀！我是#Excel財(cái)務(wù)VBA#，懂會(huì)計(jì)的程序員，Excel&VBA精通。上面回答如果對(duì)您有幫助，或需要更多自動(dòng)化財(cái)務(wù)表單原創(chuàng)模板下載，請(qǐng)記得點(diǎn)贊、分享、關(guān)注我的“Excel財(cái)務(wù)VBA”哦！