MS Excel

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í.

Zaslat odpověď >

Strana: 1 2 3 4 další »

xlnc(3.12.2015 10:57)#028488

Tak, jak je to postavené, nebo obecně libovolné množství dat v prvním řádku a desítky různě rozházené?citovat

tarantula222(3.12.2015 11:05)#028489

Na menej to nedám. Keď sa ale berie cyklus ako jeden riadok tak by to mohlo byť správne.

For s = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(1, s).Value = 10 Then Cells(s).EntireColumn.Delete
Next s
citovat

eLCHa(3.12.2015 11:06)#028490

@xlnc
Náhodně a libovolné množství.

Čísla do prvního řádku jsem vložil pomocí RANDBETWEEN(1;10), takže si to můžete rozšířit na celý list a musí to fungovat.citovat

xlnc(3.12.2015 11:07)#028491

A napadlo mě zpestření. Opačná úloha - jednořádkové provedení úlohy, kdy se máme zbavit všech "nedesítkových sloupců".citovat

eLCHa(3.12.2015 11:07)#028492

@tarantula222
ee
to jsou 3 ;)citovat

xlnc(3.12.2015 11:14)#028493

Takže další dodatečná podmínka - maximální číslo je 10.. okcitovat

eLCHa(3.12.2015 11:17)#028494

@xlnc
Pokud je to dotaz, tak ne. Klidně použijte
RANDBETWEEN(1;100) + samozřejmě převést na hodnoty. Jen tam nějaká 10 musí být, jinak nezjistíte, jestli vám to funguje ;))citovat

xlnc(3.12.2015 11:22)#028495

OK, desítka v libovolném množství čísel na prvním řádku.citovat

eLCHa(3.12.2015 11:39)#028496

;))
10 - nebo jakákoliv jiná hodnota ;)
V zadání je 10, tak 10 ;))citovat

marjankaj(3.12.2015 11:55)#028497

Za predpokladu že sa tam nenachádza prázdna bunka asi takto

Range(Cells(1, 1), Cells(1, 1).End(xlToRight)).Replace What:="10", Replacement:=""
Selection.SpecialCells(xlCellTypeBlanks).EntireColumn.Deletecitovat

Strana: 1 2 3 4 další »

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje