[已解决]昨天的问题已解决，但是现在又有个问题

yam521 · 发表于 2010-4-30 09:15

问题1:如何在“入库表”，货号列,颜色列,中输入XB001，黑色，在“门市部库存”中自动出现XB001，黑色
相同的货号,颜色要求只出现一次

问题2:"门市部库存表"中的E2,F2..单元格里的公式,为什么不对?????

v3OTVPrU.rar (42.61 KB, 下载次数: 0)

zxy999 · 发表于 2010-4-30 09:56

这个最佳答案由 zxy999 给出，感谢 zxy999 的回答。

单击隐藏图章

门市库存货号: =INDEX(入库!D:D,SMALL(IF(MATCH(入库!D$2:D$99&入库!E$2:E$99,入库!D$2:D$99&入库!E$2:E$99,)=ROW($1:$98),ROW($2:$99),1000),ROW(A1)))&"" (数组公式)

门市库存颜色: =INDEX(入库!E:E,SMALL(IF(MATCH(入库!D$2:D$99&入库!E$2:E$99,入库!D$2:D$99&入库!E$2:E$99,)=ROW($1:$98),ROW($2:$99),1000),ROW(A1)))&"" (数组公式)

库存公式出错只需将SUBSTITUTE前的"--"去掉即可

ADwhoOOB.rar (42.23 KB, 下载次数: 6)

琼 · 发表于 2010-4-30 10:00

呵呵……

问题在这：

--SUBSTITUTE(F$1,"码",)，变成数值了

而入库、出库中的码号为文本

将--SUBSTITUTE(F$1,"码",)前面的--去掉即可

yam521 · 发表于 2010-4-30 10:41

2楼的公式也很好，但是有个问题：货号，颜色能不能自动用升序排列，我直接用货号排序不行。

FookYou · 发表于 2010-4-30 11:00

fFTsHGhU.rar (44.87 KB, 下载次数: 2)

2010-4-30 10:59 上传

点击文件名下载附件
昨天的问题已解决，但是现在又有个问题
Private Sub Worksheet_Activate()
Dim Dic As New Dictionary
Dim Arr, CK, i&, dR_n&, aR_n&, S$, N%, k&
Dim CM(1 To 4) As Long
    On Error GoTo Err_Exit
    With Sheet1
      dR_n = .[d65536].End(xlUp).Row
      Arr = .Range("D2:G" & dR_n)
    End With
    For i = 1 To UBound(Arr)
      S = Arr(i, 1) & "-" & Arr(i, 2)
      N = Arr(i, 3) / 5 - 21
      If Dic.Exists(S) Then
        CM(N) = CM(N) + Arr(i, 4)
        Dic(S) = CM
      Else
        CM(N) = Arr(i, 4)
        Dic(S) = CM
      End If
    Next
    With Sheet2
      dR_n = .[d65536].End(xlUp).Row
      Arr = .Range("D2:G" & dR_n)
    End With
    For i = 1 To UBound(Arr)
      S = Arr(i, 1) & "-" & Arr(i, 2)
      N = Arr(i, 3) / 5 - 21
      If Dic.Exists(S) Then
        CK = Dic(S)
        CK(N) = CK(N) - Arr(i, 4)
        Dic(S) = CK
      Else
        MsgBox Arr(i, 3) & "无库存!"
        Exit Sub
      End If
    Next
    aR_n = [a65536].End(xlUp).Row
    Range("A2:I" & aR_n).ClearContents
    Range("A2:I" & aR_n).Interior.ColorIndex = xlNone
    Range("A2:I" & aR_n).Borders.LineStyle = xlNone
    For i = 0 To Dic.Count - 1
      k = i + 2
      Cells(k, 1).Resize(1, 2) = Split(Dic.Keys(i), "-")
      Cells(k, 3) = "件"
      Cells(k, "E").Resize(1, 4) = Dic.Items(i)
      Cells(k, "I") = Application.Sum(Dic.Items(i))
    Next
    Cells(k + 1, 1) = "合计"
    Range("A2:A" & k).Interior.ColorIndex = 44
    Range("E2:I" & k).Interior.ColorIndex = 34
    Range("A2:I" & k).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
    Range("A2:I" & k).Borders.LineStyle = xlContinuous
Err_Exit:
    Exit Sub
End Sub

不知道你的“期初库存“是哪个数据。。。

FookYou · 发表于 2010-4-30 11:10

MsgBox Arr(i, 1) & "无库存!"

zxy999 · 发表于 2010-4-30 11:17

楼上的强大,学习...

yam521 · 发表于 2010-4-30 11:39

FookYou的表格，我才疏学浅看不明白，E2，F2里的公式都跑哪去了？？我还是重发个贴吧

[此贴子已经被作者于2010-4-30 11:39:35编辑过]

zxy999 · 发表于 2010-4-30 11:43

想了一下,其实楼主可以用数据透视表的

zxy999 · 发表于 2010-4-30 11:44

QUOTE:

以下是引用yam521在2010-4-30 11:39:00的发言：
FookYou的表格，我才疏学浅看不明白，E2，F2里的公式都跑哪去了？？我还是重发个贴吧

复制代码,打开VBE编辑器,粘贴

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