Wstawianie wierszy bez wybierania niczego?

Question

Pracuję w języku VBA i chcę wstawić wiersz w określonej lokalizacji bez wybierania go. Problem, który mam, polega na tym, że po wybraniu tego wiersza arkusz jest przewijany do tego wiersza po zakończeniu działania skryptu. Chcę móc to zrobić bez przewijania arkusza kalkulacyjnego do wstawionego wiersza.

Rows(i & ":" & i).Select 
ActiveCell.EntireRow.Insert 

Nie chcę wybierać A1, aby dostać się na górę.

Answer 1

Wystarczy to zrobić:

Cells(i,1).EntireRow.Insert 

Zastosuj akcję bezpośrednio do pożądanego zakresu, zamiast wybierać je pierwszy i stosowaniu działań mających na celu „ActiveCell”.

Kilka dodatkowych uwag:

• „Rejestr makro” funkcja generuje kod jak twój przykład, ale uważam, że wybierając komórkę wcześniej rzadko jest konieczne podczas pisania własnego kodu.
• Dodatek poboczny: operowanie na komórce bezpośrednio zamiast jej wcześniejszego wyboru może przyspieszyć kod o współczynnik 10x do 100x !!

Answer 2

Rows(i & ":" & i).Insert wstawi wiersz poniżej bez zmiany zaznaczenia.