[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『他ブック(複数)の指定したセルから値を移す方法』(こっこ)
お世話になっております。
いつも勉強の参考にさせていただいています。
今回行き詰ってしまったので質問させてください。
状況を説明しますと
メインのブックと他ブック(複数)があります。
他ブックは複数あり、同一フォルダにあります。
メインのブックは別の所にあります。
ブック名はそれぞれ、「広島支部.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 >
(マナ) 2022/08/05(金) 14:22
(マナ) 2022/08/05(金) 14:24
(マナ) 2022/08/05(金) 14:25
入力はE2とF2のみです。
これがすべての行に適用できるとありがたいです。
ありがとうございます。Power Queryについて調べてみます。
(こっこ) 2022/08/05(金) 14:50
説明していなかった私が悪いのですが
実はメインのブックは説明したものよりもっと色々な個所がありまして
わからない部分のみを抜粋して例として質問させていただきました。
そのほかの部分はVBAで作られていて、できればVBAで何とかすることができればありがたいのですが
Power Queryについて勘違いしていたら申し訳ないです。
(こっこ) 2022/08/05(金) 15:41
1)数式文字列を作って、セルに挿入
2)支部の数だけ繰り返して
3)最後に、値に変換
(マナ) 2022/08/05(金) 15:56
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.