[es] - Označi unikatan niz brojeva

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

^{01.12.2014. u 22:07 - pre 114 meseci}

Kako označiti unikatne kombinacije niza brojeva ili možda pitanje bolje stoji ovako, kako označiti duplikate kombinacija niza brojeva

Npr:
Ako kada se pojavi prvi unikatan niz kombinacija brojeva (a može biti i zadnji, nebitno). U obzir treba uzeti i dvoznamenkaste brojeve.

1,2,3,4 (unikatna kombinacija niz brojeva) prva po redu
1,3,2,4
1,2,4,3
3,4,1,2
4,3,1,2
...
---------------------------

1345 (unikatna kombinacija niz brojeva) prva po redu
1435 (duplikat kombinacije)
4315 (duplikat kombinacije)
5143 (duplikat kombinacije)
5134 (duplikat kombinacije)
...

U obzir dolazi dodavanje pomoćnih stupaca/sheets i slično. Nije bitno kako dobiti i uz koje formule/vba, cilj je izvući samo unikatne kombinacije
Sve ideje dobrodošle.

Prikačeni fajlovi

unikatne kombinacije niza.xls - 193.5k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Označi unikatan niz brojeva

^{02.12.2014. u 13:24 - pre 114 meseci}

Nitko ništa
No dobro, Ja imam ideju sa Small/Column/Concatenate/Countif/IF, ipak želio sam vidjeti ako netko ima drugu ideju

Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3453

Jabber: djoka_l

+1462 Profil

Re: Označi unikatan niz brojeva

^{02.12.2014. u 14:33 - pre 114 meseci}

Napravi VBA fonkciju koja sortira Range i vraća string u kojem su sortirani elementi razdvojeni zarezom ili nekim drugim separatorom. Onda upotrebi countif nad rezultatom funkcije.

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Označi unikatan niz brojeva

^{03.12.2014. u 15:22 - pre 114 meseci}

Evo pošto si ti od velike pomoći na ovom forumu, red je da i tebi bar malo pomognemo

Prema ideji djoka_l napravio sam funkciju koja vraća sortirane vrednosti iz zadatog opsega razdvojene zarezima

Code:
Public Function SortRngCSV(rng As Range) As Variant
' Vraća sortirane vrednosti iz zadatog opsega razdojene zarezima
'  Ulazni opseg je jedan red
'  Ukoliko vrednosti iz opsega nisu celi brojevi vraća gresku NA
' P. Jovanovic za elitesecurity.org
'
Dim i As Integer
Dim val As Integer
On Error GoTo Greska
val = Application.Small(rng, 1)
SortRngCSV = CStr(Application.Small(rng, 1))
For i = 2 To rng.Columns.Count
   val = Application.Small(rng, i)
   SortRngCSV = SortRngCSV & "," & CStr(val)
Next i

Exit Function

Greska:
   SortRngCSV = CVErr(xlErrNA) ' return NA

End Function

Dakle u jednoj koloni formiraš pomoću ove funkcije stringove sortiranih vrednosti i onda u drugoj koloni sa COUNTIF brojiš koliko ima iznad istih vrednosti
Ako je 1 (nema još neka) onda je unikat

Rešenje je u kolonama G i H u tvom primeru

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

unikatne kombinacije niza.xls - 210.5k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Označi unikatan niz brojeva

^{03.12.2014. u 21:54 - pre 114 meseci}

Hvala @djoka_I na ideji i @JPeca na VBA kodu
U međuvremenu sam ja riješio problem sa funkcijama koje sam gore naveo ali su me zanimale varijante rješenja dotičnog problema. Čekam, možda netko da formulu sa drugom idejom, a ako ne opet dobro jer rješenje postoji kako za mene tako i za sve čitatelje teme.
pozz Ivan

Odgovor na temu