Askotan, gelaxka batean sekuentzialki sartutako hainbat balio batu behar ditugunean egoera bat sortzen da:
Horiek. adibidez, A1 gelaxkan 5 zenbakia sartzen baduzu, 1 zenbakia B15ean agertu beharko litzateke. Orduan 1 zenbakia A7n sartzen baduzu, 1 agertu beharko litzateke B22 gelaxkan, eta abar. Oro har, kontulariek (eta ez haiek bakarrik) guztira metatua deitzen dutena.
Biltegiratze-zelula-metagailu bat inplementatu dezakezu makro sinple bat erabiliz. Egin klik eskuineko botoiarekin A1 eta B1 gelaxkak dauden fitxan eta hautatu testuinguru-menuan Jatorrizko testua (Iturburu-kodea). Irekitzen den Visual Basic editorearen leihoan, kopiatu eta itsatsi makro-kode sinplea:
Azpiko lan-orri pribatua_Aldaketa(ByVal Helburua Excel.Barrutia gisa) Helburuarekin .Helbidea (Gezurra, Gezurra) = "A1" Orduan IsNumeric (.Balioa) Ondoren Aplikazioa.EnableEvents = Gezurrezko Barrutia("A2").Balioa = Barrutia(" A2").Value + .Value Application.EnableEvents = Egiazko amaiera Amaitzen bada Amaitzen bada Amaiera azpiarekin A1 eta A2 gelaxken helbideak, noski, zureak ordezkatu daitezke.
Datuen sarreraren jarraipena egin eta gelaxka indibidualak ez, barruti osoak baizik laburtu behar badituzu, makroa pixka bat aldatu beharko da:
Azpiko lan-orri pribatua_Change(ByVal Helburua Excel.Barrutia bezala) Ez bada gurutzatzen (Helburua, Barrutia("A1:A10")) Ez da ezer, orduan IsNumeric (Helburua.Balioa) Gero Aplikazioa.EnableEvents = Helburu faltsua.Offset (0, 1) .Value = Helburua.Offset (0, 1).Value + Target.Value Application.EnableEvents = Egiazko amaiera Amaiera bada Amaiera Sub Datuak A1:A10 barrutiko gelaxketan sartzen direla suposatzen da, eta sartutako zenbakiak eskuineko ondoko zutabean biltzen direla. Zure kasuan ondoan ez badago, handitu eskuinera desplazamendua Offset operadorean - ordezkatu 1 zenbaki handiago batekin.
- Zer dira makroak, non sartu makro-kodea VBAn, nola erabili?