求助：大家好有那位大虾帮忙解决录入的问题？

menghuan-abin

大家好。我是公司的助理，每天要有好多的事，还要录入发货单，我为了方便自己做了一个发货录入的界面。现在请大虾帮忙看怎么把录入成“发货表”的这种行试。谢谢，急用。十分感谢。我还是个菜鸟。敬请帮助。

menghuan-abin

十分感谢你，朋友，我也是菜鸟中的菜鸟了。
我的这个是要追加的。也就是当有“发货表”有和录入表“小杨发货”中收货公司，和产品明称相同就把记录“日期和数量”按那表的行事追加到后边。

chenyuanwen

这是顶级高手Rowen的大作，非常好。我觉得很适合你。建议你参考参考。
http://club.excelhome.net/thread-24816-1-2.html

cathylu1983

建议确定按钮的代码：
Sub()
Dim i As Integer
Dim j As Integer
Dim a As Integer
i = Val(Sheets("小杨发货").Cells(6, 3).Value) + 8
For j = 9 To i
a = Val(Sheets("发货单").Cells(1, 2).Value) + 4
Sheets("发货单").Cells(a, 1).Value = Sheets("小杨发货").Cells(7, 3).Value
Sheets("发货单").Cells(a, 2).Value = Sheets("小杨发货").Cells(j, 4).Value & Sheets("小杨发货").Cells(j, 5).Value & Sheets("小杨发货").Cells(j, 6).Value
Next j
end sub

cathylu1983

另外清楚的代码可以用clearcontents方法
sheets("小杨发货").range("D9:I22").clearcontents

cathylu1983

我也是个菜鸟~~

cathylu1983

你是助理么？我以前也是助理哦~~~每天也有好多事情~~但是我以前特别笨，老被人欺负，像录入数据都是手工一个一个的录入，可笨了~~哎~···！！

cathylu1983

学习中~~

menghuan-abin

谢谢你朋友。

menghuan-abin

哈哈。我们这个助理可是不怎么好做呀？我的上级是老板的妹妹。这大小姐的脾气的时时注意呀。叫我们共同的学习吧。