別のテーブルのエントリに基づいてExcelテーブルを動的に展開する

Question

ユーザーが従業員と日付でデータを入力できるようにするために、スプレッドシートを設定しています。私は別のテーブルへのエントリに基づいて展開する動的テーブルを作成したいと思います。たとえば、TABLE2に入力された新しい従業員に基づいてTABLE1を自動的に展開してTABLE3のように見えるようにすることができ、TABLE3は「値」列への新しいユーザー入力の準備ができていますか？

表1

表2

表3

Answer 1

ない事をやっているための最善の方法が、これはあなたを助ける、または少なくともあなたがやろうとしているもので、正しい方向にあなたを指している可能性があります。

表1がSheet1にあり、表2がSheet2にある場合、新しい行が表2に追加されると、次のコードでその名前がコピーされ、シート1の表1に3回貼り付けられます。上記のレコード、この場合はビルの日付。

下図に示すようにワークシートのChangeイベントにシート2の下に置き、次のコードを、：

コード：これは、以下の記事の複製であるよう

Private Sub Worksheet_Change(ByVal Target As Range) 
LastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row 'check the last row on Sheet 2 Table 2 
LastRow1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1 'Check the last row on Sheet1 Table 1 

If Target.Row = LastRow Then 'if a new row is added to Table 2 
    Sheet1.Cells(LastRow1, Target.Column).Value = Target.Value 'copy their name to table 1 three times 
    Sheet1.Cells(LastRow1 + 1, Target.Column).Value = Target.Value 
    Sheet1.Cells(LastRow1 + 2, Target.Column).Value = Target.Value 

    Sheet1.Cells(LastRow1, 2).Value = Sheet1.Cells(LastRow1, 2).Offset(-3, 0).Value 'copy the Date from the date above on Sheet1 
    Sheet1.Cells(LastRow1 + 1, 2).Value = Sheet1.Cells(LastRow1 + 1, 2).Offset(-3, 0).Value 
    Sheet1.Cells(LastRow1 + 2, 2).Value = Sheet1.Cells(LastRow1 + 2, 2).Offset(-3, 0).Value 
End If 
End Sub