Witam, potrzebuję pomocy, tak wygląda moja tabela, na przykład, kiedy dodaję 2 wiersze na końcu mojej pierwszej tabeli, chcę, aby vba pomogła mi zrobić to samo dla poniższej tabeli (dodaj 1 wiersze na końcu koniec tabeli). Więc moja praca będzie polegać na tym, że wystarczy dodać wiersze w pierwszej tabeli, tabela poniżej wszystkich wygeneruje wiersze automatycznie na podstawie numerów wierszy w pierwszej tabeli. to kodowanie, którego użyłem teraz, aby dodać wiersz dla pierwszej tabeli. Mam nadzieję, że ktoś może rozwiązać ten problem za mnie, thx.
Sub InsertNumRows()
ActiveCell.Cały wiersz.Kopiuj
Dim Rng tak długo
Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Wprowadź liczbę wymaganych wierszy.")
Przy błędzie GoTo 0
Application.DisplayAlerts = True
Jeśli Rng = 0 Wtedy
MsgBox "Nie określiłeś zakresu!"
Exit Sub
Więcej
Zakres(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Wybierz
Selection.EntireRow.Insert Shift:=xlDown
End If
Koniec napisu [załącznik]Przechwyć 1.PNG[/załącznik]
Sub InsertNumRows()
ActiveCell.Cały wiersz.Kopiuj
Dim Rng tak długo
Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Wprowadź liczbę wymaganych wierszy.")
Przy błędzie GoTo 0
Application.DisplayAlerts = True
Jeśli Rng = 0 Wtedy
MsgBox "Nie określiłeś zakresu!"
Exit Sub
Więcej
Zakres(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Wybierz
Selection.EntireRow.Insert Shift:=xlDown
End If
Koniec napisu [załącznik]Przechwyć 1.PNG[/załącznik]