複数のシートの同じセルに入力するvbaを教えてください

Question

一枚目シート【項目】シートに入力されているいくつかの項目データを2枚目から始まる個人シート【№】.【№(2)】.【№(3)】～【№(XＸ)】（人数は変動する）とその後ろにあるシート【集計表】の複数シートの同じセルに入力したいのですが、マクロ初心者で良くわかりません。ご教授ください。
例えば【項目】シートＧ2セルのデータを複数シートのＩ1セルに、【項目】シートのＧ3セルのデータを複数シートのＢ11セルにのように入力したいのです。【項目】シートのデータはすべてＧ列の2行目から8行目までに入力されていますが複数シートの入力したいセルはバラバラの列、行になります。
ご回答よろしくお願いいたします。

tatsu99 · Accepted Answer

No5です。
以下のマクロを標準モジュールへ登録してください。
Option Explicit
Public Sub 設定()
    Dim sh0 As Worksheet
    Dim sh1 As Worksheet
    Dim i As Long
    Set sh0 = Worksheets(1)
    For i = 2 To Worksheets.Count
        Set sh1 = Worksheets(i)
        sh1.Range("I1").Value = sh0.Range("G2").Value
        sh1.Range("B11").Value = sh0.Range("G3").Value
        sh1.Range("G11").Value = sh0.Range("G4").Value
        sh1.Range("I2").Value = sh0.Range("G5").Value
        sh1.Range("B2").Value = sh0.Range("G6").Value
        sh1.Range("E2").Value = sh0.Range("G7").Value
        sh1.Range("G2").Value = sh0.Range("G8").Value
        If sh1.Name = "集計表" Then Exit For
    Next
    MsgBox ("設定完了")
End Sub

tatsu99 · Answer

補足要求です。
項目シートのG2→個人シート及び集計シートのI1
項目シートのG3→個人シート及び集計シートのB11
は提示されていますが、
項目シートのG４からG8が提示されていません。
これは、個人シート及び集計シートのどのセルに設定しますか？

yokomaya · Answer

ですから答えになってないんですよ。
＞②【集計表】シートは集計ベースにしてあります。【集計表】シートの後ろに【集計表】シートのデータにリンクさせたグラフや表のシートが④シートあります。
＞【集計表】シートを個人シートと同じ形式にしてあるのは個人シートの見方の説明時に一例として使用するためです。

僕が聞いているのは何を集計しているかです。
普通個人シートが複数あって、集計シートとくれば
そこには個人の合計とかが入ると考えるのが自然じゃないですか？
何の集計だかこの文章じゃ全く判らないです。
「集計ベース」って言葉も聞いたことないので、基礎みたいな意味の
ベースでしょうか？グラフとかに繋げてる話聞いても
何を集計しているのか判らないので一向に見えてこないです。

＞③個人シートはある計測を実施した後、あるソフトで一人につき１ブック（１シート）で作成されます。
これもこの説明では肝心なところが足りないです。
あるソフトで作成だけでは、例えば人がそのソフトを用いて
入力していくのか、機械がCSVなりブックなりを吐くところまでやるのかで
全然イメージが変わりますよね。
つまり、そこのフレキシビリティがどの程度なのか見えないです。

＞集計用に幾つか平均データを表示するグラフなどを作成したのですが、平均が上手くリンクさせることが出来ず、集計用ブックを事前に５シートで作成しておきリンクさせることが出来ました。

ね？
いきなり集計用ブックとか５シートって出てきます。

そもそも集計用にグラフってのも変な話で、グラフを集計のために
作るなんて僕の経験の中ではないです。集計した結果をグラフ化
して、データを視覚的に訴えるものにするとかはあっても。

ほんとに判らない。

それにこの質問で聞きたいことにグラフの話必要ですか？
どんどん話が関係ない方へ広がってそうで・・・。
肝心な判らないと尋ねてることを、ほったらかして話が
別路線に走っていく感じです。

＞例えば【項目】シートＧ2セルのデータを複数シートのＩ1セルに、【項目】シートのＧ3セルのデータを複数シートのＢ11セルにのように入力したいのです。
に対する答えが

「串刺し入力（作業グループ、複数シート選択）で
=項目!G2
とか、しておけますよね。
つまり入力しなくてもそのセル内容が表示できます。」

だったのですがノーリアクションですし。

表現が僕の方も多少わかりにくいので、もう一度書き直します。

個人のシートのタグをCTRLを押しながら選んでいくと
複数のシートが選択出来て作業グループと表示されますね？
この状態でI1セルに
=項目!G2
と入力しておけば、何も入力しなくても
【項目】シートＧ2セルの内容がすべての個人シートに
表示されるからVBA考えなくてもよいのでは？
といいたかったんです。
これは他にも個人シートで共通のセルに項目シートの
特定セルを表示させるには同様の処理で一括で出来ますよね。
無論マクロ化もできるし。

＞グループで実施するためグループの平均のデータも個人シートに欲しいと思い少しずつ改良しています。
ここも実は判りません。グループだから集計して
平均とかは集計シートの仕事と普通は考えると思うんです。
何故戻すんだろう？

＞㋐項目シート（別ブック）は事前に氏名他いくつかの項目を入力しておく。
個人シートの方に氏名がない理由が判らないです。
それに氏名ですから流石にこれは、各シート共通ではないでしょ？
個人コードでもあるならVLOOKUPとかで式は共通かもしれないけど。
それにしても転記の必要は感じられませんね。
予め入っている事の問題点が判らないので。

言葉よりもシートの画像が話が早いんじゃないでしょうか？
項目、個人、集計それぞれの、特に質問に関係ある部分を
アップしてもらうのが。
これ以上補足されてもお腹がいっぱいで。

tom04 · Answer

こんばんは！

質問文、他の方への補足など何度も読み返してみましたが、イマイチ質問内容が理解できません。

質問文の
＞【項目】シートＧ2セルのデータを複数シートのＩ1セルに、【項目】シートのＧ3セルのデータを複数シートのＢ11セルにのように入力したいのです。

の部分だけのコードです。
標準モジュールにしてください。

Sub Sample1()
    Dim k As Long, wS As Worksheet
    For k = 2 To Worksheets.Count
        Set wS = Worksheets(k)
        With Worksheets("項目")
            wS.Range("I1") = .Range("G2")
            wS.Range("B11") = .Range("G3")
        End With
    Next k
End Sub

とりあえず、G2・G3セルの処理は上記コードで対応できると思います。

※　G4～G8セルをどのように扱うのか書いてないので
G2・G3のみの処理になります。m(_ _)m

yokomaya · Answer

補足しても疑問は増える一方です。

まず答えていただけませんか？

①その後ろにあるシート【集計表】の複数シートの
説明をしてください。

②個人データのシートと集計表のシートは同じ形式です。
集計ですよね？同じものが同じ位置に入力されて
何が集計なのか理解できません。
集計表が加算なら判りますが。

③それ以前にこの項目、個人、集計のそれぞれの位置づけが
判らないんです。

例えば個人の全シート同じなら
串刺し入力（作業グループ、複数シート選択）で
=項目!G2
とか、しておけますよね。
つまり入力しなくてもそのセル内容が表示できます。

ただどういうときにそれが発生するの？
このシート構成だと、普通は入力は個人のシートに対して
行われて、それが集計シートに集計されると考えます。

それが全部同じ、項目シートからという、流れが読めないんです。
そこから聞かないと理解できないです。

yokomaya · Answer

同じ形式の個人シートが複数ある場合

集計表のA列にシート名のリストを記述しておけば
B2には
=INDIRECT(A2&"!M5")
を下方向にオートフィルします。

M5に意味はないです。どこのセルでも
それぞれのシートの特定セルが取り出せます。

え？

＞その後ろにあるシート【集計表】の複数シートの同じセルに
文章がヲワってる。
なんでシートに複数のシート、親亀子亀じゃないんだから。
何で集計表から入力ですか？そんなの見たことないです。

＞複数シートの入力したいセルはバラバラの列、行になります。
ランダム？
こんなんじゃ答えられないです。

複数のシートの同じセルに入力するvbaを教えてください

No5です。

補足要求です。

ですから答えになってないんですよ。

こんばんは！

補足しても疑問は増える一方です。

同じ形式の個人シートが複数ある場合

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング