Diskuze: výpis variací bez opakování - skript do excelu

Naučíme tě pracovat na home-office.

Zjistit více...

V předchozím kvízu, Test znalostí C# .NET online, jsme si ověřili nabyté zkušenosti z kurzu.

Aktivity

Josef Nový

Člen

Josef Nový:30.8.2015 14:57

Zdravím.
V první řadě se omlouvám. Ale jsem na programování úplná lama. Věc se má tak, že potřebuji vytvořit skript v basicu pro Excelovskou tabulku, který by z n-tice čísel uměl vygenerovat k-tici čísel bez opakování a vypsal by to.

Tedy příklad:
mám 1, 2, 3

a potřebuji vypsat všechny variace dvou čísel bez opakování:

1,2
2,3
3,1

Na netu jsem jen vygooglil script pro variaci, tedy n-tice čísel z n-tice prvků

Sub SestKostek()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim n As Long

n = 1

For a = 1 To 6
For b = 1 To 6
For c = 1 To 6
For d = 1 To 6
For e = 1 To 6
For f = 1 To 6

Cells(n, 1).Value = a
Cells(n, 2).Value = b
Cells(n, 3).Value = c
Cells(n, 4).Value = d
Cells(n, 5).Value = e
Cells(n, 6).Value = f

n = n + 1

Next f
Next e
Next d
Next c
Next b
Next a

End Sub

Jde mi o to, že mám doma soustruh se sadou ozubených kol a potřebuju si sestavit tabulku pro řezání závitů. Za každou pomoc budu vděčný. Díky

Odpovědět

30.8.2015 14:57

Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 1 zpráv z 1.

Nejčastěji vyhledáváné

Diskuze: výpis variací bez opakování - skript do excelu