Option Explicit Sub DodajWierszePodPierwszym() Dim i As Integer For i = 1 To Range("A1").Value Range("A2").Select Selection.EntireRow.Insert Next i End Sub
Option Explicit - odpowiada za jawne wymuszenie deklaracji zmiennych w skrypcie.
2. Tworzymy nowy przycisk na arkuszu i przypisujemy mu makro DodajWierszePodPierwszym.
I oto efekt - po kliknięciu w dodaj pojawiły się dwa nowe wiersze.

Brak komentarzy:
Prześlij komentarz