【会員アンケートご協力のお願い】抽選で計5名様に役立つ書籍をプレゼント!

Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 11 Home : Excel 2021)
入力用シートから別シートへのデータ転記
投稿日時: 24/06/20 11:37:31
投稿者: さらまこ

入力用シートにデータを入力していき、関西シート、関東シートに
データが飛ぶようにしたいのですがVBAを使用せずに
関数のみで対応可能でしょうか?
 
ちなみに入力用のシートには関西なら『1』、関東なら『2』を入力。
月、日にち、印刷があれば印刷に枚数を、ラベル台紙を使えば
ラベル台紙セルに入力を行います。
 
関西シート、関東シートには月別の表があり、
それぞれデータを飛ばしたいのです。
 
 
    入力用    関西→1    関東→2    
                
関西か関東    月    日    印刷    ラベル台紙
1        1    10    2700    
2        1    14    50    300
1        2    18    1200    
1        2    20    1600    2000
2        2    16        2000
 
 
 
関西シート
 
        関西                        
                                
        1月                2月        
        日    印刷    台紙        日    印刷    台紙
        10    2700            18    1200    
                        20    1600    2000
                
                                
                                
        合計    2700    0        合計    2800    2000
 
 
        関東シート                        
                                
        1月                2月        
        日    印刷    台紙        日    印刷    台紙
        10    50    300        16        2000
                                
 
                                
        合計    50    300        合計    0    2000
 
 
 
 

回答
投稿日時: 24/06/20 12:15:26
投稿者: んなっと

セルの配置がわからないので、適当に回答します。
 
●入力
 
      A  B  C   D      E
1 関西か関東 月 日 印刷 ラベル台紙
2      1  1 10 2700      
3      2  1 14  50     300
4      1  2 18 1200      
5      1  2 20 1600    2000
6      2  2 16 2000      
 
●関西
 
    A   B   C   D   E   F
 1  1月        2月      
 2  日 印刷 台紙  日 印刷 台紙
 3  10 2700   0  18 1200   0
 4           20 1600 2000
 5                  
 6                  
 7                  
 8                  
 9                  
10 合計 2700   0 合計 2800 2000
 
A3
=FILTER(入力!$C$2:$E$200,(入力!$A$2:$A$200=IF(REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),)="関西",1,2))*(入力!$B$2:$B$200&"月"=A1),"")
→D3にコピー

回答
投稿日時: 24/06/20 13:40:43
投稿者: んなっと

●関西
 
A3
=FILTER(入力!$C$2:$E$200,(入力!$A$2:$A$200=1)*(入力!$B$2:$B$200&"月"=A1),"")
 
 
●関東
 
A3
=FILTER(入力!$C$2:$E$200,(入力!$A$2:$A$200=2)*(入力!$B$2:$B$200&"月"=A1),"")
 
これでもOK

投稿日時: 24/06/20 14:31:46
投稿者: さらまこ

んなっと様
 
2回もご教示ありがとうございます。
 
仰る通り、セル配置の記載を失念しておりました。
お手数おかけしました。
 
今手元にパソコンがなく、
まだトライしてませんが
中々難しい初めて見る数式です。
(また返信させて頂きます)
ネットでどう言う意味か見ております。
 
 
10年ほど前まではVBA使用していましたが
一旦年数置くと難しいですね。
今関数と共に勉強中です。
 
ダイアログボックスで入力するには
VBAを使わないと、と感じたのですが
いかがでしょうか?
[u]

投稿日時: 24/06/20 20:11:52
投稿者: さらまこ

なぜかエラーが出るので
再度トライしてみます。
ありがとうございます。

回答
投稿日時: 24/06/21 10:22:59
投稿者: WinArrow

可能あらば、入力用シート側に1列追加して、関西、関東を(識別コードでも文字列でも)入力すると、
オートフィルタを使ってコピペできます。
データ1件毎に入力するのが面倒だとしたら、入力後、一括入力する方法もあります。
 
これだけの「要件でVBAにする必要はないかも・・・
 

投稿日時: 24/06/24 15:37:29
投稿者: さらまこ

んなっと様
 
お返事が大変遅くなり申し訳ありません。
 
ご教示頂きました
関西、関東にそれぞれ数式を入力しましたら
思うように作動しました。
ありがとうございました。
 
数式についても自分で意味を理解出来るよう
(覚えれるよう)
引き続き勉強していきます。
 
ありがとうございました。
 
 
さらまこ

投稿日時: 24/06/24 15:40:45
投稿者: さらまこ

WinArrow様
 
お返事が大変遅くなり申し訳ありません。
 
数式以外に色々なやり方があるのが判り
勉強になります。
 
確かにVBAは、、ですね笑
10年前ほどやっていたので思わずどの様になるのかな?
と思いました。
 
 

WinArrow さんの引用:
可能あらば、入力用シート側に1列追加して、関西、関東を(識別コードでも文字列でも)入力すると、
オートフィルタを使ってコピペできます。
データ1件毎に入力するのが面倒だとしたら、入力後、一括入力する方法もあります。
 
これだけの「要件でVBAにする必要はないかも・・・
 

トピックに返信