送货单，怎样保存到单据查询

kitty1979 · 发表于 2010-1-22 21:01

送货单，怎样保存到单据查询，需要按顺序自上向下，请高手指点

xinjiana · 发表于 2010-2-22 11:08

问题问得不清楚，
需要用到VBA，
取数据，保存数据，
建议你看看vba板块的入门教程

slattn · 发表于 2010-2-25 22:41

可以加我QQ：747837156 或者至 http://www.goingt.com/jxc.asp 免费下载使用。
出库单和销售汇总表，能解决您上面的问题。
EXCEL操作界面，SQL后台数据库海量存储，简单实用。

bl13927751826 · 发表于 2010-5-11 17:14

不知道你现在弄到了没有，刚好今天收到了一个这样的表格（不是我做的，是家里人做的

）

38272508 · 发表于 2010-5-16 21:42

家里人

48016698 · 发表于 2010-5-22 21:21

不知道可以帮忙做成怎样的吗？做好请发sny780101@126.com谢谢

czljh · 发表于 2010-7-19 20:20

原帖由 bl13927751826 于 2010-5-11 17:14 发表
不知道你现在弄到了没有，刚好今天收到了一个这样的表格（不是我做的，是家里人做的）

Private Sub CommandButton1_Click() '查询
If [r1] < " " Then MsgBox "请填单据号": Exit Sub
[c3,c4,e4,q16,b7:f16] = ""
With Sheets("单据汇总")
      Set rg = .[a:a].Find([r1], , , 1)
      If rg Is Nothing Then MsgBox "没找到 " & [j2]: Exit Sub
      r = rg.Row
      [c3] = .Cells(r, 2)
      [c4] = .Cells(r, 3)
      [e4] = .Cells(r, 4)
      [q16] = .Cells(r, 5)
      [q8:q11] = "□"
      For i = 8 To 11
         If Range("p" & i) = .Cells(r, 7) Then Range("q" & i) = "■"
      Next i
End With
With Sheets("货物明细")
      r = .[a:a].Find([r1], , , 1).Row
      For h = 7 To 16
         If .Cells(r, 1) = [r1] Then
            Range("b" & h) = .Cells(r, 2)
            Range("d" & h) = .Cells(r, 3)
            Range("e" & h) = .Cells(r, 4)
            Range("f" & h) = .Cells(r, 5)
            r = r + 1
         End If
      Next h
End With
CommandButton3.Enabled = False
End Sub
请问，你里面的& [j2]: 是啥意思？

樱桃缘 · 发表于 2011-9-23 17:22

..不错.有才人
那个送货单正适合我

tlzhilian · 发表于 2012-6-25 20:30

送货单1.zip (63.05 KB, 下载次数: 40) 各位大虾帮我个忙,帮我改下单据编号的格式,就象你们发上来的那种,谢谢按新单,编号自动加1

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

[求助] 送货单，怎样保存到单据查询

回复 1楼 kitty1979 的帖子

RE: 送货单，怎样修改单据编号