エクセルについてご質問させていただきます

質問

現在は、シート１に『商品コード』『商品名』『分類』『在庫』が一覧で存在しており検索機能を使用して商品コードで検索し『在庫』に○を記載しているのが現状です
約５００件のデータが存在しており、同一の商品コードは１つしか存在しません
そこで、シート２のあるセルに商品コードを入力するとシート１から商品名、分類を引っ張ってきて表示し、正しければ何か１クッション（ボタンを押すなど）すればシート１の該当商品の在庫に○が記載されるようにしたいのです
シート２に商品コードを入力して商品名、分類を表示させるのは関数で出来ました
=INDEX(商品一覧!A3:C1000,MATCH(B14,商品一覧!A3:A1000,0),3)
が、クッション（ボタンを押すなど）すればシート１の在庫に○が記載されるようにする事がどうしても出来ません
何か良い知恵がありましたらご教示をお願いいたします

回答No.6

KURUMITO · ベストアンサー

シート１ではA列に商品コード、B列に商品名、C列に分類が入力されており、D列には在庫の○を表示させることにします。
シート２ではA１セルに商品コードを入力することでB１セルには商品名を、また、分類をC１セルに表示させるのでしたら、B１セルに次の式を入力しC１セルまでオートフィルドラッグします。

=IF(OR($A1="",COUNTIF(Sheet1!$A:$A,$A1)=0),"",INDEX(Sheet1!$B:$C,MATCH($A1,Sheet1!$A:$A,0),COLUMN(A1)))

シート見出しのSheet２を右クリックして「コードの表示」をクリックしてマクロを記入する画面を表示させます。

次のマクロを入力します。

Private Sub Worksheet_Change(ByVal Target As Range)
Set WS1=Worksheets("Sheet1")
Dim ans As Integer
Dim RowPos As Integer
If Target=Range("A1") And Range("A1")<>"" Then
If WorksheetFunction.CountIf(WS1.Range("A:A"),Range("A1"))=0 Then
MsgBox"該当する商品コードがシート１に有りません"
Exit Sub
End If
ans=MsgBox("商品名は　"&Range("B1")&" です。分類は　"&Range("C1")&" です。間違いありませんね？",vbYesNo)
If ans=vbYes Then
RowPos=WorksheetFunction.Match(Range("A1"),WS1.Range("A:A"),0)
WS1.Cells(RowPos,4)="○"
End If
End If
End Sub

これでシート１のD列には○が表示されます。

お礼

ありがとうございました
思った通りの事ができました
これでかなり仕事の改善になります。感謝です

回答No.5

layy

〇か空白でした。

フォームに検索ボタン、検索商品コード、更新ボタン、シート１の表示用の商品コード、商品名、在庫、こんな感じでしょう。〇を空白に訂正できることも必要と思います。

回答No.4

layy

商品コード指定、その商品詳細表示、在庫入力、在庫更新、商品コード指定、その商品詳細表示、在庫入力、在庫更新、の繰り返しでです。シート１上から順番でなくランダムに入力するには質問のようなやり方でしょう。

シート２は１行分しか使わない、入力しないのでシートでなくフォームでもできる話です。

『ユーザフォームを使ってのデータの書き換え（エクセル）』
というので検索してみてください。

フォームで書き換え、とかでもサンプルありそうです。

回答No.3

KURUMITO

回答No1です。
ご質問の意味がいまいち理解できないのですが。
シート１は商品一覧ですよね。シート２のA列に商品コードを入力すればB列には商品名、C列には分類が表示されるようにシート２のB列やC列には関数を使ってシート１のデータが表示されるようにしているわけですね。
シート１ではシート２に商品コードがあればシート１のD列に○を付けたいとのことと理解しますが、それではいけないのでしょうか？
この考えが間違っているとしたらシート２で商品コードを入力したときにシート１から商品名や分類を関数を使って表示させることは間違っていることになりませんか？

補足

説明が下手で申し訳ありません
シート２のＡ１、Ａ２、Ａ３・・・と下に連続して商品コードを入力するのとは違います
１．シート２　Ａ１に商品コード入力
※カーソルはＡ１からエンターでは移動しないようにしています
２．シート２　Ｂ１・Ｃ１に該当商品が表示される
３．２の表示が正しければ【在庫】ボタンを押す
４．シート１の該当商品の在庫に○が記載される
※Ａ１にカーソル配置
商品数分この繰り返しになります

・商品コード入力セル【Ａ１】固定
・商品名表示セル【Ｂ１】固定
・分類表示セル【Ｃ１】固定

ＶＢＡを組むしかないと思いますがわかりません
知恵をお貸しください

回答No.2

layy

シート１に元になる商品データがあって、在庫は手入力。ここのスクロールが面倒ですね。
シート２で商品を指定したらシート１からどの行か見つけ商品を表示、在庫は値ないものが表示されている。
そこでシート２で在庫値を入れたらシート１の在庫を更新、次の商品入れたらまた繰り返し。最初の商品入れたら先ほど更新した在庫が表示。
シート１の在庫の欄は数式でなく値にしないといけないですね。

シート２では商品がどの行かは突き止めてますから、その結果を使うのはどうでしょう。突き止めた行の４列目が在庫。

アクションはINPUTBOXでも良さそうですね。

補足

早速のご回答ありがとうございます
現状の問題点とこれからやりたい事はまさしくその通りでございますが在庫は有り無しだけを管理しているので在庫は"○"か空白だけになります
その方法を詳しく教えて頂ければ幸いです

回答No.1

KURUMITO

シート１でD列に在庫の○の表示をさせるのでしたら次の式をD２セルに入力して下方にオートフィルドラッグすればよいでしょう。

=IF(COUNTIF(Sheet2!A:A,A2)=0,"","○")

この式ではシート１のA列に商品コードがあり、それと一致する商品コードがシート２のA列にある場合には○をつけなさいという意味になります。列が違っていたら適宜修正してください。

補足

早急な回答ありがとうございます
やりたい事を補足させていただきます
シート２に入力セルを作成して、一件ずつ在庫ありの確認作業をしたいのです

例）商品のシールに記載されている番号をシート２のＡ１セルに入力するとＢ１に商品名、Ｃ１に分類が表示されて、それが正しければ『在庫あり』ボタンを押してシート１の商品一覧該当の在庫項目に○を記載する

シート２に一覧があるわけではなく商品コードから商品名をチェックしてシート１に反映したいのです
商品にはバーコードも記載されているのでシート２の１入力セルにリーダーで読み込むようにも考えてます