Jak automatycznie przesyłać dane z Master do arkuszy podrzędnych w Excelu

Jeśli korzystasz z programu Excel i chcesz automatycznie przesyłać dane z arkusza głównego do określonych arkuszy podrzędnych, gdy spełniony jest określony warunek, w tym artykule wyjaśniono, jak to zrobić za pomocą VBA ( Visual Basic for Applications ). Ten przykład pokaże, jak automatycznie przenosić wiele kolumn w jednym arkuszu na inny, gdy wartość w jednym z pól to „ Tak ”. Wartość pola warunkowego można zmienić zgodnie z wymaganiami.

Autotransfer danych z Master do arkuszy podrzędnych w Excelu

Aby rozpocząć, otwórz dokument programu Excel i otwórz okno Microsoft Visual Basic for Applications, naciskając klawisz [Alt] + [F11].

Następnie znajdź swoje arkusze w lewej kolumnie i kliknij dwukrotnie na Master . Nazwy arkuszy będą zależeć od tego, co nazwaliście w Excelu. Arkusz główny jest głównym arkuszem, w którym dane są wprowadzane po raz pierwszy, a arkusz Podrzędny jest miejscem, w którym dane zostaną wypełnione. Następnie wklej następujący kod w dużym białym polu:

 Private Sub Worksheet_Change (ByVal Target As Range) Jeśli Intersect (Target, Columns („G”)) to nic, to Exit Sub „Gdy nie ma zmiany w 'G kolumna nic nie robi. „Wartość komórki zmieniona w kolumnie G będzie teraz określana jako Cel. If Target.Value = "Tak" Wtedy "Kiedy warunek jest spełniony (" Tak "w kolumnie G), a następnie Zakres (Komórki (Cel.Row, " A "), Komórki (Cel.Row, " G ")). Kopiuj _ Arkusze (Target.Offset (0, -1) .Value) .Range („A” i Rows.Count) .End (xlUp) .Offset (1, 0) ”Skopiuj wiersz, w którym dokonano zmiany, z kolumny A do kolumna G. „Wklej do arkusza wymienionego w kolumnie F i do pierwszego dostępnego wiersza. End If End Sub

Teraz możesz zamknąć okno Microsoft Visual Basic for Applications, a Twój plik będzie teraz gotowy do automatycznego przesyłania danych wprowadzonych na arkuszu głównym do wybranych podstron. Pamiętaj, że makro będzie działać tylko wtedy, gdy dokonana zostanie zmiana w kolumnie G.

Dziękujemy TrowaD za tę wskazówkę.