入库单(出库单)内容如何自动归集到另一工作表中

HENRYNG

我想让入库单(出库单)里输入完内容后按"审核无误"后自动归集到另一工作表中,同时入库单(出库单)自动清空并产生新的单号,怎样才能实现?请各位高手帮帮我!!

请详细说明方法与步骤,本人很菜.

fjzjyan

按ALT+F11进入VBE界面分别将三个工作表代码名称(按F4从属性窗口设)设置为ws1、ws2、ws3，插入一个模块编写如下代码并将其加载到一个窗体控件即可。

Sub rk()
Dim rg As Range
Dim rg1 As Range
Dim x As Integer
Dim i As Integer
x = ws3.[a1].CurrentRegion.Rows.Count
Set rg = ws3.[c2:c65536]
Set rg1 = rg.Find(ws1.[g2])
If Not rg1 Is Nothing Then
MsgBox "此入库单已存在,请核准"
Exit Sub
End If
For i = 5 To 17
If ws1.Cells(i, 1) <> "" Then
ws3.Cells(x + 1, 1) = ws1.[b3]
ws3.Cells(x + 1, 2) = ws1.[g3]
ws3.Cells(x + 1, 3) = ws1.[g2]
ws1.Range(ws1.Cells(i, 1), ws1.Cells(i, 4)).Copy ws3.Cells(x + 1, 4)
ws1.Range(ws1.Cells(i, 5), ws1.Cells(i, 7)).Copy ws3.Cells(x + 1, 9)
x = x + 1
End If
Next i
MsgBox "此入库单已成功入库"
End Sub

liu2004

[em17]

huaqiang520

先看看，是否我也能用

andy_liuhua

thanks evry much, I like it, too.

loginwjd303

我也来看看

heyuli

我看不明白`技术还不够`呵呵`以后我会看明白的

jtgyjyy

我真好要找这个，不知道能不能用。现谢谢。

lisa1211

你太优秀了！好想向你学习啊！

zss427607

你太优秀了！好想向你学习啊！