Jak określić następną wolną komórkę w kolumnie za pomocą makra?
W wielu makrach dane powinny być dodawane w sposób ciągły. Następnie konieczne jest określenie kolejnej komórki w kolumnie, w której można wprowadzić dane. Możesz rozwiązać ten problem za pomocą formuły Excel.
Jeśli jednak chcesz określić ostatnią komórkę w makrze, potrzebujesz poleceń VBA. Istnieje kilka podejść do rozwiązania problemu. Oto odpowiednie makro:
Wyszukiwanie podrzędneFreeCell ()
Przyciemnij komórkę jako zakres
Dim Maxzeile tak długo
Jeśli Val (po lewej (Application.Version, 2))> 11 Wtedy
Maksymalna linia = 1048576
W przeciwnym razie
Maksymalna linia = 65536
Zakończ, jeśli
Ustaw komórkę = Cells (Maxzeile, 1) .End (xlUp) .Offset (1, 0)
MsgBox "Następna wolna komórka to" & cell.Address (False, False)
Napis końcowy
Po uruchomieniu makro określa następną wolną, nieużywaną komórkę w kolumnie A. Adres tej komórki jest wyświetlany w oknie.
Makro adresuje ostatni wiersz w kolumnie A aktywnej tabeli i od tego miejsca określa ostatnią komórkę użytą powyżej. Aby makro działało w Excelu do wersji 2003 oraz w Excelu od wersji 2007, na początku dokonuje się odpowiedniego rozróżnienia wielkości liter. To rozróżnienie przypadków jest konieczne, ponieważ liczba dostępnych linii wzrosła w wersji 2007 z 65536 do 1048576.
Jeśli chcesz znaleźć wolną komórkę w kolumnie zamiast wolnej komórki w kolumnie A, zastąp pierwszą cyfrę 1 w nawiasie po poleceniu Komórki o numer odpowiedniej kolumny.
Wskazówka: Jeśli chcesz wiedzieć, jak wprowadzać i uruchamiać makra w Excelu, krótki opis znajdziesz tutaj: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- w-excel-ein.html
