VBA中,用按钮将指定单元格的值依次赋值到另外的单元格里。

VBA中,用按钮将指定单元格的值依次赋值到另外的单元格里。如图,右侧生成订单按钮需要将白酒五吨和啤酒十吨,是否加急,所需车辆,总费用依次赋值到左侧的大表格里。要求每次点击生成订单,都能生成一个新的订单号,并记录信息。

点按钮【生成订单】的时候把订单区域的内容添加到左边A列的最后区域,并且订单号+1,可以用下面的代码:

Dim i,j,no,v
i=cells(rows.count,1).end(xlup).row() 'A列最后一行
no=cells(i,1)+1 '订单号+1
i=i+1'输出新订单到下一行
cells(i,1)=no
j=2'保存结果列
for each v in range("J10:L15").cells '订单区域你需要修改,图片看不清楚
    cells(i,j)=v
    j=j+1'下一列
next v

图片看不清楚,假设订单号在A列,如果不是你可以自行修改。

如果需要编写完整的代码,请在百度云上把你现在的文件分享给我。

温馨提示:答案为网友推荐,仅供参考
相似回答