Stránka 1 z 2
vytvoření dvojic
Napsal: 29 kvě 2013 12:51
od Sirka
ahoj,
prosím o pomoc případně navedení jak provést
budu mít dva sloupce jmen a potřeboval bych vytvořit všechny možné dvojce a ty vypsat.
snad se najde někdo šikovnej.
předem díky.
Re: vytvoření dvojic
Napsal: 29 kvě 2013 12:53
od Uziv00
1. v čem budou ty sloupce?
2. kombinace, nebo permutace?
Re: vytvoření dvojic
Napsal: 29 kvě 2013 13:19
od Sirka
jelikož nevím jaký platěj pravidla pro kombinace a permutace tak použiju příklad
v sloupci A je 5 jmen v B je taky 5
A1 muže použít pro párování všechny B
A2 taktéž
>> celkem je možných 25 kombinací párů a ty jmenovitě vypsat klidně do dvou sloupců
(předpokládám že jsou to kombinace)
a pokud chápu otázku správně jedná se o Excel
Re: vytvoření dvojic
Napsal: 29 kvě 2013 13:31
od Uziv00
Chjo. Odpověď na otázku 1 chybí, ale vzhledem k tomu, jak popisuješ sloupce odhaduji, že se jedná o excel. Kombinece to nebudou. U kombinaci nezáleží na poloze - zjednodušeně - Pokud budeš mít ve sloupci A jméno adam a třeba jirka a ve sloupci B také, pak můžeš mít "kombinaci" adam jirka a jirka adam. Pokud je to takhle správně, pak záleží na pořadí a jde o permutaci. Pokud je adam jirka = jirka adam, pak jde o kombinaci.
Kód: Vybrat vše
n = 0
For i = 1 To 5
For k = 1 To 5
n = n + 1
Cells(n, 3) = Cells(i, 1) & Cells(k, 2)
next k
next i
Takže např. nějak takhle.
Re: vytvoření dvojic
Napsal: 29 kvě 2013 15:56
od Sirka
super takhle to asi stačí, jen bych potřeboval aby si to vždy ověřilo kolik je v tom sloupci záznamů (někdy 10 někdy 500)
Re: vytvoření dvojic
Napsal: 29 kvě 2013 15:57
od Uziv00
Do Until
Loop
Re: vytvoření dvojic
Napsal: 29 kvě 2013 16:08
od Sirka
nevím kam s tím :( a bojím se že to bude pak dávat jmeno s mezerou pokud to bude dělat smyčku po 5
Re: vytvoření dvojic
Napsal: 29 kvě 2013 16:17
od Uziv00
Když použiješ Do Until, tak to nebude dělat smyčku po 5. Nač to vlastně potřebuješ?
Re: vytvoření dvojic
Napsal: 29 kvě 2013 16:31
od Sirka
na vytvoření dvojic,
asi to cpu na špatné místo, nebo za do until musí být nějaký parametr?
Sub Makro1()
'
' Makro1 Makro
'
'
n = 0
Do Until
For i = 1 To 5
For k = 1 To 5
n = n + 1
Cells(n, 3) = Cells(i, 1) & " " & Cells(k, 2)
Next k
Next i
Loop
End Sub
Re: vytvoření dvojic
Napsal: 29 kvě 2013 16:32
od Uziv00
ITCrowd píše: Nač to vlastně potřebuješ?
myšleno to máš do školy?
Re: vytvoření dvojic
Napsal: 29 kvě 2013 16:37
od Sirka
kamarád po mě chtěl pomoc, ale todle je na mě moc, tak jsem to zkusil zde
Re: vytvoření dvojic
Napsal: 29 kvě 2013 16:37
od Uziv00
A nač to má kamarád?