根据送货号码自动生成送货单,请各高手赐教

根据送货单号码,自动生成送货单内容,

具体要求见附件

G1T5Gh5N.rar (6.43 KB, 下载次数: 114)

2004-11-12 15:26 上传

点击文件名下载附件
根据送货号码自动生成送货单,请各高手赐教

帮你简单的实现了一下,自己完善一下

Private Sub Worksheet_Change(ByVal Target As Range) Dim iKey, rng As Range, iR As Integer Application.EnableEvents = False With Target If .Count = 1 Then If .Address = "$K$2" And .Value <> "" Then iKey = .Value Set rng = Sheet1.Columns("I") If Application.WorksheetFunction.CountIf(Sheet1.Columns(9), iKey) = 0 Then MsgBox "Can't find " & .Value .Value = "" Exit Sub Else Range("A5:L31").ClearContents iR = 5 Set c = rng.Find(iKey, , xlValues, xlWhole) If Not c Is Nothing Then stAdd = c.Address Do Cells(iR, 1) = c.Offset(0, -6) Cells(iR, 3) = c.Offset(0, -4) Cells(iR, 4) = c.Offset(0, -3) Cells(iR, 5) = c.Offset(0, -2) iR = iR + 1 Set c = rng.FindNext(c) Loop While Not c Is Nothing And c.Address <> stAdd End If End If End If End If End With Application.EnableEvents = True End Sub

运行结果不对啊。

请再帮忙看看，这东东我也正想要，谢谢了。

我做了一个

bXzp1seK.rar (11.95 KB, 下载次数: 259)

To 5楼我的给出的是示例,你可以自己更改赋值部分,

Cells(iR, 1) = c.Offset(0, -6) Cells(iR, 3) = c.Offset(0, -4) Cells(iR, 4) = c.Offset(0, -3) Cells(iR, 5) = c.Offset(0, -2)

谢谢大家!

谢谢7楼，但送货单上的客户编号的日期等还是没出现啊。