[已解决]请帮我修改一下我的库存表

珍妮花公主 · 发表于 2010-3-29 11:52

需要解决的问题：

1、入库单的内容能自动保存到入库明细中。（出库单已能自动保存)

2、按每份出库单来统计每份出库的成本

I78Fffd2.rar (45.89 KB, 下载次数: 21)

william2009 · 发表于 2010-3-29 12:21

不会哟！期待高手

开辆小富康 · 发表于 2010-3-29 13:32

一出手就是大活。[em06][em06]

cjainwei · 发表于 2010-3-29 13:34

QUOTE:

以下是引用开辆小富康在2010-3-29 13:32:00的发言：
一出手就是大活。[em06][em06]

干吧干吧，我在后面给你精神的支持

[em07]

珍妮花公主 · 发表于 2010-3-29 13:45

QUOTE:

以下是引用开辆小富康在2010-3-29 13:32:00的发言：
一出手就是大活。[em06][em06]

老师呀，帮帮我吧，我在这里等了快1个月了。

FookYou · 发表于 2010-3-29 14:26

工程较大，没时间。。。。

珍妮花公主 · 发表于 2010-3-29 14:50

QUOTE:

以下是引用FookYou在2010-3-29 14:26:00的发言：
工程较大，没时间。。。。

能不能先帮我修改一下，入库单的问题

[em04]

tkgg93 · 发表于 2010-3-29 14:56

建议楼主把问题化小，一个一个的问题提，这样比较容易解决

珍妮花公主 · 发表于 2010-3-29 15:01

QUOTE:

以下是引用tkgg93在2010-3-29 14:56:00的发言：
建议楼主把问题化小，一个一个的问题提，这样比较容易解决

我修改了提问，能不能先帮我修改这两个急用的

FookYou · 发表于 2010-3-29 15:40

Sub 保存()
Dim Arr, bR_n&, i%
    Arr = Range("B12:I15")
    For i = 1 To 4
      If Arr(i, 1) = "" Then Exit Sub
      With Sheets("入库明细")
        bR_n = .[b65536].End(xlUp).Row + 1
        .Cells(bR_n, 2).Resize(1, 5) = Array([H9], [H7], [C8], [C7], [C9])
        .Cells(bR_n, "G").Resize(1, 8) = Application.Index(Arr, i)
      End With
    Next
    Sheets("入库明细").Range("B2:P" & bR_n).Borders.LineStyle = xlContinuous
End Sub
DbvWHAKP.rar (17.83 KB, 下载次数: 21)

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