Office中国论坛/Access中国论坛

标题: 入库单(出库单)内容如何自动归集到另一工作表中 [打印本页]

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

请详细说明方法与步骤,本人很菜.[attach]24511[/attach]

作者: fjzjyan 时间: 2007-5-20 20:04
按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
[attach]24526[/attach]

作者: liu2004 时间: 2007-5-21 19:08
[em17]

作者: huaqiang520 时间: 2009-1-2 15:19
先看看，是否我也能用

作者: andy_liuhua 时间: 2009-6-13 15:57
thanks evry much, I like it, too.

作者: loginwjd303 时间: 2009-9-8 09:26
我也来看看

作者: heyuli 时间: 2009-9-14 00:46
我看不明白`技术还不够`呵呵`以后我会看明白的

作者: jtgyjyy 时间: 2009-10-8 18:59
我真好要找这个，不知道能不能用。现谢谢。

作者: lisa1211 时间: 2009-10-12 19:15
你太优秀了！好想向你学习啊！

作者: zss427607 时间: 2009-10-22 20:29
你太优秀了！好想向你学习啊！

作者: 雨后的天空 时间: 2009-12-9 10:33
这正是我想要的太谢谢了

作者: 雨后的天空 时间: 2010-3-9 20:21
不错的东西学学

作者: dyjxjj 时间: 2010-7-17 10:03
学习下

作者: biylgyiyygn 时间: 2011-5-29 14:33

这正是我想要的太谢谢了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)