<p>也可以试一下这个:</p><p>rivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)<br/>Application.ScreenUpdating = True<br/>End Sub<br/></p>
<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>wayy</i>在2008-1-29 8:21:00的发言:</b><br/><p>也可以试一下这个:</p><p>rivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)<br/>Application.ScreenUpdating = True<br/>End Sub<br/></p></div><p></p> 学习了!