• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Challenge - odstranění sloupců s podmínkou

Zaslal/a eLCHa 3.12.2015 7:22

Jen tak z legrace

Odstraňte všechny celé sloupce, které mají v prvním řádku číslo 10.

Kód nesmí obsahovat více než 2 řádky.

With, End With se nepočítá jako řádek
With BlaBla
.BlaBla
End With= 1 řádek

Použití dvojtečky se považuje za ukončení řádku BlaBla:BlaBla= 2 řádky


Doplnění na základě dotazů:
V prvním řádku můžou být jakákoliv čísla (nejen 1 až 10) nebo prázdné buňky.
10 se musí vyskytovat.

Kdo si chce zapřemýšlet, tak hned neklikejte na druhou stranu, kde je řešení.

Příloha: 28487_1-10.zip (5kB, staženo 15x)

Zaslat odpověď >

---

Strana:  « předchozí  1 2 3 4

xlnc(4.12.2015 12:37)#028526

Nedesítkové řešení:
[1:1].RowDifferences([1:1].Find(10)).EntireColumn.Delete

[1:1]... Rows(1), Range("1:1")citovat

xlnc(4.12.2015 18:00)#028527

A pokud vám ještě nešiblo z původního zadání, tak zkuste přijít na to, proč tohle nefunguje v (českém) Excelu:

SendKeys "^f10%v^a{ESC}^-{UP}{UP}{ENTER})"citovat

eLCHa(7.12.2015 7:53)#028558

@xlnc
RowDifferences - pěkné a máte pravdu, nepoužívám.

Tak protože SendKeys považuji za nespolehlivé a v podstatě se nedá ladit, tak ho nepoužívám. Vždy jsem to obešel. Takže nevím.

Vyzkoušel jsem - nepamatuje si to nalezené buňky. Proč? Bo je hlupy, no. ;)
Stejně tak háže chybu při odstranění celého sloupce. Proč? No bo je fakt hlupy. ;)

Ale jsem rád, že tohle jednořádkové řešení nefunguje. ;))

Nicméně jste zdůraznil v českém - takže v anglickém to jede?citovat

xlnc(7.12.2015 18:56)#028565

Ta zkratková sekvence: Negunguje, podle všeho CTRL+A nestíhá. Jako by to byla sekvence zvenčí a Excel nečeká na její výsledek, takže se dialog Najít zavře dříve. A v českém, no protože některé zkratky nemusí v anglickém fungovat. Jinak je to poslední, co sem na fórum píšu. Kdyžtak se ozvěte soukromě.citovat

Maximus(8.12.2015 7:43)#028572

xlnc napsal/a:

Jinak je to poslední, co sem na fórum píšu. Kdyžtak se ozvěte soukromě.

Záleží na tom, jestli někdo nekecá. citovat

eLCHa(8.12.2015 10:20)#028578

Přišel jsem na to proč to nefunguje.

Není to v CTRL+A (^a), ale v ALT+V (%v). Přes Sendkeys to nevyvolá stisk tlačítka Najít vše, ale pouze jeho výběr. Takže nedojde k vyhledání hodnot. Stisk se mi nasimulovat nepodařilo.citovat

Strana:  « předchozí  1 2 3 4

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse