“对账”的宏代码.docx

Sub对账()

DimLineNo1AsInteger银行存款日记账初始行号

LineNo1=5

Dimsheet1AsWorksheet

Setsheet1=Worksheets(银行存款日记账)

Dimsheet2AsWorksheet

Setsheet2=Worksheets(银行对账单)

sheet1.Columns(l:l).ClearContents

sheet2.Columns(h:h).ClearContents

DoWhilesheet1.Cells(LineNo1,11).Value余额数据不为空

jf=sheet1.Cells(LineNo1,9).Value借方金额

df=sheet1.Cells(LineNo1,10).Value贷方金额

lineno2=6银行对账单初始行号

IfjfThen

DoWhilesheet2.Cells(lineno2,6).ValueOrsheet2.Cells(lineno2,5).Value借方或贷方金额不为空

Ifjf*1=sheet2.Cells(lineno2,6).Value*1Andsheet2.Cells(lineno2,8).Value√Then如果金额相等，并且还没有对过账

sheet1.Cells(LineNo1,12).Value=√

sheet2.Cells(lineno2,8).Value=√

ExitDo

EndIf

lineno2=lineno2+1

Loop

Else

DoWhilesheet2.Cells(lineno2,5).ValueOrsheet2.Cells(lineno2,6).Value借方或者贷方金额不为空

Ifdf*1=sheet2.Cells(lineno2,5).Value*1Andsheet2.Cells(lineno2,8).Value√Then如果金额相等并且还没有对过账

sheet1.Cells(LineNo1,12).Value=√

sheet2.Cells(lineno2,8).Value=√

ExitDo

EndIf

lineno2=lineno2+1

Loop

EndIf

LineNo1=LineNo1+1

Loop

EndSub