（再度投稿）Sheet1に200名の個人情報があり、所定の用紙Sheet２以降に自動反映したい

Question

Sheet１の名前を「利用者情報」とし、４列目に１番目の方の情報としてB４に名前、C４に起床時の薬、D4に朝食前など。２番目の情報を５列目、３人目の情報を６列目、と約200名あります。
Sheet２以降は部屋番号「101」、Sheet３は「102」と作っています。「101」のシートには所定の用紙があり、「利用者情報」の4列目の情報を自動的に反映させたいです。反映させる内容は、名前と薬があれば〇、なければ空白。
わかりにくいですが、よろしくお願いします

ママチャリ · Accepted Answer

それは関係なさそうですね。
ちなみに、手動で次の操作をしても何か起きそうな気がするのですが、いかがでしょうか？
①単純に新しいシートを作る。
➁101をコピーして新しいシートを作る。

ここから先は、kotasannさんが作ったマクロの問題のようなので、これ以上はお役に立てないかもしれません。あしからず…。

moto_koukousei · Answer

質問の内容や条件などがわかりません。
これも関係しているのでしょうか。　https://oshiete.goo.ne.jp/qa/9442911.html
他にも関係しているのがあるのでしょうか。
特に不都合がないのであれば、質問履歴を公開した方が、回答者のためには便利がよいのではないかと思います。　https://oshiete.goo.ne.jp/profile/542264877
なお、｢1か月分の表を作成しています｣というのは、1ヶ月分を1つのbookにし、101~各部屋のsheetは、そのsheet中で1ヶ月分のサービス提供状況が一覧になるようになっているのでしょうか。そして、７行で1日分の記録になっていて、ある日にちのデータが、ある部屋のsheetの｢B44、B45、D45、B46、D46、B47、D47、B48、B49、C49、D49、E49、B50｣に、｢利用者情報｣sheetのA列の部屋番号を参照して、(日にち情報はどこにあるのか)、部屋番号該当行のC列～O列にあるチェックを参照して、○か空白にするのでしょうか。
そうなると、｢利用者情報｣sheetのデーター(チェック)は、日が翌日になるときクリアするが、各部屋の既存の○はそのままに残すことになるのでしょうか。
そうであれば、単純なセルリンクは使えないように思います。
また月の途中で、利用者が入れ替わったり、部屋を移ることはないのでしょうか。　利用者毎にではなくて、部屋ごとのサービス提供状況が残ればよいのでしょうか。
月が変わるときに、新規に（？）bookを造り直すのでしょうか。出来れば前の月の（Ａ列＝部屋番号、Ｂ列＝利用者氏名）を再利用してBOOKを造り直すのでしょうか。
たぶん、各部屋のsheetの上の方の行とか、他にも様式が設定されているのだとおもいますが、何を再利用し、なにを再利用しないのかがわからないと、回答もしにくいと思います。

ママチャリ · Answer

こんな感じでしょうか。
添付の図のように、「利用者情報」シートと「101」シートを手作業で作成します。
「101」シートのB1~B3セルは数式で「利用者情報」シートを参照しています。
【B1】=IF(利用者情報!$B$4="","",利用者情報!$B$4)
【B2】=IF(利用者情報!$C$4="","",利用者情報!$C$4)
【B3】=IF(利用者情報!$D$4="","",利用者情報!$D$4)

「102」以降のシートは、マクロで作成しますので、手作業で作る必要はありません（逆に存在しているとエラーになります）。

【マクロの処理概要】
「101」シートをコピーして、「102」シートを作る。
「102」シート内の数式が設定されているセルについて、数式の参照先の行番号（利用者情報!R4）を次の行（利用者情報!R5）にReplaceする（Replaceする際、R1C1形式の方が便利だったので、こんな書き方になっています）。
上記の処理を「利用者情報」シートの最終行分まで繰り返す。

Sub sample()
    Dim i As Long
    Dim RoomNo As Long
    Dim ws As Worksheet
    Dim Rng As Range
    RoomNo = 102
    With Sheets("利用者情報")
        For i = 5 To .Cells(Rows.Count, "B").End(xlUp).Row
            Sheets("101").Copy After:=Sheets(Sheets.Count)
            Set ws = ActiveSheet
            ws.Name = RoomNo
            RoomNo = RoomNo + 1
            For Each Rng In ws.Cells.SpecialCells(xlCellTypeFormulas, 23)
                Rng.FormulaR1C1 = Replace(Rng.FormulaR1C1, "利用者情報!R4", "利用者情報!R" & i)
            Next Rng
        Next i
    End With
End Sub

ママチャリ · Answer

No.2 ママチャリです。長々と補足コメントご苦労様です。
ただ、その辺も加味して、No.2の回答を書いたつもりなのですが、何か不足がありましたでしょうか。
No.2の例では、B1~B3までしか式が入っていませんが、プログラム上は幾つあっても対応できるようになっています。
プログラムコードを熟読して、しかっり理解して、ご自分のシートに適用してみて下さい。
ご検討をお祈りします。

ママチャリ · Answer

ご提供したマクロは、102だけを作るマクロではありません。B5、B6、B7・・・と値が入力されていれば、すべて作られるはずなのですが、うまく動かなかったでしょうか？

念のため言っておくと、このマクロは102,103,104・・・とシートを作成します。シートができた状態で再実行すると、また102、103・・・とシートを作りに行くのですが、同名のシートは作れないのでエラーになります。再実行する際は、最初に作られたシートを削除しておく必要があります。

ちなみに、103を作る用にマクロを修正したとのことですが、そのコードはどんなのでしょうか？興味があるので、補足にアップして頂けますか。

ママチャリ · Answer

「ファイルを開く」ウインドウが表示されるということですが、普通じゃないと思います。
もしかして、余計なマクロが入っていたりしませんか？
例えば、Workbook_SheetActivateイベントプロシジャに余計なマクロが書かれているとか…。

（再度投稿）Sheet1に200名の個人情報があり、所定の用紙Sheet２以降に自動反映したい

質問の内容や条件などがわかりません。

こんな感じでしょうか。

No.2 ママチャリです。

ご提供したマクロは、102だけを作るマクロではありません。

「ファイルを開く」ウインドウが表示されるということですが、普通じゃないと思います。

それは関係なさそうですね。

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

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

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

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