[[20210124004553]] 『数字が入力された行を別シートに転記』(たか) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『数字が入力された行を別シートに転記』(たか)

sheet1(商品リスト)にB列から10行目が見出しの商品リストがテーブルとしてあります。

  A    B       C      D  〜   I
1
2


10   商品カテゴリ  商品コード  商品名    数量
11    筆記具      101   ボールペン   2
12    筆記具      102   シャープペン
13    筆記具      103   蛍光ペン    5

このテーブルのI列に必要な数量を入力し、コマンドボタンを押したら、数量がsheet2(注文表)のG14セルから下に順次転記し、入力された数量と同じ行にある商品コードがsheet2(商品リスト)のB14セルから下に順次転記し、最後にsheet1(商品リスト)のI列に入力した数字をクリアしたいのですがどうしたらよいでしょうか?
例でいくとsheet1(商品リスト)のI列の数量に2と5と入力したら、sheet2(注文表)のB14セルから商品コードを、G14セルから数量を転記する形です。

  A  B  〜 G
1


14   101    2
15   103    5
16

< 使用 Excel:Excel2016、使用 OS:Windows10 >


>コマンドボタンを押したら〜
とのことですからマクロの質問でしょうか。
仰っていることを、そのままやればいいように思いますが、どこで詰まっているのでしょうか

繰り返し処理が分からないとしたら、For〜Next ステートメントというものを使えば↓のようなことは可能だと思いますので、調べてみてはどうでしょうか?

 コマンドボタンをおしたら、マクロスタート

   出力行を14と覚える

   sheet1(商品リスト)のB列11行目〜最終行までを1行ずつみていく
      もしも、行のI列の値が「""」じゃなかったら
          sheet2(注文表)の出力行、B列にsheet1(商品リスト)のその行のC列の値を書き込む
          sheet2(注文表)の出力行、G列にsheet1(商品リスト)のその行のI列の値を書き込む
  
          出力行に1を足して覚えなおす

      もしものはなしはおしまい
   順番にみていく処理はここまで

   sheet1(商品リスト)のI列11行目〜最終行を一括してクリアする。
 マクロおわり

(もこな2) 2021/01/24(日) 07:39


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.