|
请各位看看以下这段代码有什么问题,为什么总提示“else没有if"
b = 6
Do While b <= 12
If Cells(b, 6).Value <> "" Then
If Cells(b, 6).Value = "现 金" Then
Worksheets("现金日记账").Range("a3").Value = sYEAR
A = 6
Do While Len(Worksheets("现金日记账").Cells(A, 1).Value) > 0
A = A + 1
Loop
With Worksheets("现金日记账")
.Cells(A, 1).Value = bMONTH
.Cells(A, 2).Value = bDAY
.Cells(A, 3).Value = "外建"
.Cells(A, 4).Value = NUM
.Cells(A, 5).Value = sSUMMARY
.Cells(A, 6).Value = dDEBIT
.Cells(A, 7).Value = 0
.Cells(A, 8).FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
End With
ElseIf Cells(b, 6).Value = "银行存款" Then
Select Case Cells(b, 10).Value
Case "江翠建行"
Set WS = Worksheets("江建")
Case "外海工行"
Set WS = Worksheets("外工")
Case "外海信用社"
Set WS = Worksheets("外信")
Case "外海建行"
Set WS = Worksheets("外建")
Case "江门中行"
Set WS = Worksheets("江中")
Case "江门工行"
Set WS = Worksheets("江工")
Case "发展行迎宾办"
Set WS = Worksheets("迎发")
Case "发展行港口办"
Set WS = Worksheets("港发")
Case "中行建设支行"
Set WS = Worksheets("中行建设支行")
Case "中行建设支行"
Set WS = Worksheets("中行建设支行")
Case "工行港口支行"
Set WS = Worksheets("港工")
End Select
WS.Range("C6").Value = sYEAR
A = 9
Do While Len(WS.Cells(A, 3).Value) > 0
A = A + 1
Loop
With WS
.Cells(A, 3).Value = bMONTH
.Cells(A, 5).Value = bDAY
.Cells(A, 7).Value = Range("j1")
.Cells(A, 10).Value = NUM
.Cells(A, 11).Value = sSUMMARY
.Cells(A, 24).Value = dDEBIT
.Cells(A, 26).Value = 0
.Cells(A, 27).FormulaR1C1 = "=R[-1]C+RC[-3]-RC[-1]"
End With
ElseIf Cells(b, 6).Value = "管理费用" Then
Set WS = Worksheets("管理费用")
WS.Range("A3").Value = sYEAR
A = WS.Range("A65536").End(xlUp).Row
If Worksheets("付款凭证").Range("j1") <> WS.Cells(A, 4).Value Or Worksheets("付款凭证").Range("n4") <> WS.Cells(A, 5).Value Then
A = A + 1
End If
With WS
.Cells(A, 1).Value = bMONTH
.Cells(A, 2).Value = bDAY
.Cells(A, 4).Value = Worksheets("付款凭证").Range("j1")
.Cells(A, 5).Value = NUM
.Cells(A, 6).Value = sSUMMARY
End With
d = 11
For d = 11 To 23
If WS.Cells(3, d).Value = Worksheets("付款凭证").Cells(b, 10).Value Then
WS.Cells(A, d).Value = Worksheets("付款凭证").Cells(b, 12).Value
Exit For
End If
Next d
WS.Cells(A, 7).FormulaR1C1 = "=SUM(RC[4]:RC[16])"
ElseIf Cells(b, 10).Value = "应交增值税-已交税金" Then
Set WS = Worksheets("增值税")
WS.Range("A3").Value = sYEAR
A = WS.Range("A65536").End(xlUp).Row
With WS
.Cells(A, 1).Value = bMONTH
.Cells(A, 2).Value = bDAY
.Cells(A, 4).Value = Worksheets("付款凭证").Range("j1")
.Cells(A, 5).Value = NUM
.Cells(A, 6).Value = sSUMMARY
.Cells(A, 7).FormulaR1C1 = "=SUM(RC[1]:RC[6])"
.Cells(A, 9).Value = Worksheets("付款凭证").Cells(b, 12).Value
ElseIf Cells(b, 10).Value = "应交增值税-进项税额" Then
Set WS = Worksheets("增值税")
WS.Range("A3").Value = sYEAR
A = WS.Range("A65536").End(xlUp).Row
With WS
.Cells(A, 1).Value = bMONTH
.Cells(A, 2).Value = bDAY
.Cells(A, 4).Value = Worksheets("付款凭证").Range("j1")
.Cells(A, 5).Value = NUM
.Cells(A, 6).Value = sSUMMARY
.Cells(A, 7).FormulaR1C1 = "=SUM(RC[1]:RC[6])"
.Cells(A, 8).Value = Worksheets("付款凭证").Cells(b, 12).Value
Else
Set WS = Worksheets("明细账")
WS.Range("A3").Value = sYEAR
A = WS.Range("A65536").End(xlUp).Row
With WS
.Cells(A, 1).Value = bMONTH
.Cells(A, 2).Value = bDAY
.Cells(A, 4).Value = Worksheets("付款凭证").Range("j1")
.Cells(A, 5).Value = NUM
.Cells(A, 6).Value = sSUMMARY
.Cells(A, 8).VLAUE = Worksheets("付款凭证").Cells(b, 12).Value
.Cells(A, 13).Value = Worksheets("付款凭证").Cells(b, 6).Value
.Cells(A, 13).Value = Worksheets("付款凭证").Cells(b, 10).Value
End With
End If
End If
b = b + 1
Loop
|
|