Kako z makrom določiti naslednjo prosto celico v stolpcu
V mnogih makrih je treba podatke nenehno dodajati. Nato je treba določiti naslednjo celico v stolpcu, kamor lahko vnesete podatke. To lahko rešite s formulo Excel.
Če pa želite določiti zadnjo celico v makru, potrebujete ukaze VBA. Obstaja več pristopov k reševanju problema. Tu je primeren makro:
Sub SearchFreeCell ()
Dim Cell As Range
Dim Maxzeile As Long
Če je Val (Levo (Application.Version, 2))> 11 Potem
Največja vrstica = 1048576
Sicer pa
Največja črta = 65536
Konec Če
Nastavi celico = Celice (Maxzeile, 1). Konec (xlUp). Odmik (1, 0)
MsgBox "Naslednja brezplačna celica je" & cell.Address (False, False)
End Sub
Ko se makro zažene, določi naslednjo prosto, neuporabljeno celico v stolpcu A. Naslov te celice je prikazan v oknu.
Makro naslavlja zadnjo vrstico v stolpcu A aktivne tabele in od tam naprej določi zadnjo uporabljeno celico. Da bi makro deloval v Excelu do različice 2003 in tudi v Excelu od različice 2007, je na začetku ločeno primerno razlikovanje. Ta razlika med primeri je potrebna, ker se je število razpoložljivih vrstic z različico 2007 povečalo s 65536 na 1048576.
Če želite v stolpcu namesto proste celice v stolpcu A najti prosto celico, po ukazu zamenjajte prvo številko 1 v oklepaju Celice po številki ustreznega stolpca.
Nasvet: Če želite vedeti, kako vnesti in zagnati makre v Excelu, boste tukaj našli kratek opis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html