[[20180803020847]]　『物品の店舗間移動を入出庫表に反映したい』（初心者）　ページの最後に飛ぶ

『物品の店舗間移動を入出庫表に反映したい』（初心者）

店舗の入出庫管理表を作っています。

 日付     1 2 3 4 5......
 商品A   5 0 1...
 商品B  
 商品C
 商品D
 商品E
 .
 .
 このような表が店舗ごとにあります。
1日に店舗Iの商品Aを１個、店舗IIへ移動した場合、別シートで数を入力して
I店の入出庫表の1日の商品Aを-1、II店の入出庫表の商品Aを+1
に自動的に差し引きさせたいのですが、何か方法はありますか？

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

やること自体はそう複雑でなさそうだと受け取りましたが、データの運用方法が判然としません。
移動情報を入力するというシートの内容も明らかにしていただけますか。
どういう表になっていて、どこにどういう情報を入力するのか・・・ということを。
（金髪碧眼） 2018/08/03(金) 08:12

失礼しました。
I店の入出庫表がシート1、II店の入出庫表がシート2、
入力がシート3だとします。シート3に、

移動元店舗 I店
移動先店舗 II店
移動商品名商品A
移動個数 1
移動日 1日

と入力するだけでシート1,2の入出庫表の該当のセルに数を反映させたいです。
本来なら、シート1の該当セルに-1、シート2の該当セルに+1を入力すればいいのですが、入力作業を1つのシートでしたいです。
（初心者） 2018/08/03(金) 09:49

マクロの使用ありならなんとでもなりそうだけど、マクロを作ってみる気はありますか？

作る気はないけど、コードは欲しいっていう丸投げなら、その旨明記してそれでも対応してくれる回答者さんが現れるのを辛抱強く待つのもいいとおもいます。

マクロはよくわからないので数式で頑張りたいというなら、入力フォーマットから逐一データをとばすのは難しいとおもうので、設計を変えて、シート３をデータベースのようにしてしまい、シート1.2からMATCH関数＆index関数などで参照すれば、結果としてお望みのものに近くなりませんか？
（もこな２） 2018/08/03(金) 18:25

返答ありがとうございます。マクロは使いたいとは思っています。
まだまだ初心者なので可能かは分かりませんが、ご教授頂けるのであれば頑張って作りたいです。

それでも挫折したら上記数式でつくってみたいと思います。
ありがとうございます。

（初心者） 2018/08/03(金) 21:23

おはようございます　＾＾
とりあえず、気が付いた点だけで、恐縮ですが
お店はI,IIの2店舗だけですか
多数、あるならユニークな店舗リスト（一覧表、マスタ-）を作成しておくと
他にもマクロ化する時、使い回せて、何かと便利ですよ
シート名を店舗名に変えるとか。。。

（隠居じーさん） 2018/08/04(土) 07:48

シート名を店舗名に変えるとか。。。
すみません。
これは慎重にも慎重を期さねばならない業務でしたね。。要処理後の厳重チェック　＾＾；
新規シート作成時シート名を店舗名。。。
は簡単ですよ。
m(__)m

（隠居じーさん） 2018/08/04(土) 08:07

 >作る気はないけど、コードは欲しいっていう丸投げなら、その旨明記してそれでも対応してくれる回答者さん 
 >が現れるのを辛抱強く待つのもいいとおもいます。

 こんな言わなくてもいいことをまだしつこくいうかね...

 1) 各店舗のシート名を I店、II店等として、Sheet3の入力値と一致させる。
 2) 各シートはA列1行目からで途中空白列は無いものとする。

 こんな感じで
 Sub test()
     Dim SendFrom As Worksheet, SendTo As Worksheet, x, y
     Dim ProdName As String, Movement As Long, myDay As Long
     With Sheets("sheet3")
         Set SendFrom = Sheets(CStr(.Range("b1").Value))
         Set SendTo = Sheets(CStr(.Range("b2").Value))
         ProdName = .Range("b3").Value
         Movement = .Range("b4").Value
         myDay = .Range("b5").Value
     End With
     x = Application.Match(ProdName, SendFrom.Columns(1), 0)
     y = Application.Match(ProdName, SendTo.Columns(1), 0)
     If (IsNumeric(x)) * (IsNumeric(y)) Then
         SendFrom.Cells(x, myDay + 1).Value = SendFrom.Cells(x, myDay + 1).Value - Movement
         SendTo.Cells(y, myDay + 1).Value = SendTo.Cells(y, myDay + 1).Value + Movement
     Else
         MsgBox "該当商品名がありません。", vbCritical
     End If
 End Sub
（seiya） 2018/08/04(土) 10:27

＞こんな言わなくてもいいことをまだしつこくいうかね...
まぁくどかったですかね。失礼しました。

数式案で一案。店舗シート？に現在数が出ればよいのであれば

まとめ（入力）シート
移動元店舗　移動先店舗移動商品名移動個数移動日

っていうデータ（レコード）随時入力していき
店舗シートでは　月初在庫を持たせたうえで
SUMIFS関数を使って　まとめ（入力）シートの商品ごと、店舗ごとの払出、受入の数量をもとめ、増減を計算させれば、数式だけで処理することもできるとおもいます。

（もこな２） 2018/08/04(土) 16:58

追記。
上記と同じ発想で、条件に移動日も加えれば、店舗ごと日計表も作成できるとおもいます。
（もこな２） 2018/08/04(土) 17:08

コメント返信：

[ 一覧(最新更新順) ]

[[20180803020847]] 『物品の店舗間移動を入出庫表に反映したい』（初心者） ページの最後に飛ぶ

[[20180803020847]]　『物品の店舗間移動を入出庫表に反映したい』（初心者）　ページの最後に飛ぶ