[[20230303114628]]　『在庫管理表』（カニ）　ページの最後に飛ぶ

『在庫管理表』（カニ）

エクセルで在庫管理表を作成しています。
仕掛品の計算でご質問があります。

工程１
月初入庫出庫月末
1000 500 800 700
工程２
月初入庫出庫月末
0 800 800 0
工程３
月初入庫出庫月末
0 800 0 0

最終工程　工程３

実際は縦に品名、横に工程名があります。

上記のような条件で、最終工程の出庫に数量が入ってない場合、
最終工程の１つ手前までの数量を抜き出したいのですが、
どのような数式を使えばいいのでしょうか？

うまく説明が出来ず申し訳ありませんが、お教えいただけないでしょうか。

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

もし、VBAで処理できるようでしたら、VBAでの方法を教えていただきたいです。
（カニ） 2023/03/03(金) 13:57:46

行列が分かるようにしましょう。
例ではどのようになればいいんですか。

（holi） 2023/03/03(金) 15:26:05

説明不足ですみません。

　　　E　　　　　F　　　G　　H　　　I　　　J　　　K　　L　　　M　　N　　　O　　P　　　Q
1（E1、E2結合）　工程1（F1～I1結合）　　　　工程2（J1～M1結合）　　工程3（N1～Q1結合）
2　最終工程　　　月初　入庫　出庫　月末　　月初　入庫　出庫　月末　月初　入庫　出庫　月末
3　工程3　　　　1000　500　　800　700　　0　　800　800　0　　　0　　800　0　　0

上記の表を作成しています。

上記の場合、最終工程（E3）が工程3ですので、工程3の出庫（P3）がゼロなら、工程2の出庫（L3）の
数を取りたいです。
同様に、E3が工程6で工程6の出庫数がゼロなら工程5以前で工程6に一番近い出庫数を取れるようにしたいです。
工程が全部で9工程ぐらいあります。
（カニ） 2023/03/03(金) 16:55:25

 ＞最終工程（E3）が工程3ですので、工程3の出庫（P3）がゼロなら、工程2の出庫（L3）の数を取りたいです。
 ＞同様に、E3が工程6で工程6の出庫数がゼロなら工程5以前で工程6に一番近い出庫数を取れるようにしたいです。

 「E3セルの工程」に意味があるように見えますが、
  単に2行目が出庫且つ3行目が0じゃないセルの内、一番右にあるセルの数値を出せばよくないですか？

 ※「E3セルの工程」の出庫が0なのに、その右方にまた0じゃない出庫のセルが現れるなんて事があり得るんですか？
 　 あり得なければ、 
    =LOOKUP(MAX(F3:AZ3)+1,F3:AZ3/((F2:AZ2="出庫")*(F3:AZ3<>0)))

（半平太） 2023/03/03(金) 21:21:51

＊「E3セルの工程」の出庫が0なのに、その右方にまた0じゃない出庫のセルが現れるなんて事があり得るんですか？

合点がいかない表（シート）構成ですが、
工程２の月末が「０」で工程３の月末が「０」と記入されているが？

又、工程が１＞２＞３---と順番に進んで行くとして
工程１の月末が「７００」で
次の工程である工程２の月初が「０」はあるえるのか？
（同じ７００になるはずでは？）

（kakaku） 2023/03/04(土) 07:00:49

シート構成が、下記だとして

E4に最終工程を記載して最終工程の出庫がゼロの場合は、それより左のゼロで無い出庫数を求めるとすれば
（４行目の数値は、ダミーです。）

    |[E]     |[F]   |[G] |[H] |[I] |[J]  |[K] |[L] |[M] |[N]  |[O] |[P] |[Q] |[R]  |[S] |[T] |[U] |[V]  |[W] |[X] |[Y] |[Z]  |[AA]|[AB]|[AC]
 [1]|       5|     6|   7|   8|   9|   10|  11|  12|  13|   14|  15|  16|  17|   18|  19|  20|  21|   22|  23|  24|  25|   26|  27|  28|  29
 [2]|最終工程|工程１|    |    |    |工程2|    |    |    |工程3|    |    |    |工程4|    |    |    |工程5|    |    |    |工程6|    |    |    
 [3]|        |月初  |入庫|出庫|月末|月初 |入庫|出庫|月末|月初 |入庫|出庫|月末|月初 |入庫|出庫|月末|月初 |入庫|出庫|月末|月初 |入庫|出庫|月末
 [4]|工程6   |  1000| 500| 800| 700|    0| 800| 800|   0|    0| 800|  55| 745|   50| 100|  80|  70|   80|  50|  42|  88|   60| 200|   0| 260

Sub test()

    Dim lk As Long
    Dim i As Long, j As Long
    Dim nks
    Dim tk As Long
    Dim kotae As Long

    ReDim nks(1 To 10)

    lk = Right(Range("E4"), 1)
    For i = 1 To 10
        nks(i) = Cells(4, 8 + 4 * (i - 1))
    Next

    For j = lk To 1 Step -1
        If nks(j) <> 0 Then
            kotae = nks(j)
            Exit For
        Else
            kotae = nks(j - 1)
        End If
    Next

    Range("E8") = "工程" & j
    Range("F8") = kotae

End Sub

（諸子頑鉄） 2023/03/04(土) 08:38:33

お礼が遅くなり、申し訳ございません。
案をくださった皆様、ありがとうございます。

工程３の月末は0ではなく800の誤りでした。
失礼しました。

いただいた情報でエクセルを作ってみます。
質問点が出てきましたら、またご相談に乗っていただければと思います。
ありがとうございました。

（カニ） 2023/03/06(月) 09:58:51

コメント返信：

[ 一覧(最新更新順) ]

[[20230303114628]] 『在庫管理表』（カニ） ページの最後に飛ぶ

[[20230303114628]]　『在庫管理表』（カニ）　ページの最後に飛ぶ