凭证数据录入

月满西楼雪

我照书上写的好像有问题，那位高手帮忙看看我的保存的代码，帮忙修改下，谢谢啦

月满西楼雪

baigangliao 发表于 2012-11-30 17:20
断章取义。。。。。。。。。。。。。。

刚开始学，见谅

王小博vba

这是你的代码，发现几处明显不正确的地方，所以想问问你这个程序具体想实现怎么样的功能？比如把凭证信息像凭证记录那页写的时候，是要合并每张凭证上的所有信息后再拷贝吗？
子过程里，是谁给谁赋值？不给子过程传参数，子过程怎么得到空行行号？获得空行行号的语句确定能获得空行的行号嘛？

1. 
   
2. Private Sub cmdbaocun_Click()        '单击“新增”按钮时运行程序
   
3.     '判断在对话框中按下哪个按钮
   
4.     If MsgBox("确定保存此凭证录吗？", vbQuestion + vbYesNo, "询问") = vbYes Then
   
5.          '取得第一条空行行号
   
6.         nrow = Worksheets("凭证录入").Range("b5").Range("b5").CurrentRegion.Rows.Count + 1
   
7.         Call findi                   '运行edit过程
   
8.     End If
   
9. End Sub
   
10. 
    
11. 
    
12. 
    
13. Sub findi()      '子过程
    
14. '将“记账凭证”中nrow行的记录写入“凭证录入”表中
    
15.     With Worksheets("凭证录入")
    
16.         Range("D7:G16").Value = .Range(.Cells(nrow, 6), .Cells(nrow, 9)).Value
    
17.         Range("C7:C16").Value = .Cells(nrow, 5).Value
    
18.         Range("H5").Value = .Cells(nrow, 1).Value
    
19.         Range("H6").Value = .Cells(nrow, 2).Value
    
20.         Range("H7").Value = .Cells(nrow, 3).Value
    
21.         Range("C17").Value = .Cells(nrow, 4).Value
    
22.         Range("G4").Value = .Cells(nrow, 5).Value
    
23.               
    
24.     End With
    
25. End Sub

复制代码

王小博vba

想抄别人的代码用，起码要明白别人的代码每一句是什么意思吧。自己如果没看懂，直接到这找别人给做好，自己仍然是一无所获啊。{:soso_e100:}学VBA的一点心得，大家共勉

月满西楼雪

王小博vba 发表于 2012-11-30 18:27
这是你的代码，发现几处明显不正确的地方，所以想问问你这个程序具体想实现怎么样的功能？比如把凭证信息像 ...

意思就是想把记账凭证中的内容自动填写入凭证录入表中，将C7:G16内容写入凭证录入F5:J14;将年月日都写到A5:C14;附件数.凭证数写到D4:E14

月满西楼雪

目的就是这样，当录入下一个是就自动往下继续添加

月满西楼雪

王小博vba 发表于 2012-11-30 18:27
这是你的代码，发现几处明显不正确的地方，所以想问问你这个程序具体想实现怎么样的功能？比如把凭证信息像 ...

我重新发了个附件，麻烦帮忙看看

月满西楼雪

王小博vba 发表于 2012-11-30 18:30
想抄别人的代码用，起码要明白别人的代码每一句是什么意思吧。自己如果没看懂，直接到这找别人给做好，自己 ...

我也是刚在学习，慢慢一步一步来的

hehex

月满西楼雪 发表于 2012-11-30 19:10
我也是刚在学习，慢慢一步一步来的

首先sub ,function 之类的代码应该放在模块里，而不应该放在工作表的代码区，工作表代码区应该放工作表事件或者工作表控件事件响应的代码。
你应该插入一个模块然后把sub 那部分剪切到模块里。
其次，初学的时候一定要养成定义变量的习惯，可以选择强制声明变量，这样不容易出错，而且用变量的时候脑子会很清楚。
以上2点貌似和写代码没有直接关系，但是这种好习惯是很重要的。
看你的代码(红色是给你修改的)：
  Private Sub cmdbaocun_Click()        '单击“保存”按钮时运行程序      dim nrow as Long   '声明变量为长整数型
    '判断在对话框中按下哪个按钮
    If MsgBox("确定保存此凭证录吗？", vbQuestion + vbYesNo, "询问") = vbYes Then
         '取得第一条空行行号
     '  因为你的凭证 录入表不是连续区域用这种Currentregion 的方法去找最终行不准确     
      nrow = Worksheets("凭证录入").Range("a65536").End(xlup).row + 1 ' 这种方法书上有自己去查
     
        Call findi(nrow)                   '运行edit过程,nrow 是你在本过程内定义的变量，离开本过程就被释放了，所以必须作为参数传递到sub 子过程里


    End If
End Sub


'同理在sub 过程内需要定义你传进来的参数
Sub findi(nrow As Long)      '子过程, 注意这里的nrow 虽然和传进来的参数同名，但是这个nrow 只能在findi 子过程起作用，离开就失效了,是用来接收你传进来的参数
'将“记账凭证”中nrow行的记录写入“凭证录入”表中,nrow 是凭证录入表的第一条空行，不是记账凭证表，这里看出来你脑子是混乱的
      Sheets("凭证录入").Select       '你要往第2张表里写，当然要先选中它,否则后面的Range 引用都是默认第一张表的
      With Worksheets("记账凭证")

        Range("C7:C16").Value = .Cells(nrow, 5).Value
        Range("H5").Value = .Cells(nrow, 1).Value
        Range("H6").Value = .Cells(nrow, 2).Value
        Range("H7").Value = .Cells(nrow, 3).Value
        Range("C17").Value = .Cells(nrow, 4).Value
        Range("G4").Value = .Cells(nrow, 5).Value

    End With
End Sub
后面不分析了，你自己根据我的意见，想办法改好它，就不替你写了，自己不亲自动手一点点调试，是学不会的。