<P>下载你设计的帐务处理方法,真的很精美,想用在实际工作中,可是我的电脑出现编译错误,----不可识别定义的对象,不知为什么:如下;</P>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("分录表").Activate
<p>
Columns("A:N").Select
<p>
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
<p>
<p>
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
<p>
<p>
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
<p>
<p>
SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
<p>
<p>
xlSortNormal, DataOption3:=xlSortNormal
<p>
<p>
Cells(1, 1).Select
<p>
<p>
Worksheets("记账凭证").Activate
<p>
End Sub
<p>
<P>希望能给予帮忙!!!</P>
<P>再你有没有明细帐处理的方法?如果有好的方法的话,把它全部用在工作中我真的就轻松多了.</P>
[此贴子已经被作者于2005-5-26 22:45:50编辑过] |