[已解决]求助：期末结转应付余额到供货商期初余额，出现复制公式的错误，求解决

wangxk0807

期末结转“应付余额”是VBA代码公式计算的余额，要求把余额数值复制到供货商信息的期初余额，结果复制的是公式，不是数值。导致下期无法使用,另外应付余额最后的合计数数值不进行结转复制，只结转复制客户余额，谢谢老师了！

最佳答案

月排行榜 / 总排行榜

su45

2016-8-27 10:55

求助结转错误-进销存.zip (210.06 KB, 下载次数: 23)

2016-8-27 10:55 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

这一段改成
'---------------------------------------------------
    Sheets("应付余额").Select
    Call 应付余额
    a = Range("A65536").End(xlUp).Row - 1
    Range("g2:g" & a).Copy
    Sheets("供货商信息").Range("c2").PasteSpecial xlPasteValues
    '----------------------------------------------------
    Sheets("应收余额").Select
    Call 应收余额
    a = Range("A65536").End(xlUp).Row - 1
    Range("g2:g" & a).Copy
    Sheets("客户信息").Range("c2").PasteSpecial xlPasteValues
    '--------------------------------------------------------

su45

求助结转错误-进销存.zip (210.06 KB, 下载次数: 23)

2016-8-27 10:55 上传

点击文件名下载附件

wangxk0807

zjdh 发表于 2016-8-27 10:21
这一段改成
'---------------------------------------------------
    Sheets("应付余额").Select

谢谢，老师给我帮助这么多

su45

1. Sub RuKu_QingKong()
   
2. Application.ScreenUpdating = False
   
3. Application.Calculation = xlCalculationManual
   
4. With Sheets("入库单")
   
5.     .Unprotect
   
6.     .Range("K3") = .Range("K3") + 1
   
7.     .Range("D4").Value = ""
   
8.     .Range("F4").Value = ""
   
9.     .Range("D108").Value = ""
   
10.     .Range("H108").Value = ""
    
11.     .Range("K4") = Format(Date, "yyyy-mm-dd")
    
12.     .Range("C7:I106").ClearContents
    
13.     .Range("K7:K106").ClearContents
    
14.     .Rows("22:106").EntireRow.Hidden = True
    
15.     .Range("D4").Select
    
16. End With
    
17. ActiveWindow.ScrollRow = 3
    
18. Sheets("入库单").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
    
19. Application.Calculation = xlCalculationAutomatic
    
20. Application.ScreenUpdating = True
    
21. End Sub
    

复制代码