Usuwanie wiersza VBA to standardowa i powszechnie stosowana procedura przez programistów. Jednak dla mniej doświadczonych użytkowników ta operacja może powodować pewne trudności.
Instrukcje
Krok 1
Upewnij się, że rozumiesz składnię polecenia usuwania wiersza za pomocą polecenia Usuń. Tak więc dla wiersza zawierającego aktywną komórkę polecenie będzie wyglądało jak ActiveCell. EntireRow. Delete, a konieczność usunięcia kilku wierszy zmieni go na Wiersze („numer_pierwszej_linii: numer_ostatniej_linii”). Usuń (dla programu Excel).
Krok 2
Użyj podobnej składni dla polecenia usuń wybrany wiersz w VBA, ale z opcjami zaawansowanymi. W tym celu najpierw zdefiniuj wymaganą akcję: Private Sub Usuń line_Click () Określ wymaganą aplikację Dim ea As Excel. Application i wybierz żądany skoroszyt Dim ewb As Excel. Workbook. Następnie określ stronę dokumentu Dim ews As Excel. Worksheet do edycji.
Krok 3
Pomiń jedną linię i wpisz Set XLAp = CreateObject (Class: = "Excel. Application"). Ustaw dokładne położenie w następującym wierszu: Ustaw XLWb = XLAp. Workbooks. Open („nazwa_dysku: 1.xls”) Użyj następującej wartości: Set XLWs = XLWb. ActiveSheet.
Krok 4
Pomiń kolejny wiersz i wprowadź wartość wybranego zadania: XLWs. Rows (1). Usuń Zapisz edytowany dokument: XLWb. Save. Zamknij aplikację open source: XLAp. Quit.
Krok 5
Pomiń następny wiersz i zastąp zmienne obiektami pamięci: Set XLWs = Nothing Powtórz to samo polecenie dla każdej otwartej zmiennej: Set XLWb = Nothing i na koniec ostatnie: Set XLAp = Nothing Zakończ polecenie standardowym End Sub.
Krok 6
Użyj makr, aby wykonać bardziej złożone operacje, aby usunąć niepotrzebne wiersze w dokumencie. Aby to zrobić, utwórz nowy skoroszyt programu Excel i wprowadź wymagane wartości. Otwórz menu „Serwis” na górnym pasku narzędzi okna programu i wybierz element „Makro”. Wybierz podpunkt „Visual Basic Editor” i rozwiń menu „Wstaw”. Wybierz pozycję „Moduł” i wstaw utworzony dokument. Wróć do menu „Narzędzia” i ponownie przejdź do pozycji „Makro”. Użyj podpozycji "Makra" i określ nowo utworzoną. Uruchom makro, klikając przycisk Uruchom.
