凭证数据录入

月满西楼雪

hehex 发表于 2012-11-30 19:34
首先sub ,function 之类的代码应该放在模块里，而不应该放在工作表的代码区，工作表代码区应该放工作表事 ...

非常感谢，我试试

月满西楼雪

hehex 发表于 2012-11-30 19:34
首先sub ,function 之类的代码应该放在模块里，而不应该放在工作表的代码区，工作表代码区应该放工作表事 ...

我试着写了下，年月日等不好添加，我用了辅助列，看看可以吧。谢谢诶

月满西楼雪

我试着写了下，年月日等不好添加，我用了辅助列，看看可以吧。谢谢诶

hehex

月满西楼雪 发表于 2012-12-1 12:12
我试着写了下，年月日等不好添加，我用了辅助列，看看可以吧。谢谢诶

程序基本上实现保存的功能了，一些细节还是要考虑，比如点保存之后就把A 表记录复制到B 表去了，A 表的记录是否还应该留在那里，这个是要具体情况分析的。如果留在那里的话，你手一抖多点一次保存是不是就多复制一次，那记录那个表格就有双倍记录了。这个与填入库单挺类似，有的系统是要求保存后自动清除相关记录，有的不是。

年月日那个不好添加是怎么回事，我觉得很简单啊。没必要非用vba 去弄，工作表函数可以很轻松。
你在需要添加年的单元格输入 =year(now()) ，月 =month(now()), 日 =day(now()) 打开表的时候，系统就自动添加了。如果需要存到记录表里，就把相关单元格的值在保存的程序里也一样复制到记录表里就是了。

月满西楼雪

hehex 发表于 2012-12-1 14:27
程序基本上实现保存的功能了，一些细节还是要考虑，比如点保存之后就把A 表记录复制到B 表去了，A 表的记 ...

明白啦，还有个问题就是如果我手动删除凭证录入中的数据，下次再通过记账凭证保存数据时，凭证录入表中会出现空行，请问是怎么回事？

hehex

月满西楼雪 发表于 2012-12-1 15:43
明白啦，还有个问题就是如果我手动删除凭证录入中的数据，下次再通过记账凭证保存数据时，凭证录入表中会 ...

估计是nrow 变量定位凭证录入表的第一行空行有问题，你可以把凭证录入表都清空。
然后再保存模块里，添加类似 msgbox "凭证录入表第一条空记录的行号为" &nrow 之类的调试语句，这样可以直观的知道你的行定位语句是否有问题，哪里发生了问题。

月满西楼雪

hehex 发表于 2012-12-2 12:57
估计是nrow 变量定位凭证录入表的第一行空行有问题，你可以把凭证录入表都清空。
然后再保存模块里，添加 ...

Sub findi(nrow As Long)

      Sheets("记账凭证").Select
     With Worksheets("凭证录入")
         .Range(.Cells(nrow, 6), .Cells(nrow + Range("m1"), 6)).Value = Range("C7:c16").Value
         .Range(.Cells(nrow, 8), .Cells(nrow + Range("m1"), 11)).Value = Range("d7:g16").Value
         .Range(.Cells(nrow, 2), .Cells(nrow + Range("m1"), 5)).Value = Range("I7:l16").Value
      
   End With
  End Sub



我在表中用函数统计了每次凭证的行数在M1单元格，现在好像可以啦

月满西楼雪

在做查询时，要同时满足两个条件怎么做；还有调用函数统计时，也不对，见标注的查询代码？？

月满西楼雪

hehex 发表于 2012-12-2 12:57
估计是nrow 变量定位凭证录入表的第一行空行有问题，你可以把凭证录入表都清空。
然后再保存模块里，添加 ...

又要麻烦你了，想做个查询，有三个问题不能解决，一个同时满足两个条件是如何定位行；还有调用函数时统计行数是，提示没有结束语句什么意识；还有查询过来时空余的行出现#N/A.现在这谢谢你拉，对我学习的帮助

hehex

月满西楼雪 发表于 2012-12-3 00:47
又要麻烦你了，想做个查询，有三个问题不能解决，一个同时满足两个条件是如何定位行；还有调用函数时统计 ...

把你尝试过的，但是有错误的代码发上来看看。
还有详细的功能说明，查询什么，怎么查,结果在哪里显示等等。