» Poradna » Programy

MS Excel - konec obsahu

 |   |  Microsoft Windows 7 Firefox 46.0

Zdravím, v excelu bych potřebovala vytvořit takové makro/VBA, které by mi zjistilo, jaká buňka (s obsahem) je poslední a aby mi to pak do sloupce A nakopírovalo nějakou funkci, tj. od A2 až do AXY, přičemž tím XY myslím číslo řádku, které předtím makro/VBA vyhodnotilo jako poslední. Příklad: pokud makro zjistí, že poslední buňka s obsahem je např. AP985, tak aby to následně napsalo do A2 až A985 funkci. Ta funkce by měla být "=obsahu buňka nad buňkou aktuální", takže v A2 by bylo napsáno =A1, v A3 by bylo napsáno =A2 atd. Příklad je tady: http://leteckaposta.cz/900734336Díky

Odpovědi na otázku

 |   |  Linux Firefox 45.0

A co si zaplatit (konečně) kurz?http://www.zive.cz/Poradna/sc-20/default.aspx

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 50.0.2661.102

No ty k**** a to nedostala ta osoba ban?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 47.0

Na kurzu jsem byla, takže výsledek mého dotazu přikládám pro případné další využití Funkce zjišťuje poslední neprázdný řádek ve sloupci B, následně zapíše do pole A2 "funkci" = A1 a tu následně rozkopíruje ve sloupci A do posledního neprázdného řádku (který byl ve sloupci B). Sub ZjistiPosledniRadekAVyplnFunkci()PosledniPlnyRadek = Range("B1").End(xlDown).RowRadek = "A" & PosledniPlnyRadek Range("A2").Select ActiveCell.FormulaR1C1 = "=R[-1]C" Range("A2").Select Selection.AutoFill Destination:=Range("A2", Radek), Type:=xlFillDefault End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 51.0.2704.106

No vida jak si jim to pekne natrela...Trosku ti ten kod opravim.Jedno dulezite pravidlo, ktere si pamatuj: pokud chces pracovat s oblasti Range (nebo i jinym objektem) neni treba ho vybirat - tedy radek Range("A2").Select je zbytecny a makro jen zpomaluje. A ty ho mas hned 2x. Takze rovnou a jednoduse:Range("A2").Formula ="R[-1]C"Range("A2").AutoFill Destination:=Range("A2", radek), Type:=xlFillDefaultsyd

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 47.0

Díky moc :) Kód upravím

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Buňka


Určitě si přečtěte

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

** Rozhodujete se mezi Netflixem a HBO Go? Věřte, bude hůř ** Na trhu je mnohem víc ambicióznějších streamovacích služeb ** Některé by mohly do ČR zamířit ještě letos

Lukáš Václavík | 45

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

** Honor u nás přichází s prvním telefonem bez Google Mobile Services ** Současný stav je lepší než na začátku, ideální ale není ** Zkusili jsme i hack s ručním přidáním služeb Googlu

Tomáš Holčík | 158

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

** Šesti nejpoužívanějším prohlížečům patří 94 % trhu ** Různé „klony“ Chromu slibují lepší funkce nebo jiný design ** Také Firefox má řadu zajímavých odnoží

Lukáš Václavík | 40

Na měsíc jsem opustil Google a potupně se zase vrátil zpět (komentář)

Na měsíc jsem opustil Google a potupně se zase vrátil zpět (komentář)

** Zkusil jsem se zbavit závislosti na vyhledávači od Googlu ** Jako alternativy posloužily Bing, Seznam a DuckDuckGo ** Mají své silné stránky, ale i nepřekonatelná negativa

Lukáš Václavík | 61

Jak odposlouchávat sousedy: Bizarní Lamphone a další netušené techniky

Jak odposlouchávat sousedy: Bizarní Lamphone a další netušené techniky

** Lamphone je další bizarní technika odposlechu ** Zneužívá obyčejnou stropní lampu ** Podívejte se na další bizarní experimenty

Jakub Čížek | 17


Aktuální číslo časopisu Computer

Megatest: nejlepší notebooky do 20 000 Kč

Test 8 levných IP kamer

Jak vybrat bezdrátová sluchátka

Testujeme Android 11