Kā noteikt nākamo brīvo šūnu kolonnā, izmantojot makro
Daudzos makro dati ir jāpievieno nepārtraukti. Pēc tam kolonnā ir jānosaka nākamā šūna, kurā var ievadīt datus. To var atrisināt, izmantojot Excel formulu.
Tomēr, ja vēlaties noteikt makro pēdējo šūnu, jums ir nepieciešamas VBA komandas. Problēmas risināšanai ir vairākas pieejas. Šeit ir piemērots makro:
Sub SearchFreeCell ()
Dim šūna kā diapazons
Dim Maxzeile Tik ilgi
Ja Val (pa kreisi (Application.Version, 2))> 11 Tad
Maksimālā līnija = 1048576
Citādi
Maksimālā līnija = 65536
Beigas Ja
Iestatīt šūnu = šūnas (Maxzeile, 1). Beigt (xlUp). Nobīde (1, 0)
MsgBox "Nākamā brīvā šūna ir" & cell.Address (False, False)
Beigt apakš
Pēc startēšanas makro nosaka nākamo brīvo, neizmantoto šūnu A slejā. Šīs šūnas adrese tiek parādīta logā.
Makro adresē aktīvās tabulas A slejas pēdējo rindu un, sākot no turienes, nosaka pēdējo iepriekš izmantoto šūnu. Lai makro darbotos programmā Excel līdz 2003. gada versijai, kā arī programmā Excel no 2007. gada versijas, sākumā tiek nošķirti piemēroti gadījumi. Šī gadījuma atšķirība ir nepieciešama, jo pieejamo rindu skaits līdz ar 2007. gada versiju ir palielinājies no 65536 līdz 1048576.
Ja vēlaties kolonnā atrast brīvo šūnu, nevis A slejas brīvo šūnu, aiz komandas aizvietojiet pirmo numuru 1 iekavās Šūnas pēc atbilstošās kolonnas numura.
Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsit šeit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html