Zdravím,
chtěl bych požádat o radu ohledně makra. Mám excel viz příloha obsahující seskupení
a já bych potřeboval s toho seskupení odstranit úroveň 4 včetně řádků s tím, aby úrovně
1 až 3 zůstali nezměněny.
Ve vzoru je jen pár řádků, ale soubor může obsahovat až 2000 řádků, je toto nějak řešitelné?
Předem děkuji za případnou pomoc.
Excel odstraneni urovne ze seskupeni pomoci makra Vyřešeno
Excel odstraneni urovne ze seskupeni pomoci makra
- Přílohy
-
- vzor.xls
- (23 KiB) Staženo 38 x
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel odstraneni urovne ze seskupeni pomoci makra
Ahoj,
oddělit řádky:
(pro sloučení je zase příkaz .group)
odstranit řádky:
Podobně i pro sloupky:
oddělit řádky:
Kód: Vybrat vše
rows("2:3").ungroup
odstranit řádky:
Kód: Vybrat vše
rows("3:4").delete
Podobně i pro sloupky:
Kód: Vybrat vše
collumns("A:C").ungroup
collumns("A:C").delete
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Excel odstraneni urovne ze seskupeni pomoci makra
děkuji za radu, ale tohle mi jaksi nechodí nebo to možná neumím poskládat, tak aby mi to odstranilo co potřebuju
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel odstraneni urovne ze seskupeni pomoci makra
Nevidím na tom nic složitýho, když chceš oddělit řádky, dejmetomu 65-114, tak příkaz bude:
rows("65:114").ungroup nebo delete pro smazání, záleží na tom co s tím chceš udělat.
Pokud všechny řádky v oblasti nejsou seskupené, tak to hodí chybu.
V excelu 2007 a 2010 to určitě funguje, v novějším by mělo taky. Jak je na tom Excel 2003 a starší nevím. Za to se omlouvám, nevšimla jsem si v jakém formátu je ten vzor uložený.
rows("65:114").ungroup nebo delete pro smazání, záleží na tom co s tím chceš udělat.
Pokud všechny řádky v oblasti nejsou seskupené, tak to hodí chybu.
V excelu 2007 a 2010 to určitě funguje, v novějším by mělo taky. Jak je na tom Excel 2003 a starší nevím. Za to se omlouvám, nevšimla jsem si v jakém formátu je ten vzor uložený.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Excel odstraneni urovne ze seskupeni pomoci makra
v tom jsme se možná nepochopili... omlouvám se za nepřesnou úvodní specifikaci problému. Ten vzorový excel má nějak dané řádky,
ale toto nebude vždy stejné, pokaždé bude excel vypadat jinak, jak v úrovni 1, úrovni 2, úrovni 3 i úrovni 4 bude vždy jiný počet řádků,
takže ano pro vzorový excel je to použitelné, ale pro tu spoustu dalších bohužel ne.
Tedy otřeboval bych, aby to makro dokázalo prohledat celý excel a odstranit všechny řádky v úrovni 4.
ale toto nebude vždy stejné, pokaždé bude excel vypadat jinak, jak v úrovni 1, úrovni 2, úrovni 3 i úrovni 4 bude vždy jiný počet řádků,
takže ano pro vzorový excel je to použitelné, ale pro tu spoustu dalších bohužel ne.
Tedy otřeboval bych, aby to makro dokázalo prohledat celý excel a odstranit všechny řádky v úrovni 4.
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel odstraneni urovne ze seskupeni pomoci makra
Tak teď už to chápu, moje chyba.
Projde list od konce a odstraní všechny seskupené řádky v lvl4
Nesloučené řádky jsou lvl1
Kód: Vybrat vše
Sub priklad()
Dim a As Long
For a = Cells(Rows.Count, 1).End(xlUp).row To 1 Step -1
If Rows(a).OutlineLevel = 4 Then 'zjistí level sdružení řádků
Rows(a).Delete
End If
Next
End Sub
Projde list od konce a odstraní všechny seskupené řádky v lvl4
Nesloučené řádky jsou lvl1
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Excel odstraneni urovne ze seskupeni pomoci makra
funguje to na tom vzorovém excelu bezvadně, tak jak jsem potřeboval, ale nevím proč jen po řádek 27 poslední seskupení, jako kdyby to nechtělo vzít
nedělám něco špatně?
nedělám něco špatně?
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel odstraneni urovne ze seskupeni pomoci makra
Možná to bude tím, že ve sloupku 1 nemáš vyplněné buňky až po posledí řádek?
For a = Cells(Rows.Count, 1).End(xlUp).row ... <- Zvýrazněné číslo nastavuje ve kterém sloupku hledá poslední data. Stačí napsat jeden znak na konec sloupku odkud to chceš hlídat, nebo změnit číslo na sloupek ve kterém jsou data až na konec tabulky.
For a = Cells(Rows.Count, 1).End(xlUp).row ... <- Zvýrazněné číslo nastavuje ve kterém sloupku hledá poslední data. Stačí napsat jeden znak na konec sloupku odkud to chceš hlídat, nebo změnit číslo na sloupek ve kterém jsou data až na konec tabulky.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Excel odstraneni urovne ze seskupeni pomoci makra Vyřešeno
teď je to dokonalé děkuji mnohokrát za objasnění a trpělivost...
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 659
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 4
- 4610
-
od ArtisPier
Zobrazit poslední příspěvek
26 zář 2023 12:29
-
-
odstranění automatického přepnutí na druhý monitor
od tominaxx » 19 črc 2023 15:36 » v Windows 11, 10, 8... - 5
- 1511
-
od tominaxx
Zobrazit poslední příspěvek
19 črc 2023 22:45
-
-
-
Teamviewer - jak ovládat gps (pc) pomocí vzdálené podpory
od Antonín » 27 bře 2024 14:35 » v Vše ostatní (sw) - 3
- 1717
-
od Antonín
Zobrazit poslední příspěvek
15 dub 2024 13:06
-
-
-
Windows 11 nelze zrušit přihlášení pomocí hesla PIN)
od nulka » 17 srp 2023 11:08 » v Windows 11, 10, 8... - 9
- 3660
-
od nulka
Zobrazit poslední příspěvek
17 srp 2023 16:02
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů