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?