[已解决]求仙人指点 想将表1中蓝框内每次输入的数据点击保存后依次排序保存到表2相应格中

longjingcha1122

附件中表  
表1 蓝色单元格填写数据  加个按钮 点击后 数据在表2中 依次向下自动保存
不懂vb 前辈们要是能把表 直接做成再上传上来最好了 哈哈  或者回帖指导也行

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-8-30 17:07

油表830.rar (12.11 KB, 下载次数: 37)

2015-8-30 17:07 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

1. Sub qcw()
   
2. Dim i%
   
3. With Sheet3
   
4. i = .Range("a65536").End(xlUp).Row + 1
   
5.   .Cells(i, 1) = [J5]
   
6.   .Cells(i, 2) = [B3]
   
7.   .Cells(i, 3) = [H3]
   
8.   .Cells(i, 4) = [I4]
   
9.   .Cells(i, 5) = [O4]
   
10.   .Cells(i, 6) = [E5]
    
11.   .Cells(i, 7) = [C6]
    
12.   .Cells(i, 8) = [I6]
    
13.   .Cells(i, 9) = [I6] + [C6]
    
14. End With
    
15. End Sub

复制代码

七彩屋

油表830.rar (12.11 KB, 下载次数: 37)

2015-8-30 17:07 上传

点击文件名下载附件

longjingcha1122

谢谢前辈指点

王长森

请高人指点

王长森

你高人帮我，每次开单后将蓝色区域自动依次保存到订单汇总里。