[已解决]求叠加记录一次的代码，各位帮下忙！谢了！

pangwen_822

求变量表中数量栏数据每改变一次，就在记录库中叠加记录一次r的代码。如上:第5行是变量表中数量栏第一次发生数据记录，第6行是变量表中数量栏第二次发生数据记录、、、、谢了，各位帮下忙！

可能说得不明白，附件： 叠加.rar (6 KB, 下载次数: 12)

2011-4-1 16:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-4-1 18:22

回复 pangwen_822 的帖子

1. Sub 录入数据()
   
2.     Dim Ro As Long
   
3.     Dim Co As Long
   
4.     Co = Sheets("变量表").[E65536].End(xlUp).Row
   
5.     Ro = Sheets("记录库").[A65536].End(xlUp).Row + 1
   
6.     For i = 1 To Co
   
7.     Sheets("记录库").Cells(Ro, i) = Sheets("变量表").Cells(i, 5)
   
8.     Next
   
9.     MsgBox "录入完成!"
   
10. End Sub

复制代码

叠加.rar (16.42 KB, 下载次数: 27)

2011-4-1 18:22 上传

点击文件名下载附件

跳转到最佳答案楼层

pangwen_822

5555555555555555555,imc 人、、、、、、、、、

兰色幻想

怎么算是改变？什么时候填充？

sunjing-zxl

回复 pangwen_822 的帖子

1. Sub 录入数据()
   
2.     Dim Ro As Long
   
3.     Dim Co As Long
   
4.     Co = Sheets("变量表").[E65536].End(xlUp).Row
   
5.     Ro = Sheets("记录库").[A65536].End(xlUp).Row + 1
   
6.     For i = 1 To Co
   
7.     Sheets("记录库").Cells(Ro, i) = Sheets("变量表").Cells(i, 5)
   
8.     Next
   
9.     MsgBox "录入完成!"
   
10. End Sub

复制代码

叠加.rar (16.42 KB, 下载次数: 27)

2011-4-1 18:22 上传

点击文件名下载附件

pangwen_822

sunjing-zxl 发表于 2011-4-1 18:22
回复 pangwen_822 的帖子

谢谢！谢谢、、、

太谢谢了、、、

正是偶所需、、、

pangwen_822

回复 兰色幻想 的帖子

谢谢兰老师关心，在4楼已得偶所想、、、

UNA123

{:011:}{:011:}