MS Excel

Prijemny vecer, mel by nekdo napad jak vyhledata oznacit po sobe jdouci bunky se stejnou hodnotou v urcitem poctu. Treba 8 a vice bunek s hodnotou 1.Predem dekuji za napady. S pranim at se prace dari.

Zaslat odpověď >

Stalker(27.11.2010 0:49)#003325

Tomuto přání by mělo vyhovovat podmíněné formátovánícitovat

RomanNTA(27.11.2010 8:38)#003327

Určitě se to může udělat makrem. Je ale skutečností, že makra ve VBA jsou jen interpretovaný jazyk. Takže nejlepší je použít vestavěné vzorce. Zkus třeba
C2 =KDYŽ(A(STEJNÉ(A1;A2);STEJNÉ(B1;B2));A2;"")
Porovnáváš 2 + 2 buňky na shodu, pokud je shoda pak ve sloupci C bude obsah ze sloupce A. Můžeš to různě modifikovat.
Pokud Tě zajímá jen ten počet, pak použij funkci COUNTIF(sloupec_nebo_oblast; co_hledat)
R.citovat

Beppe(27.11.2010 13:44)#003328

Dekuji za odpoved, myslel jsem si ze to pujde tez timto zpusobem. Ale nejde. Zpresnim dotaz. Jde mi o to, ze mam v jednom radku cca ve 4000 sloupcich hodnoty. Potrebuji najit bunky ktere maji hodnotu 1 a jsou za sebou v poctu min. 10 a vice... (tedy vyhledavam a onacuji min. 10 a vice neomezene bunek v jednom radku jdoucich po sobe a obsahujici stajnou hodnotu=1). Coz bohuzel nespravim asi ani poronavanim, neb bych musel nadefinovat vsechny moznsti.. coz je hodne. Jeste jednou dekuji za prispevky a budu rad za jakoukoliv radu. Dekujicitovat

Beppe(28.11.2010 22:27)#003351

Krasny vecer vsem, jak to tak vypada, tak nikoho asi nic nenapada.. bohuzel.. Budu rad opravdu za jakykoliv napad, ktery by smeroval k vysledku. :-) A jeste jeden dotaz, zaregistroval jsem se, ale email ohledne potvrzeni registrace nedosel.. neni ani ve spamu.. kde muze byt chyba? A priori u me, vim...druha moznost :-)citovat

RomanNTA(28.11.2010 22:34)#003353

Znamená to, že hodnoty nesmíš setřídit ??? Hodnoty jsou různé, takže např 123 může být ve sloupci v několika shlucích v různých počtech a Tebe zajímají shluky kde počet hodnot je větší než 10 ???????

Pokud ANO pak by mohlo stačit toto makro
Předpokladem je označená oblast a hodnoty se zapisují vpravo ležících dvou sloupců.

Sub oznac()
Dim citac As Long
Dim C As Range
Dim TestValue As Long
TestValue = -1
citac = 1
For Each C In Selection
If TestValue <> -1 Then
If TestValue = C.Value Then
citac = citac + 1
Else
If citac >= 10 Then
C.Offset(-1, 1).Value = TestValue
C.Offset(-1, 2).Value = citac
citac = 1
TestValue = C.Value
End If
citac = 1
TestValue = C.Value
End If
Else
TestValue = C.Value
End If
Next C
End Sub
citovat

Beppe(29.11.2010 0:15)#003355

Tak a ted jsem trosku mimo ja. :-)Makro nejak dela neco a ja nevim co. :-) Znamena to, ze hledam urcitou hodnotu(cislo) ktere se opakuje a chci jej oznacit treba zlute, abych jej v tak vysokem poctu nasel. Priklad Excel: v 1. radku mam vedle sebe v sloupci B az K vzdy hodnotu 0. To jest celkem 10 krat hodnotu 0, ktera je obsazena v bunkach jdoucich v radku za sebou. A ja potrebuji vyhledat tyto bunky... kterych je min 10 dle zhora uvedeno...ale muze jich byt az treba 3000. Podminka je. minimalne 10 bubek jdoucich za sebou s hodnotou nula (ne prazdnych, ale s 0)nebo vice nez 10 jdoucich za sebou neprerusovane jinou ciselnou hodnotou. Snad jsem to vysvetlil lepe. A tyto bunky oznacit barevne, aby byly videt. Nic nescitat a nikam nepsat vysledky.. jen je oznacit. :-) Vim neni to se mnou jednoduche.. prsto moc dekuji za Vase snahy a pomoc. At se Vam prace dari.citovat

RomanNTA(29.11.2010 7:10)#003356

3000 buněk vedle sebe ??? ... no toto je napsané na buňky podsebou. Pokud Ti vadí, že Ti to napíše vedle hodnotu o kterou se jedná a počet výskytu , tak to přepiš na

C.Offset(-1, 1).Value = TestValue
C.Offset(-1, 2).Value = citac
na
C.Offset(-1, 0).Interior.ColorIndex = 34
Nechceš to nejdříve vyzkoušet podsebou ... používá se na to TRANSPONOVAT.
R.citovat

Téma: Vyhledani stejnych

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje