材料/工具
Microsoft Office 2007
方法
按下Alt+F11进入VB编辑器,双击左侧 的“Thisworkbook”,进入编辑。
粘贴以下代码:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy And n = 1 Then n = 0: End
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 34
Target.EntireColumn.Interior.ColorIndex = 34
End Sub
点击保存按钮或Ctrl+s,如果提示警告选择确定。
然后就完成了!
声明:本文由用户 那谁你有我帅吗 上传分享,本网页内容旨在传播知识,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。TEL:0731-84117792 E-MAIL:11247931@qq.com