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

fsjt · 发表于 2004-11-12 15:16

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

具体要求见附件

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

[此贴子已经被作者于2004-11-12 15:24:13编辑过]

taller · 发表于 2004-11-12 15:23

楼主选择文件后,请不要忘记点上传按钮

fsjt · 发表于 2004-11-12 15:25

文件已传上.

taller · 发表于 2004-11-12 15:49

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

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

llgo · 发表于 2004-11-13 09:45

运行结果不对啊。

客户编号：

送货日期：

发货单号：

A0411001

采购单号：

发货类型：

附言：

订单编号

产品名称

规格

kg/桶

数量

公斤

单位

单价

金额

8001

20KG/20L

5

8001

10KG/10L

20

8001

4KG/4L*6

1

8001

160KG/200L

2

llgo · 发表于 2004-11-13 09:46

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

lgf727 · 发表于 2004-11-13 10:34

我做了一个

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

taller · 发表于 2004-11-13 11:11

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)

fsjt · 发表于 2004-11-13 11:40

谢谢大家!

llgo · 发表于 2004-11-15 12:34

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

		自动登录	找回密码
密码			免费注册