Makro abil veerus järgmise vaba lahtri määramine
Paljudes makrodes tuleks andmeid pidevalt lisada. Siis on vaja määrata veeru järgmine lahter, kuhu saate andmeid sisestada. Selle saate lahendada Exceli valemi abil.
Kui aga soovite määrata makro viimase lahtri, vajate VBA käske. Probleemi lahendamiseks on mitmeid lähenemisviise. Siin on sobiv makro:
AlamotsingFreeCell ()
Dim Cell kui vahemik
Dim Maxzeile Sama pikk
Kui Val (Left (Application.Version, 2))> 11 Siis
Max rida = 1048576
Muidu
Max rida = 65536
Lõpp Kui
Määra lahter = lahtrid (Maxzeile, 1). Lõpp (xlUp). Nihutamine (1, 0)
MsgBox "Järgmine vaba lahter on" & cell.Address (False, False)
End Sub
Pärast käivitamist määrab makro järgmise vaba, kasutamata lahtri veerus A. Selle lahtri aadress kuvatakse aknas.
Makro adresseerib aktiivse tabeli veeru A viimast rida ja määrab sealt alates viimase ülalkirjeldatud lahtri. Selleks, et makro töötaks nii Excelis kuni versioonini 2003 kui ka Excelis alates versioonist 2007, tehakse alguses sobiv juhtumierinevus. See juhtumite eristamine on vajalik, kuna saadaolevate ridade arv on versiooniga 2007 suurenenud 65536 -lt 1048576 -le.
Kui soovite vaba veeru leida veerust A veeru vaba lahtri asemel, asendage sulgudes esimene number 1 pärast käsku Rakud vastava veeru numbri järgi.
Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate lühikirjelduse siit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html