[[20220805131443]] 『他ブック(複数)の指定したセルから値を移す方法』(こっこ) ページの最後に飛ぶ

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

 

『他ブック(複数)の指定したセルから値を移す方法』(こっこ)

お世話になっております。
いつも勉強の参考にさせていただいています。
今回行き詰ってしまったので質問させてください。

状況を説明しますと

メインのブックと他ブック(複数)があります。
他ブックは複数あり、同一フォルダにあります。
メインのブックは別の所にあります。
ブック名はそれぞれ、「広島支部.xlsx」「山口支部.xlsx」……のようにそれぞれに名前がついています。
ブック内には「集計」シートが初めにあり、そのあとに「1月」「2月」……のようにシートが続いています。
集計シートにはA列に1月、2月…と月名が、その横にそれぞれの月のシートのまとめが二列続いています。
 ↓ このような感じです

  A     B      C     D
 月   合計   出荷数 重量
 1月  10,000    350     大
 2月 15,000    500     中
 :   :   :   :

メインのブックには、A列に支部名が縦に並んでいます。
また別のセルには、他ブックの収納されているフォルダのパスが入力されています。
そして月名が入力できるセルがあります。
 ↓ このような感じです

  A       B      C     D   E   F
 支部名   合計   出荷数 重量  月名 フォルダパス
 広島支部                   C:\〜\〜\
 山口支部 
 :    

今回やりたいことというのは、
月名を入力したときにメインのブックにそれぞれのブックから特定の月だけの値を移すことです。
例えばE3に「1月」と入力したときに、それぞれのブックから1月の「合計」「出荷数」「重量」を移したいです。

最初はvlookupやexecuteexcel4macroで挑戦しましたがうまくいかず
過去ログも検索したのですがうまく見つけることができませんでした。

長文失礼しました
できればアドバイスよろしくお願いします。

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


E列とF列に入力される月名とフォルダパスは、
全支部同じではないのですか?

(マナ) 2022/08/05(金) 14:22


もしかして、入力はE2とF2だけでしたか?

(マナ) 2022/08/05(金) 14:24


もしそうであれば、Power Queryがオススメです。

(マナ) 2022/08/05(金) 14:25


すみません、説明が足りず申し訳ありませんでした。

入力はE2とF2のみです。
これがすべての行に適用できるとありがたいです。

ありがとうございます。Power Queryについて調べてみます。
(こっこ) 2022/08/05(金) 14:50


VBAとはまた違うものなのですね。

説明していなかった私が悪いのですが
実はメインのブックは説明したものよりもっと色々な個所がありまして
わからない部分のみを抜粋して例として質問させていただきました。

そのほかの部分はVBAで作られていて、できればVBAで何とかすることができればありがたいのですが

Power Queryについて勘違いしていたら申し訳ないです。
(こっこ) 2022/08/05(金) 15:41


では、一例ですが、こんな感じでどうでしょうか。

1)数式文字列を作って、セルに挿入
2)支部の数だけ繰り返して
3)最後に、値に変換

(マナ) 2022/08/05(金) 15:56


1)の部分のたたき台

 Sub test()
    Dim p As String
    Dim wbn As String
    Dim wsn As String
    Dim r As Long
    Dim f As String

    p = Range("F2").Value
    wbn = Range("A2").Value & ".xlsx"
    wsn = "集計'!"
    r = Val(Range("E2"), Value) + 1

    f = "='" & p & "[" & wbn & "]" & wsn & "B" & r 

    Range("B2").Resize(, 3).Formula = f

 End Sub

(マナ) 2022/08/05(金) 16:19


すごい!
できました!
ありがとうございました!
(こっこ) 2022/08/05(金) 19:38

コメント返信:

[ 一覧(最新更新順) ]


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