vytvoření dvojic

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

[Uziv00]

1. v čem budou ty sloupce?
2. kombinace, nebo permutace?

[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

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

[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)

[Uziv00]

Do Until
Loop

[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

[Uziv00]

Když použiješ Do Until, tak to nebude dělat smyčku po 5. Nač to vlastně potřebuješ?

[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

[Uziv00]

Nač to vlastně potřebuješ?

myšleno to máš do školy?

[Sirka]

kamarád po mě chtěl pomoc, ale todle je na mě moc, tak jsem to zkusil zde

[Uziv00]

A nač to má kamarád?